Changeset 995 for codes/icosagcm/devel/src/initial/etat0_dcmip2.f90
- Timestamp:
- 12/30/19 12:37:59 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/initial/etat0_dcmip2.f90
r531 r995 7 7 INTEGER, SAVE :: testcase 8 8 INTEGER, PARAMETER :: mountain=0, schaer_noshear=1, schaer_shear=2 9 REAL(rstd):: Teq_test2= 300.d0,h0_test2 = 250.d0 9 10 10 PUBLIC getin_etat0, compute_etat0 11 PUBLIC getin_etat0, compute_etat0,Teq_test2,h0_test2 11 12 12 13 CONTAINS … … 16 17 etat0_type='jablonowsky06' 17 18 CALL getin("etat0",etat0_type) 19 CALL getin("dcmip2_Teq",Teq_test2) 20 CALL getin("dcmip2_h0",h0_test2) 18 21 SELECT CASE (TRIM(etat0_type)) 19 22 CASE('dcmip2_mountain') … … 65 68 CASE(mountain) 66 69 CALL test2_steady_state_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm, & 67 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy )70 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2) 68 71 CASE(schaer_noshear) 69 72 CALL test2_schaer_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm,0,& 70 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy )73 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2,Teq_test2) 71 74 CASE(schaer_shear) 72 75 CALL test2_schaer_mountain(lon,lat,dummy,dummy,0,.TRUE.,hyam,hybm,1, & 73 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy )76 ulonj,ulatj,dummy,tempj,phisj,psj,dummy,dummy,h0_test2,Teq_test2) 74 77 END SELECT 75 78 END SUBROUTINE comp_all
Note: See TracChangeset
for help on using the changeset viewer.