Changeset 928 for codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90

Timestamp:

06/21/19 01:01:34 (5 years ago)

Author:

dubos

Message:

devel : separate modules for caldyn_vert and caldyn_vert_NH

File:

• codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90 (modified) (2 diffs)

codes/icosagcm/devel/src/dynamics/caldyn_gcm.F90

@@ -3 +3 @@
   USE transfert_mod
   USE caldyn_vars_mod
-  USE caldyn_kernels_hevi_mod
-  USE caldyn_kernels_base_mod
+  USE compute_caldyn_vert_mod, ONLY : compute_caldyn_vert => compute_caldyn_vert_manual
   USE caldyn_kernels_mod
   USE omp_para
@@ -171 +170 @@
     CALL allocate_field(f_wwuu,  field_u,type_real,llm+1,name='wwuu')
     CALL allocate_field(f_planetvel,  field_u,type_real, name='planetvel') ! planetary velocity at r=a
+    CALL allocate_field(f_Ftheta,field_u,type_real,llm, name='Ftheta')
+    CALL allocate_field(f_berni, field_t,type_real,llm, name='berni')
     IF(.NOT.hydrostatic) THEN
        CALL allocate_field(f_Fel,      field_u,type_real,llm+1,name='F_el')