Changeset 73 for codes/icosagcm/trunk
- Timestamp:
- 08/02/12 20:46:19 (12 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/guided_mod.f90
r25 r73 18 18 CASE ('none') 19 19 20 CASE (' ncar')20 CASE ('dcmip1') 21 21 CALL init_guided_ncar 22 22 23 23 CASE DEFAULT 24 25 PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <ncar>" 24 PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <dcmip1>" 26 25 STOP 27 26 END SELECT … … 43 42 SELECT CASE(TRIM(guided_type)) 44 43 CASE ('none') 45 46 CASE ('ncar') 44 CASE ('dcmip1') 47 45 CALL guided_ncar(tt, f_ps, f_theta_rhodz, f_u, f_q) 46 CASE DEFAULT 47 PRINT*,"Bad selector for varaible guided_type >",TRIM(guided_type),"> option are <none>, <dcmip1>" 48 STOP 48 49 END SELECT 49 50 -
codes/icosagcm/trunk/src/guided_ncar_mod.f90
r25 r73 19 19 CHARACTER(LEN=255) :: wind 20 20 wind='deform' 21 CALL getin(' ncar_adv_wind',wind)21 CALL getin('dcmip1_wind',wind) 22 22 SELECT CASE(TRIM(wind)) 23 23 CASE('solid')
Note: See TracChangeset
for help on using the changeset viewer.