From 54a33ab0d898720fa669ddfa6bdcbe1da9b8474e Mon Sep 17 00:00:00 2001 From: CFLAG Date: Thu, 21 Nov 2024 16:14:25 +0100 Subject: [PATCH] Update parameters.f90 --- src/parameters.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/parameters.f90 b/src/parameters.f90 index 8bff9ea7..8b39a1cc 100644 --- a/src/parameters.f90 +++ b/src/parameters.f90 @@ -243,7 +243,7 @@ subroutine parameter(input_i3d) endif !!==> Pasha - if(itype .eq. 14) then + if(itype .eq. 15) then read(10, nml=ThetaDotModel); rewind(10) read(10, nml=BlowingModel); rewind(10) read(10, nml=AdversePresGrad); rewind(10)