Changeset 1052 for codes/icosagcm/devel/src/diagnostics/check_conserve.f90

Timestamp:

09/23/20 16:00:58 (4 years ago)

Author:

dubos

Message:

devel : diagnose divergence and vorticity

File:

• codes/icosagcm/devel/src/diagnostics/check_conserve.f90 (modified) (3 diffs)

codes/icosagcm/devel/src/diagnostics/check_conserve.f90

@@ -52 +52 @@
 
   SUBROUTINE check_conserve(f_ps,f_dps,f_ue,f_theta_rhodz,f_phis,it) 
-  USE vorticity_mod
+  USE compute_vorticity_mod
   USE caldyn_gcm_mod
   USE exner_mod 
@@ -153 +153 @@
 
   SUBROUTINE check_conserve_detailed(it,tag, f_ps,f_dps,f_ue,f_theta_rhodz,f_phis) 
-    USE vorticity_mod
     USE caldyn_gcm_mod
     USE exner_mod 
-!    USE mpipara, ONLY : is_mpi_root, comm_icosa
     USE omp_para, ONLY : is_master
     INTEGER, INTENT(IN) :: tag
@@ -268 +266 @@
   SUBROUTINE check_energy(f_ue,f_theta_rhodz,f_phis, etot, &
                       stot, AAM_mass_tot, AAM_vel_tot, AAM_velp_tot, AAM_velm_tot, rmsvtot)  
-  USE vorticity_mod
     TYPE(t_field), POINTER :: f_ue(:)
     TYPE(t_field), POINTER :: f_theta_rhodz(:)