Changeset 1027 for codes/icosagcm/devel/src/dynamics/compute_geopot.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/dynamics/compute_geopot.F90 (modified) (3 diffs)

codes/icosagcm/devel/src/dynamics/compute_geopot.F90

@@ -126 +126 @@
 #endif END_DYSL
 
+  !-------------- Wrappers for F2008 conformity -----------------
+  !--------------------------------------------------------------
+
+  SUBROUTINE compute_geopot_hex(rhodz,theta, ps,pk,geopot) 
+    REAL(rstd),INTENT(IN)    :: rhodz(:,:), theta(:,:,:) ! active scalars : theta/entropy, moisture, ...
+    REAL(rstd),INTENT(INOUT) :: ps(:), geopot(:,:)       ! geopotential
+    REAL(rstd),INTENT(OUT)   :: pk(:,:)       ! Exner function (compressible) /Lagrange multiplier (Boussinesq)
+    CALL compute_geopot_hex_(rhodz,theta, ps,pk,geopot)
+  END SUBROUTINE compute_geopot_hex
+
+  SUBROUTINE compute_geopot_unst(rhodz,theta, ps,pk,geopot) 
+    REAL(rstd),INTENT(IN)    :: rhodz(:,:), theta(:,:,:) ! active scalars : theta/entropy, moisture, ...
+    REAL(rstd),INTENT(INOUT) :: ps(:), geopot(:,:)       ! geopotential
+    REAL(rstd),INTENT(OUT)   :: pk(:,:)       ! Exner function (compressible) /Lagrange multiplier (Boussinesq)
+    CALL compute_geopot_unst_(rhodz,theta, ps,pk,geopot)
+  END SUBROUTINE compute_geopot_unst
+
   !**************************** Geopotential *****************************
 
-  SUBROUTINE compute_geopot_unst(rhodz,theta,ps,pk,geopot)
+  SUBROUTINE compute_geopot_unst_(rhodz,theta,ps,pk,geopot)
         USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
     USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
@@ -142 +159 @@
 #include "../kernels_unst/compute_geopot.k90"
     STOP_TRACE
-  END SUBROUTINE compute_geopot_unst
+  END SUBROUTINE compute_geopot_unst_
   
-  SUBROUTINE compute_geopot_hex(rhodz,theta, ps,pk,geopot) 
+  SUBROUTINE compute_geopot_hex_(rhodz,theta, ps,pk,geopot) 
     REAL(rstd),INTENT(IN)    :: rhodz(iim*jjm,llm)
     REAL(rstd),INTENT(IN)    :: theta(iim*jjm,llm,nqdyn) ! active scalars : theta/entropy, moisture, ...
@@ -162 +179 @@
 
     CALL trace_end("compute_geopot")
-  END SUBROUTINE compute_geopot_hex
+  END SUBROUTINE compute_geopot_hex_
 
   SUBROUTINE compute_geopot_manual(rhodz,theta, ps,pk,geopot)