Changeset 562 for codes/icosagcm/devel/src/dynamics/caldyn.f90

Timestamp:

09/28/17 21:58:12 (7 years ago)

Author:

dubos

Message:

devel : per-kernel activation of macro-generated code

File:

• codes/icosagcm/devel/src/dynamics/caldyn.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/dynamics/caldyn.f90

@@ -2 +2 @@
   USE icosa
   PRIVATE
+  SAVE
   CHARACTER(LEN=255),SAVE :: caldyn_type
 !$OMP THREADPRIVATE(caldyn_type)
-  
-  PUBLIC init_caldyn, caldyn, caldyn_BC
+ 
+  PUBLIC init_caldyn, caldyn, caldyn_BC, dysl
   
 CONTAINS
@@ -28 +29 @@
     END SELECT
         
-      
+    dysl=.FALSE.
+    CALL getin("dysl",dysl)
+    dysl_geopot=dysl
+    CALL getin("dysl_geopot",dysl_geopot)
+    dysl_caldyn_fast=dysl
+    CALL getin("dysl_caldyn_fast",dysl_caldyn_fast)
+    dysl_slow_hydro=dysl
+    CALL getin("dysl_slow_hydro",dysl_slow_hydro)
+    dysl_pvort_only=dysl
+    CALL getin("dysl_pvort_only",dysl_pvort_only)
+    dysl_caldyn_coriolis=dysl
+    CALL getin("dysl_caldyn_coriolis",dysl_caldyn_coriolis)
+
   END SUBROUTINE init_caldyn