- Timestamp:
- 02/01/13 00:14:31 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r110 r122 10 10 PUBLIC init_caldyn, caldyn, write_output_fields 11 11 12 INTEGER :: caldyn_hydrostat 13 12 14 CONTAINS 13 15 14 16 SUBROUTINE init_caldyn 15 17 USE icosa 18 USE exner_mod 16 19 IMPLICIT NONE 20 CHARACTER(len=255) :: def 21 22 def='direct' 23 CALL getin('caldyn_exner',def) 24 SELECT CASE(TRIM(def)) 25 CASE('lmdz') 26 caldyn_exner=1 27 CASE('direct') 28 caldyn_exner=2 29 CASE DEFAULT 30 PRINT*,'Bad selector for variable caldyn_exner : <', TRIM(def),'> options are <lmdz>, <direct>' 31 STOP 32 END SELECT 33 34 def='direct' 35 CALL getin('caldyn_hydrostat',def) 36 SELECT CASE(TRIM(def)) 37 CASE('lmdz') 38 caldyn_hydrostat=1 39 CASE('direct') 40 caldyn_hydrostat=2 41 CASE DEFAULT 42 PRINT*,'Bad selector for variable caldyn_hydrostat : <', TRIM(def),'> options are <lmdz>, <direct>' 43 STOP 44 END SELECT 17 45 18 46 CALL allocate_caldyn
Note: See TracChangeset
for help on using the changeset viewer.