Changeset 5315 for LMDZ6/trunk/libf/phylmd

Timestamp:

Nov 5, 2024, 3:24:33 PM (3 months ago)

Author:

abarral

Message:

Turn regdim.h into modules

Location:

LMDZ6/trunk/libf/phylmd

Files:

• physiq_mod.F90 (modified) (2 diffs)
• regdim_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmd/regdim.h) (1 diff)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -367 +367 @@
        USE radepsi_mod_h
        USE radopt_mod_h
+       USE regdim_mod_h
     IMPLICIT NONE
     !>======================================================================
@@ -418 +419 @@
     !  parameter (iip1=iim+1)
 
-    include "regdim.h"
     !======================================================================
     LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques

LMDZ6/trunk/libf/phylmd/regdim_mod_h.f90

@@ -1 @@
-!
-! $Header$
-!
-!     Valid and equivalent for either free source form or fixed source form
-      INTEGER i1_deb, i1_fin
-      INTEGER i2_deb, i2_fin
-!cc      PARAMETER (i1_deb=21, i1_fin=40)
-!cc      PARAMETER (i2_deb=41, i2_fin=44)
-!ccc      PARAMETER (i1_deb=47, i1_fin=77)
-!ccc      PARAMETER (i2_deb=78, i2_fin=79)
-      PARAMETER (i1_deb=16, i1_fin=30)
-      PARAMETER (i2_deb=31, i2_fin=33)
-!
-      INTEGER j_deb, j_fin
-!cc      PARAMETER (j_deb=29, j_fin=61)
-!ccc      PARAMETER (j_deb=21, j_fin=51)
-      PARAMETER (j_deb=18, j_fin=39)
+MODULE regdim_mod_h
+  IMPLICIT NONE; PRIVATE
+  PUBLIC i1_deb, i1_fin, i2_deb, i2_fin, j_deb, j_fin
+
+  INTEGER i1_deb, i1_fin
+  INTEGER i2_deb, i2_fin
+
+  PARAMETER (i1_deb = 16, i1_fin = 30)
+  PARAMETER (i2_deb = 31, i2_fin = 33)
+
+  INTEGER j_deb, j_fin
+
+  PARAMETER (j_deb = 18, j_fin = 39)
+END MODULE regdim_mod_h