Changeset 952 for codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90

Timestamp:

07/15/19 12:23:41 (5 years ago)

Author:

dubos

Message:

devel : temperature diagnostics for unstructured mesh

File:

• codes/icosagcm/devel/src/diagnostics/compute_diagnostics.f90 (modified) (1 diff)

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

@@ -1 +1 @@
 MODULE compute_diagnostics_mod
+  USE icosa
   IMPLICIT NONE
   SAVE
+  PRIVATE
+
+  ! fake array dimensions, for interfaces
+  INTEGER, PARAMETER :: iim_jjm_i=1, iim_jjm_u=1, iim_jjm_v=1, llm_=1, llm1=1, nqdyn_=1
 
   INTERFACE
 
     SUBROUTINE comp_rhodz(flag,ps,rhodz)
-      USE prec, ONLY : rstd
+      IMPORT
       LOGICAL, INTENT(IN) :: flag
-      REAL(rstd),INTENT(IN)  :: ps(1)
-      REAL(rstd),INTENT(OUT) :: rhodz(1,1)
+      REAL(rstd),INTENT(IN)  :: ps(iim_jjm_i)
+      REAL(rstd),INTENT(OUT) :: rhodz(iim_jjm_i,llm_)
     END SUBROUTINE comp_rhodz
 
     SUBROUTINE comp_pression(ps, p, offset)
-      USE prec, ONLY : rstd
+      IMPORT
       INTEGER, INTENT(IN) :: offset
-      REAL(rstd), INTENT(IN) :: ps(1)
-      REAL(rstd), INTENT(OUT) :: p(1,1)
+      REAL(rstd), INTENT(IN) :: ps(iim_jjm_i)
+      REAL(rstd), INTENT(OUT) :: p(iim_jjm_i,llm_)
     END SUBROUTINE comp_pression
+
+    SUBROUTINE comp_temperature(pmid,q,temp)
+      IMPORT
+      REAL(rstd),INTENT(IN)    :: pmid(iim_jjm_i, llm_)
+      REAL(rstd),INTENT(IN)    :: q(iim_jjm_i, llm_, nqdyn_)
+      REAL(rstd),INTENT(INOUT) :: temp(iim_jjm_i, llm_)
+    END SUBROUTINE comp_temperature
+
   END INTERFACE
 
-  PROCEDURE(comp_rhodz), POINTER :: compute_rhodz
-  PROCEDURE(comp_pression), POINTER :: compute_pression, compute_pression_mid
+  PROCEDURE(comp_rhodz),       POINTER :: compute_rhodz   => NULL()
+  PROCEDURE(comp_pression),    POINTER :: compute_pression => NULL(), compute_pression_mid => NULL()
+  PROCEDURE(comp_temperature), POINTER :: compute_temperature => NULL()
+
+  PUBLIC :: compute_rhodz, compute_pression, compute_pression_mid, compute_temperature
 
 END MODULE compute_diagnostics_mod