Changeset 122 for codes/icosagcm/trunk

Timestamp:

02/01/13 00:14:31 (11 years ago)

Author:

dubos

Message:

Options for calculation of Exner pressure

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -10 +10 @@
   PUBLIC init_caldyn, caldyn, write_output_fields
 
+  INTEGER :: caldyn_hydrostat
+
 CONTAINS
   
   SUBROUTINE init_caldyn
     USE icosa
+    USE exner_mod
     IMPLICIT NONE
+    CHARACTER(len=255) :: def
+  
+    def='direct'
+    CALL getin('caldyn_exner',def)
+    SELECT CASE(TRIM(def))
+    CASE('lmdz')
+       caldyn_exner=1
+    CASE('direct')
+       caldyn_exner=2
+    CASE DEFAULT
+       PRINT*,'Bad selector for variable caldyn_exner : <', TRIM(def),'> options are <lmdz>, <direct>'
+       STOP
+    END SELECT
+
+    def='direct'
+    CALL getin('caldyn_hydrostat',def)
+    SELECT CASE(TRIM(def))
+    CASE('lmdz')
+       caldyn_hydrostat=1
+    CASE('direct')
+       caldyn_hydrostat=2
+    CASE DEFAULT
+       PRINT*,'Bad selector for variable caldyn_hydrostat : <', TRIM(def),'> options are <lmdz>, <direct>'
+       STOP
+    END SELECT
     
     CALL allocate_caldyn