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

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

@@ -1 +1 @@
 MODULE compute_temperature_mod
+  USE prec, ONLY : rstd
   USE earth_const, ONLY : cpp, cppv, kappa, Rd, Rv, preff, Treff, nu, &
        caldyn_thermo, physics_thermo, thermo_fake_moist, &
@@ -96 +97 @@
 #endif END_DYSL
 
+!-------------- Wrappers for F2008 conformity -----------------
+
   SUBROUTINE compute_temperature_unst(pmid, q, temp)
-    USE prec
+    REAL(rstd),INTENT(IN)    :: pmid(:,:), q(:,:,:)
+    REAL(rstd),INTENT(INOUT) :: temp(:,:)
+    CALL compute_temperature_unst_(pmid, q, temp)
+  END SUBROUTINE compute_temperature_unst
+
+  SUBROUTINE compute_temperature_hex(pmid, q, temp)
+    REAL(rstd),INTENT(IN)    :: pmid(:,:), q(:,:,:)
+    REAL(rstd),INTENT(INOUT) :: temp(:,:)
+    CALL compute_temperature_hex_(pmid, q, temp)
+  END SUBROUTINE compute_temperature_hex
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_temperature_unst_(pmid, q, temp)
     REAL(rstd),INTENT(IN)    :: pmid(llm, primal_num)
     REAL(rstd),INTENT(IN)    :: q(llm, primal_num, nqtot)
@@ -104 +120 @@
     DECLARE_INDICES
 #include "../kernels_unst/compute_temperature.k90"
-  END SUBROUTINE compute_temperature_unst
+  END SUBROUTINE compute_temperature_unst_
 
-  SUBROUTINE compute_temperature_hex(pmid,q,temp)
+  SUBROUTINE compute_temperature_hex_(pmid,q,temp)
     USE icosa
     USE omp_para
@@ -116 +132 @@
     INTEGER :: ij,l
 #include "../kernels_hex/compute_temperature.k90"
-  END SUBROUTINE compute_temperature_hex
+  END SUBROUTINE compute_temperature_hex_
 
   SUBROUTINE compute_temperature_manual(pmid,q,temp)