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

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

@@ -68 +68 @@
 #endif END_DYSL
 
+!-------------- Wrappers for F2008 conformity -----------------
+
+  SUBROUTINE compute_caldyn_fast_hex(tau,theta,geopot, pk,berni,du,u)
+    REAL(rstd),INTENT(IN)    :: tau, theta(:,:,:), geopot(:,:)
+    REAL(rstd),INTENT(INOUT) :: pk(:,:), berni(:,:), du(:,:), u(:,:)
+    CALL compute_caldyn_fast_hex_(tau,theta,geopot, pk,berni,du,u)
+  END SUBROUTINE compute_caldyn_fast_hex
+
   SUBROUTINE compute_caldyn_fast_unst(tau,theta,geopot, pk,berni,du,u)
+    REAL(rstd),INTENT(IN)    :: tau, theta(:,:,:), geopot(:,:)
+    REAL(rstd),INTENT(INOUT) :: pk(:,:), berni(:,:), du(:,:), u(:,:)
+    CALL compute_caldyn_fast_unst_(tau,theta,geopot, pk,berni,du,u)
+  END SUBROUTINE compute_caldyn_fast_unst
+
+!--------------------------------------------------------------
+
+  SUBROUTINE compute_caldyn_fast_unst_(tau,theta,geopot, pk,berni,du,u)
     USE ISO_C_BINDING, only : C_DOUBLE, C_FLOAT
     USE data_unstructured_mod, ONLY : enter_trace, exit_trace, &
@@ -84 +100 @@
 #include "../kernels_unst/caldyn_fast.k90"
     STOP_TRACE
-  END SUBROUTINE compute_caldyn_fast_unst
-
-  SUBROUTINE compute_caldyn_fast_hex(tau,theta,geopot, pk,berni,du,u)
+  END SUBROUTINE compute_caldyn_fast_unst_
+
+  SUBROUTINE compute_caldyn_fast_hex_(tau,theta,geopot, pk,berni,du,u)
     USE icosa
     REAL(rstd),INTENT(IN)    :: tau                ! "solve" u-tau*du/dt = rhs
@@ -104 +120 @@
     CALL trace_end("compute_caldyn_fast")
     
-  END SUBROUTINE compute_caldyn_fast_hex
+  END SUBROUTINE compute_caldyn_fast_hex_
 
   SUBROUTINE compute_caldyn_fast_manual(tau,theta,geopot, pk,berni,du,u)