Changeset 73 for codes/icosagcm/trunk/src/guided_ncar_mod.f90
- Timestamp:
- 08/02/12 20:46:19 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.