Changeset 913 for codes/icosagcm/devel/src/diagnostics/observable.f90

Timestamp:

06/17/19 17:38:58 (5 years ago)

Author:

dubos

Message:

devel : compute_pression for unstructured mesh

File:

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

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

@@ -43 +43 @@
     USE xios_mod
     USE earth_const
-    USE pression_mod
+    USE compute_pression_mod, ONLY : pression_mid
     USE vertical_interp_mod
     USE theta2theta_rhodz_mod
@@ -295 +295 @@
   SUBROUTINE diagnose_temperature(f_pmid,f_q,f_temp)
     USE icosa
-    USE pression_mod
     IMPLICIT NONE
     TYPE(t_field), POINTER :: f_pmid(:)         ! IN
@@ -319 +318 @@
   SUBROUTINE compute_diagnose_temp(pmid,q,temp)
     USE omp_para
-    USE pression_mod
     REAL(rstd),INTENT(IN)    :: pmid(iim*jjm,llm)
     REAL(rstd),INTENT(IN)    :: q(iim*jjm,llm,nqtot)