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

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

@@ -74 +74 @@
 #endif END_DYSL
 
-  SUBROUTINE compute_caldyn_coriolis_unst(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+!-------------- Wrappers for F2008 conformity -----------------
+
+    SUBROUTINE compute_caldyn_coriolis_unst(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+      REAL(rstd), INTENT(IN)    :: hflux(:,:), theta(:,:,:), qu(:,:)
+      REAL(rstd), INTENT(OUT)   :: Ftheta(:,:), convm(:,:), dtheta_rhodz(:,:,:)
+      REAL(rstd), INTENT(INOUT) :: du(:,:)
+      CALL compute_caldyn_coriolis_unst_(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+    END SUBROUTINE compute_caldyn_coriolis_unst
+
+    SUBROUTINE compute_caldyn_coriolis_hex(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+      REAL(rstd), INTENT(IN)    :: hflux(:,:), theta(:,:,:), qu(:,:)
+      REAL(rstd), INTENT(OUT)   :: Ftheta(:,:), convm(:,:), dtheta_rhodz(:,:,:)
+      REAL(rstd), INTENT(INOUT) :: du(:,:)
+      CALL compute_caldyn_coriolis_hex_(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+    END SUBROUTINE compute_caldyn_coriolis_hex
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_caldyn_coriolis_unst_(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
     USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
     USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
@@ -89 +107 @@
 #include "../kernels_unst/coriolis.k90"
     STOP_TRACE
-  END SUBROUTINE compute_caldyn_coriolis_unst
-
-  SUBROUTINE compute_caldyn_Coriolis_hex(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
+  END SUBROUTINE compute_caldyn_coriolis_unst_
+
+  SUBROUTINE compute_caldyn_Coriolis_hex_(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)
     USE icosa
     REAL(rstd),INTENT(IN)    :: hflux(3*iim*jjm,llm)  ! hflux in kg/s
@@ -107 +125 @@
 
     CALL trace_end("compute_caldyn_Coriolis")
-  END SUBROUTINE compute_caldyn_Coriolis_hex
+  END SUBROUTINE compute_caldyn_Coriolis_hex_
 
   SUBROUTINE compute_caldyn_Coriolis_manual(hflux,theta,qu, Ftheta, convm,dtheta_rhodz,du)