Changeset 5315 for LMDZ6


Ignore:
Timestamp:
Nov 5, 2024, 3:24:33 PM (3 weeks ago)
Author:
abarral
Message:

Turn regdim.h into modules

Location:
LMDZ6/trunk/libf
Files:
2 edited
3 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5314 r5315  
    367367       USE radepsi_mod_h
    368368       USE radopt_mod_h
     369       USE regdim_mod_h
    369370    IMPLICIT NONE
    370371    !>======================================================================
    … …  
    418419    !  parameter (iip1=iim+1)
    419420
    420     include "regdim.h"
    421421    !======================================================================
    422422    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques

  • LMDZ6/trunk/libf/phylmd/regdim_mod_h.f90

    r5314 r5315  
    1 !
    2 ! $Header$
    3 !
    4 !     Valid and equivalent for either free source form or fixed source form
    5       INTEGER i1_deb, i1_fin
    6       INTEGER i2_deb, i2_fin
    7 !cc      PARAMETER (i1_deb=21, i1_fin=40)
    8 !cc      PARAMETER (i2_deb=41, i2_fin=44)
    9 !ccc      PARAMETER (i1_deb=47, i1_fin=77)
    10 !ccc      PARAMETER (i2_deb=78, i2_fin=79)
    11       PARAMETER (i1_deb=16, i1_fin=30)
    12       PARAMETER (i2_deb=31, i2_fin=33)
    13 !
    14       INTEGER j_deb, j_fin
    15 !cc      PARAMETER (j_deb=29, j_fin=61)
    16 !ccc      PARAMETER (j_deb=21, j_fin=51)
    17       PARAMETER (j_deb=18, j_fin=39)
     1MODULE regdim_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC i1_deb, i1_fin, i2_deb, i2_fin, j_deb, j_fin
     4
     5  INTEGER i1_deb, i1_fin
     6  INTEGER i2_deb, i2_fin
     7
     8  PARAMETER (i1_deb = 16, i1_fin = 30)
     9  PARAMETER (i2_deb = 31, i2_fin = 33)
     10
     11  INTEGER j_deb, j_fin
     12
     13  PARAMETER (j_deb = 18, j_fin = 39)
     14END MODULE regdim_mod_h

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5314 r5315  
    440440    USE radepsi_mod_h
    441441    USE radopt_mod_h
     442    USE regdim_mod_h
    442443    IMPLICIT NONE
    443444    !>======================================================================
    … …  
    491492    !  parameter (iip1=iim+1)
    492493
    493     include "regdim.h"
    494494    !======================================================================
    495495    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques

  • LMDZ6/trunk/libf/phylmdiso/regdim_mod_h.f90

    r5314 r5315  
    1 link ../phylmd/regdim.h
     1link ../phylmd/regdim_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.