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

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

@@ -53 +53 @@
 #endif END_DYSL
 
+!-------------- Wrappers for F2008 conformity -----------------
+
+  SUBROUTINE compute_caldyn_slow_hydro_hex(zero, u,rhodz,hv,Kv, berni, hflux,du)
+    LOGICAL, INTENT(IN)      :: zero
+    REAL(rstd),INTENT(IN)    :: u(:,:), rhodz(:,:), hv(:,:), Kv(:,:)
+    REAL(rstd), INTENT(OUT)  :: berni(:,:), hflux(:,:)
+    REAL(rstd),INTENT(INOUT) :: du(:,:)
+    CALL compute_caldyn_slow_hydro_hex_(zero, u,rhodz,hv,Kv, berni, hflux,du)
+  END SUBROUTINE compute_caldyn_slow_hydro_hex
+
   SUBROUTINE compute_caldyn_slow_hydro_unst(zero, u,rhodz,hv,Kv, berni, hflux,du)
+    LOGICAL, INTENT(IN)      :: zero
+    REAL(rstd),INTENT(IN)    :: u(:,:), rhodz(:,:), hv(:,:), Kv(:,:)
+    REAL(rstd), INTENT(OUT)  :: berni(:,:), hflux(:,:)
+    REAL(rstd),INTENT(INOUT) :: du(:,:)
+    CALL compute_caldyn_slow_hydro_unst_(zero, u,rhodz,hv,Kv, berni, hflux,du)
+  END SUBROUTINE compute_caldyn_slow_hydro_unst
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_caldyn_slow_hydro_unst_(zero, u,rhodz,hv,Kv, berni, hflux,du)
     USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
     USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
@@ -66 +86 @@
 #include "../kernels_unst/caldyn_slow_hydro.k90"
     STOP_TRACE
-  END SUBROUTINE compute_caldyn_slow_hydro_unst
-
-  SUBROUTINE compute_caldyn_slow_hydro_hex(zero, u,rhodz,hv,Kv, berni, hflux,du)
+  END SUBROUTINE compute_caldyn_slow_hydro_unst_
+
+  SUBROUTINE compute_caldyn_slow_hydro_hex_(zero, u,rhodz,hv,Kv, berni, hflux,du)
     USE icosa
     USE caldyn_vars_mod
@@ -89 +109 @@
     CALL trace_end("compute_caldyn_slow_hydro")    
 
-  END SUBROUTINE compute_caldyn_slow_hydro_hex
+  END SUBROUTINE compute_caldyn_slow_hydro_hex_
 
   SUBROUTINE compute_caldyn_slow_hydro_manual(zero, u,rhodz,hv,Kv, berni, hflux,du)