Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90

@@ -110 +110 @@
 
     ! Sanity check on dimensions
-    if ((ip1jm/=((nbp_lon + 1) * (nbp_lat - 1))).or. &
+    IF ((ip1jm/=((nbp_lon + 1) * (nbp_lat - 1))).OR. &
             (ip1jmp1/=((nbp_lon + 1) * nbp_lat))) THEN
       abort_message = "ini_slab_transp_geom Error: wrong array sizes"
@@ -474 +474 @@
     IMPLICIT NONE
 
-    LOGICAL, INTENT(in) :: slab_gm
+    LOGICAL, INTENT(IN) :: slab_gm
     ! Here, temperature and flux variables are on 2 layers
     INTEGER ij