Changeset 995 for codes/icosagcm/devel/src/initial/etat0_dcmip2.f90

Timestamp:

12/30/19 12:37:59 (4 years ago)

Author:

jisesh

Message:

devel: Added Teq and h0 as arguments

File:

• codes/icosagcm/devel/src/initial/etat0_dcmip2.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/initial/etat0_dcmip2.f90

@@ -7 +7 @@
   INTEGER, SAVE :: testcase
   INTEGER, PARAMETER :: mountain=0, schaer_noshear=1, schaer_shear=2
+  REAL(rstd):: Teq_test2= 300.d0,h0_test2 = 250.d0
 
-  PUBLIC getin_etat0, compute_etat0
+  PUBLIC getin_etat0, compute_etat0,Teq_test2,h0_test2
 
 CONTAINS
@@ -16 +17 @@
     etat0_type='jablonowsky06'
     CALL getin("etat0",etat0_type)
+    CALL getin("dcmip2_Teq",Teq_test2)
+    CALL getin("dcmip2_h0",h0_test2)
     SELECT CASE (TRIM(etat0_type))
     CASE('dcmip2_mountain')
@@ -65 +68 @@
     CASE(mountain)
        CALL test2_steady_state_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm, &
-            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy)
+            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2)
     CASE(schaer_noshear)
        CALL test2_schaer_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm,0,&
-            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy)
+            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2,Teq_test2)
     CASE(schaer_shear)
        CALL test2_schaer_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm,1, &
-            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy)
+            ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2,Teq_test2)
     END SELECT
   END SUBROUTINE comp_all