Changeset 599 for codes/icosagcm/trunk/src/dynamics

Timestamp:

10/19/17 17:04:26 (7 years ago)

Author:

dubos

Message:

trunk : backported commits r582-r598 (transport diagnostics)

File:

• codes/icosagcm/trunk/src/dynamics/caldyn_gcm.F90 (modified) (6 diffs)

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

@@ -5 +5 @@
   USE caldyn_kernels_base_mod
   USE caldyn_kernels_mod
+  USE omp_para
+  USE mpipara
   IMPLICIT NONE
   PRIVATE
@@ -13 +15 @@
   
   SUBROUTINE init_caldyn
-    USE icosa
-    USE observable_mod
-    USE mpipara
-    USE omp_para
-    IMPLICIT NONE
     CHARACTER(len=255) :: def
     INTEGER            :: ind
@@ -124 +121 @@
 
   SUBROUTINE allocate_caldyn
-  USE icosa
-  IMPLICIT NONE
-
     CALL allocate_field(f_out_u,field_u,type_real,llm) 
     CALL allocate_field(f_qu,field_u,type_real,llm) 
@@ -142 +136 @@
 
   SUBROUTINE caldyn_BC(f_phis, f_geopot, f_wflux)
-    USE icosa
-    USE mpipara
-    USE omp_para
     TYPE(t_field),POINTER :: f_phis(:)
     TYPE(t_field),POINTER :: f_geopot(:)
@@ -186 +177 @@
   SUBROUTINE caldyn(write_out,f_phis, f_ps, f_mass, f_theta_rhodz, f_u, f_q, &
        f_geopot, f_hflux, f_wflux, f_dps, f_dmass, f_dtheta_rhodz, f_du)
-    USE icosa
     USE observable_mod
     USE disvert_mod, ONLY : caldyn_eta, eta_mass
-    USE vorticity_mod
-    USE kinetic_mod
-    USE theta2theta_rhodz_mod
-    USE wind_mod
-    USE mpipara
     USE trace
-    USE omp_para
-    USE output_field_mod
-    USE checksum_mod
-    IMPLICIT NONE
     LOGICAL,INTENT(IN)    :: write_out
     TYPE(t_field),POINTER :: f_phis(:)
@@ -375 +356 @@
 
   SUBROUTINE check_mass_conservation(f_ps,f_dps)
-  USE icosa
-  USE mpipara
-  IMPLICIT NONE
     TYPE(t_field),POINTER :: f_ps(:)
     TYPE(t_field),POINTER :: f_dps(:)