Changeset 1027 for codes/icosagcm/devel/src/diagnostics/compute_rhodz.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_rhodz.F90 (modified) (4 diffs)

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

@@ -1 +1 @@
 MODULE compute_rhodz_mod
+  USE icosa, ONLY : rstd
   USE earth_const, ONLY : g
   USE disvert_mod, ONLY : ap, bp
@@ -41 +42 @@
 #endif END_DYSL
 
+!-------------- Wrappers for F2008 conformity -----------------
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_rhodz_hex(comp, ps, rhodz)
+    LOGICAL, INTENT(IN) :: comp ! .TRUE. to compute, .FALSE. to check
+    REAL(rstd), INTENT(IN) :: ps(:)
+    REAL(rstd), INTENT(INOUT) :: rhodz(:,:)
+    CALL compute_rhodz_hex_(comp, ps, rhodz)
+  END SUBROUTINE compute_rhodz_hex
+
   SUBROUTINE compute_rhodz_unst(comp, ps, rhodz)
+    LOGICAL, INTENT(IN) :: comp ! .TRUE. to compute, .FALSE. to check
+    REAL(rstd), INTENT(IN) :: ps(:)
+    REAL(rstd), INTENT(INOUT) :: rhodz(:,:)
+    CALL compute_rhodz_unst_(comp, ps, rhodz)
+  END SUBROUTINE compute_rhodz_unst
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_rhodz_unst_(comp, ps, rhodz)
     USE data_unstructured_mod, ONLY : primal_num
     LOGICAL, INTENT(IN)  :: comp
@@ -53 +73 @@
 #undef AP
 #undef BP
-  END SUBROUTINE compute_rhodz_unst
+  END SUBROUTINE compute_rhodz_unst_
   
-  SUBROUTINE compute_rhodz_hex(comp, ps, rhodz)
+  SUBROUTINE compute_rhodz_hex_(comp, ps, rhodz)
     USE icosa
     USE omp_para
@@ -68 +88 @@
 #undef AP
 #undef BP
-  END SUBROUTINE compute_rhodz_hex
+  END SUBROUTINE compute_rhodz_hex_
 
   SUBROUTINE compute_rhodz_handmade(comp, ps, rhodz)