Changeset 1027 for codes/icosagcm/devel/src/diagnostics/compute_pression.F90

Timestamp:

05/18/20 21:07:49 (4 years ago)

Author:

dubos

Message:

devel : towards conformity to F2008 standard

File:

• codes/icosagcm/devel/src/diagnostics/compute_pression.F90 (modified) (9 diffs)

codes/icosagcm/devel/src/diagnostics/compute_pression.F90

@@ -109 +109 @@
   END SUBROUTINE hydrostatic_pressure
 
+!-------------- Wrappers for F2008 conformity -----------------
+
+  SUBROUTINE compute_pression_hex(ps,p,offset)
+    REAL(rstd),INTENT(IN) :: ps(:)
+    REAL(rstd),INTENT(OUT) :: p(:,:)
+    INTEGER,INTENT(IN) :: offset
+    CALL compute_pression_hex_(ps,p,offset)
+  END SUBROUTINE compute_pression_hex
+
+  SUBROUTINE compute_pression_unst(ps,p,offset)
+    REAL(rstd),INTENT(IN) :: ps(:)
+    REAL(rstd),INTENT(OUT) :: p(:,:)
+    INTEGER,INTENT(IN) :: offset
+    CALL compute_pression_unst_(ps,p,offset)
+  END SUBROUTINE compute_pression_unst
+
+  SUBROUTINE compute_pression_mid_hex(ps,p,offset)
+    REAL(rstd),INTENT(IN) :: ps(:)
+    REAL(rstd),INTENT(OUT) :: p(:,:)
+    INTEGER,INTENT(IN) :: offset
+    CALL compute_pression_mid_hex_(ps,p,offset)
+  END SUBROUTINE compute_pression_mid_hex
+
+  SUBROUTINE compute_pression_mid_unst(ps,p,offset)
+    REAL(rstd),INTENT(IN) :: ps(:)
+    REAL(rstd),INTENT(OUT) :: p(:,:)
+    INTEGER,INTENT(IN) :: offset
+    CALL compute_pression_mid_unst_(ps,p,offset)
+  END SUBROUTINE compute_pression_mid_unst
+
+  SUBROUTINE compute_hydrostatic_pressure_hex(rhodz, theta_rhodz, ps, p)
+    REAL(rstd),INTENT(IN)  :: rhodz(:,:), theta_rhodz(:,:,:)
+    REAL(rstd),INTENT(OUT) :: ps(:), p(:,:)
+    CALL compute_hydrostatic_pressure_hex_(rhodz, theta_rhodz, ps, p)
+  END SUBROUTINE compute_hydrostatic_pressure_hex
+
+  SUBROUTINE compute_hydrostatic_pressure_unst(rhodz, theta_rhodz, ps, p)
+    REAL(rstd),INTENT(IN)  :: rhodz(:,:), theta_rhodz(:,:,:)
+    REAL(rstd),INTENT(OUT) :: ps(:), p(:,:)
+    CALL compute_hydrostatic_pressure_unst_(rhodz, theta_rhodz, ps, p)
+  END SUBROUTINE compute_hydrostatic_pressure_unst
+  
 !------------- hexagonal-mesh compute kernels --------
 
@@ -114 +156 @@
 #define BP(ij,l) bp(l)
 
-  SUBROUTINE compute_pression_hex(ps,p,offset)
+  SUBROUTINE compute_pression_hex_(ps,p,offset)
     REAL(rstd),INTENT(IN) :: ps(iim*jjm)
     REAL(rstd),INTENT(OUT) :: p(iim*jjm,llm+1)
@@ -120 +162 @@
     INTEGER :: ij,l
 #include "../kernels_hex/compute_pression.k90"
-  END SUBROUTINE compute_pression_hex
-  
-  SUBROUTINE compute_pression_mid_hex(ps,pmid,offset)
+  END SUBROUTINE compute_pression_hex_
+  
+  SUBROUTINE compute_pression_mid_hex_(ps,pmid,offset)
     REAL(rstd),INTENT(IN) :: ps(iim*jjm)
     REAL(rstd),INTENT(OUT) :: pmid(iim*jjm,llm)
@@ -128 +170 @@
     INTEGER :: ij,l
 #include "../kernels_hex/compute_pmid.k90"
-  END SUBROUTINE compute_pression_mid_hex
+  END SUBROUTINE compute_pression_mid_hex_
 
 #undef AP
 #undef BP
 
-  SUBROUTINE compute_hydrostatic_pressure_hex(rhodz, theta_rhodz, ps, pk)
+  SUBROUTINE compute_hydrostatic_pressure_hex_(rhodz, theta_rhodz, ps, pk)
     REAL(rstd),INTENT(IN)  :: rhodz(iim*jjm,llm) ! mass per unit surface in each model level
     REAL(rstd),INTENT(IN)  :: theta_rhodz(iim*jjm,llm, nqdyn) ! dynamical tracers (theta/entropy)
@@ -143 +185 @@
 #include "../kernels_hex/compute_hydrostatic_pressure.k90"
     !$OMP BARRIER
-  END SUBROUTINE compute_hydrostatic_pressure_hex
+  END SUBROUTINE compute_hydrostatic_pressure_hex_
 
 !----------- unstructured-mesh compute kernels --------
@@ -150 +192 @@
 #define BP(l,ij) bp(l)
   
-  SUBROUTINE compute_pression_unst(ps, p, offset)
+  SUBROUTINE compute_pression_unst_(ps, p, offset)
     FIELD_PS,     INTENT(IN)  :: ps
     FIELD_GEOPOT, INTENT(OUT) :: p
@@ -156 +198 @@
     DECLARE_INDICES
 #include "../kernels_unst/compute_pression.k90"
-  END SUBROUTINE compute_pression_unst
-
-  SUBROUTINE compute_pression_mid_unst(ps, pmid, offset)
+  END SUBROUTINE compute_pression_unst_
+
+  SUBROUTINE compute_pression_mid_unst_(ps, pmid, offset)
     FIELD_PS,   INTENT(IN)  :: ps
     FIELD_MASS, INTENT(OUT) :: pmid
@@ -164 +206 @@
     DECLARE_INDICES
 #include "../kernels_unst/compute_pmid.k90"
-  END SUBROUTINE compute_pression_mid_unst
+  END SUBROUTINE compute_pression_mid_unst_
 
 #undef AP
 #undef BP
 
-  SUBROUTINE compute_hydrostatic_pressure_unst(rhodz, theta_rhodz, ps, pk)
+  SUBROUTINE compute_hydrostatic_pressure_unst_(rhodz, theta_rhodz, ps, pk)
     FIELD_MASS,  INTENT(IN)  :: rhodz
     FIELD_THETA, INTENT(IN)  :: theta_rhodz
@@ -176 +218 @@
     DECLARE_INDICES
 #include "../kernels_unst/compute_hydrostatic_pressure.k90"
-  END SUBROUTINE compute_hydrostatic_pressure_unst
+  END SUBROUTINE compute_hydrostatic_pressure_unst_