Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (3 months ago)
Author:
abarral
Message:

Move dimensions.h into a module
Nb: doesn't compile yet

Location:
LMDZ6/trunk/libf/phylmd
Files:
56 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90

    r5246 r5271  
    1010  USE dimphy
    1111  USE infotrac
    12   IMPLICIT none
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT none
    1314  !
    1415  INCLUDE "chem.h"
    15   INCLUDE "dimensions.h"
     16
    1617  !INCLUDE "dimphy.h"
    1718  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5246 r5271  
    22
    33  USE dimphy
    4   IMPLICIT NONE
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT NONE
    56  !=====================================================================
    67  ! Objet : below-cloud scavenging of tracers
    … …  
    910  !=====================================================================
    1011  !
    11   INCLUDE "dimensions.h"
     12
    1213  INCLUDE "chem.h"
    1314  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5246 r5271  
    22        ,t,q,tsol,ustar,obklen)
    33  USE dimphy
    4   IMPLICIT NONE
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT NONE
    56  !
    67  !===================================================================
    … …  
    1718  !===================================================================
    1819  !
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "YOMCST.h"
    2122  INCLUDE "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99  USE infotrac
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99  USE infotrac
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90

    r5246 r5271  
    33
    44  USE dimphy
    5   IMPLICIT none
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT none
    67  !======================================================================
    78  ! Auteur(s): O. Boucher (LOA/LMD) date: 19961127
    … …  
    2627  ! flux_tr--output-R- flux de tr
    2728  !======================================================================
    28   INCLUDE "dimensions.h"
     29
    2930  REAL :: dtime
    3031  REAL :: coef(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90

    r5246 r5271  
    55  USE indice_sol_mod
    66
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "YOMCST.h"
    1112  !

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5246 r5271  
    3131  USE dustemission_mod,  ONLY : dustemission
    3232   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    33   IMPLICIT NONE
    34 
    35   INCLUDE "dimensions.h"
     33  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     34IMPLICIT NONE
     35
     36
    3637  INCLUDE "chem.h"
    3738  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc.f90

    r5270 r5271  
    55  USE dimphy
    66  USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite, nf90_get_var
    7   IMPLICIT none
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT none
    89  !
    910  ! Lire les conditions aux limites du modele pour la chimie.
    1011  ! --------------------------------------------------------
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314
    1415  REAL :: lmt_bcff(klon), lmt_bcbb(klon),lmt_bc_penner(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc_new.f90

    r5270 r5271  
    77  USE dimphy
    88  USE netcdf, ONLY: nf90_get_var, nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, nf90_nowrite
    9   IMPLICIT none
     9  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10IMPLICIT none
    1011  !
    1112  ! Lire les conditions aux limites du modele pour la chimie.
    1213  ! --------------------------------------------------------
    1314  !
    14   INCLUDE "dimensions.h"
     15
    1516
    1617  REAL :: lmt_bcff(klon), lmt_bcnff(klon), lmt_bcba(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs.f90

    r5270 r5271  
    66   USE netcdf, ONLY: nf90_close, nf90_noerr, nf90_inq_varid, nf90_open, &
    77          nf90_nowrite, nf90_get_var
    8   IMPLICIT none
     8  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9IMPLICIT none
    910  !
    1011  ! Lire les conditions aux limites du modele pour la chimie.
    1112  ! --------------------------------------------------------
    1213  !
    13   INCLUDE "dimensions.h"
     14
    1415  !
    1516  REAL :: lmt_so2h(klon), lmt_so2b(klon), lmt_so2bb(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new.f90

    r5270 r5271  
    1010  USE dimphy
    1111  USE netcdf, ONLY: nf90_get_var, nf90_inq_varid, nf90_close, nf90_noerr, nf90_open, nf90_nowrite
    12   IMPLICIT none
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT none
    1314  !
    1415  ! Lire les conditions aux limites du modele pour la chimie.
    1516  ! --------------------------------------------------------
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819  !
    1920  REAL :: lmt_so2b(klon), lmt_so2h(klon), lmt_so2nff(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5246 r5271  
    1010  USE indice_sol_mod
    1111
    12   IMPLICIT NONE
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
    1314
    14   INCLUDE "dimensions.h"
     15
    1516  INCLUDE "chem.h"
    1617  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5246 r5271  
    1515  USE infotrac
    1616   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    17   IMPLICIT NONE
     17  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18IMPLICIT NONE
    1819
    19   INCLUDE "dimensions.h"
     20
    2021  INCLUDE "chem.h"
    2122  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5246 r5271  
    88   ! USE indice_sol_mod
    99
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5246 r5271  
    99  USE indice_sol_mod
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    13   INCLUDE "dimensions.h"
     14
    1415  INCLUDE "chem.h"
    1516  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5246 r5271  
    99  USE indice_sol_mod
    1010
    11   IMPLICIT NONE
     11  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12IMPLICIT NONE
    1213
    13   INCLUDE "dimensions.h"
     14
    1415  INCLUDE "chem.h"
    1516  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5246 r5271  
    33        his_dh)
    44  USE dimphy
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !=====================================================================
    78  ! Objet : depot humide de traceurs
    … …  
    1011  !=====================================================================
    1112  !
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5   IMPLICIT NONE
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6IMPLICIT NONE
    67  !
    7   INCLUDE "dimensions.h"
     8
    89  INCLUDE "YOMCST.h"
    910  !

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5268 r5271  
    1313  USE iophy
    1414
    15   IMPLICIT NONE
     15  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16IMPLICIT NONE
    1617!=====================================================================
    1718! Objet : depot humide (lessivage et evaporation) de traceurs
    … …  
    2122!=====================================================================
    2223
    23   include "dimensions.h"
     24
    2425  include "chem.h"
    2526  include "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5268 r5271  
    1414!  USE comgeomphy
    1515  USE iophy
    16   IMPLICIT NONE
     16  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17IMPLICIT NONE
    1718!=====================================================================
    1819! Objet : depot humide (lessivage et evaporation) de traceurs
    … …  
    2324! SPLA version taken from trunk revision 2041
    2425
    25   include "dimensions.h"
     26
    2627  include "chem.h"
    2728  include "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    66
    77   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxsource.f90

    r5246 r5271  
    33  USE dimphy
    44  USE infotrac
    5 
    6   INCLUDE "dimensions.h"
     5  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    76
    87   ! character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/neutral.f90

    r5246 r5271  
    2828  !
    2929  USE dimphy
    30   INCLUDE "dimensions.h"
     30  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    3131  !
    3232    real :: u10_mps(klon),ustar_mps(klon),obklen_m(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90

    r5246 r5271  
    55  USE dimphy
    66  USE indice_sol_mod
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "YOMCST.h"
    1112  !

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5267 r5271  
    396396    USE phys_cal_mod, ONLY : mth_len
    397397
    398     IMPLICIT NONE
     398    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     399IMPLICIT NONE
    399400
    400401!   INCLUDE "temps.h"
    … …  
    403404    INCLUDE "compbl.h"
    404405    INCLUDE "YOMCST.h"
    405     INCLUDE "dimensions.h"
     406
    406407    include "iniprint.h"
    407408

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5270 r5271  
    807807      USE phys_cal_mod, only: jD_1jan,year_len, mth_len, days_elapsed, jh_1jan, year_cur, &
    808808                              mth_cur, phys_cal_update
    809 
     809      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    810810!
    811811      IMPLICIT none
    … …  
    823823!!   et c'est encore different avec le parser de DC ?
    824824!======================================================================
    825       INCLUDE "dimensions.h"
    826825      INCLUDE "chem.h"
    827826      INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5246 r5271  
    2020  USE infotrac
    2121   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    22   IMPLICIT NONE
    23 
    24   INCLUDE "dimensions.h"
     22  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23IMPLICIT NONE
     24
     25
    2526  INCLUDE "chem.h"
    2627  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90

    r5270 r5271  
    44  USE mod_phys_lmdz_para
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    6   IMPLICIT NONE
     6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7IMPLICIT NONE
    78  !
    8   INCLUDE "dimensions.h"
     9
    910  INCLUDE "paramet.h"
    1011  !

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90

    r5246 r5271  
    2323  USE mod_phys_lmdz_para
    2424
    25   IMPLICIT NONE
    26 
    27 
    28   INCLUDE "dimensions.h"
     25  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26IMPLICIT NONE
     27
     28
     29
    2930   ! INCLUDE 'dimphy.h'
    3031  INCLUDE 'paramet.h'

  • LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90

    r5270 r5271  
    1111       USE iophy
    1212       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    13        IMPLICIT NONE
    14        INCLUDE "dimensions.h"
     13       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
     15
    1516       INCLUDE "paramet.h"
    1617

  • LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90

    r5270 r5271  
    55  USE netcdf, ONLY: nf90_get_var, nf90_open, nf90_inq_varid, nf90_nowrite
    66   ! USE write_field_phy
    7   IMPLICIT NONE
    8   INCLUDE "dimensions.h"
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
     9
    910    ! INCLUDE "dimphy.h"
    1011  INCLUDE "paramet.h"

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5246 r5271  
    55
    66  USE dimphy
    7   IMPLICIT NONE
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8IMPLICIT NONE
    89  !
    9   INCLUDE "dimensions.h"
     10
    1011  INCLUDE "chem.h"
    1112  INCLUDE "chem_spla.h"

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5246 r5271  
    1010   USE dimphy
    1111   USE infotrac
    12   IMPLICIT NONE
    13   !
    14   INCLUDE "dimensions.h"
     12  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13IMPLICIT NONE
     14  !
     15
    1516  INCLUDE "chem.h"
    1617    ! INCLUDE "dimphy.h"

  • LMDZ6/trunk/libf/phylmd/Dust/tiedqneg.f90

    r5246 r5271  
    22  !
    33  USE dimphy
    4   IMPLICIT none
     4  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5IMPLICIT none
    56  !======================================================================
    67  ! Auteur(s): CG (LGGE/CNRS) date: 19950201
    … …  
    1516  !======================================================================
    1617  !
    17   INCLUDE "dimensions.h"
     18
    1819    ! INCLUDE "dimphy.h"
    1920  REAL :: pres_h(klon,klev+1)

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5246 r5271  
    88  USE indice_sol_mod
    99
    10   IMPLICIT NONE
     10  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11IMPLICIT NONE
    1112
    12   INCLUDE "dimensions.h"
     13
    1314  INCLUDE "chem.h"
    1415  INCLUDE "YOMCST.h"

  • LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.f90

    r5268 r5271  
    1111  USE yomcst_mod_h
    1212
    13   IMPLICIT NONE
     13  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14IMPLICIT NONE
    1415
    15   INCLUDE "dimensions.h"
     16
    1617  INCLUDE "clesphys.h"
    1718  INCLUDE "paramet.h"

  • LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.f90

    r5268 r5271  
    2121  USE strataer_local_var_mod, ONLY : flag_newclim_file,flag_verbose_strataer
    2222
    23   IMPLICIT NONE
    24 
    25   include "dimensions.h"
     23  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     24IMPLICIT NONE
     25
     26
    2627
    2728! Variable input

  • LMDZ6/trunk/libf/phylmd/StratAer/stratH2O_methox.f90

    r5268 r5271  
    2222  USE strataer_local_var_mod, ONLY : flag_newclim_file
    2323 
    24   IMPLICIT NONE
    25  
    26   include "dimensions.h"
     24  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     25IMPLICIT NONE
     26
     27
    2728 
    2829! Input variables

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

    r5268 r5271  
    2929    include "clesphys.h"
    3030!  OFFLINE:
    31 !   include "dimensions.h"
     31!   include "dimensions_mod.f90"
    3232!   include "dimphy.h"
    3333!END DIFFERENCE

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

    r5268 r5271  
    225225    USE print_control_mod, ONLY: lunout
    226226
    227     IMPLICIT NONE
     227    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     228IMPLICIT NONE
    228229    INCLUDE "clesphys.h"
    229  
     230
    230231! Local variables
    231232    INTEGER               :: ierr
    … …  
    286287!=======================================================================
    287288!
    288 !   Authors: Patricia Cadule and Laurent Fairhead 
     289!   Authors: Patricia Cadule and Laurent Fairhead
    289290!   -------
    290291!
    … …  
    313314! field name         coupling          model 1         model 2         long_name
    314315!                    direction
    315 !   10char  -3spaces-  3char  -3spaces- 4char -3spaces- 4char -3spaces-  30char 
     316!   10char  -3spaces-  3char  -3spaces- 4char -3spaces- 4char -3spaces-  30char
    316317!
    317318! n
    … …  
    321322! FIELD(j+1) OUT LMDZ ORC
    322323! ...
    323 ! FIELDn OUT LMDZ ORC   
    324 ! 
     324! FIELDn OUT LMDZ ORC
     325!
    325326!=======================================================================
    326327!   ... 22/12/2017 ....
    … …  
    329330
    330331  INCLUDE "clesphys.h"
    331   INCLUDE "dimensions.h"
     332
    332333  INCLUDE "iniprint.h"
    333334

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp.F90

    r4619 r5271  
    2323! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    2424
    25 #include "cosp_defs.h"
     25INCLUDE "cosp_defs.h"
    2626MODULE MOD_COSP
    2727  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_constants.F90

    r4785 r5271  
    3333!
    3434
    35 !!#INCLUDE "cosp_defs.h"
     35!!INCLUDE "cosp_defs.h"
    3636#define MMF_V3_SINGLE_MOMENT mmf_v3_single_momen
    3737MODULE MOD_COSP_CONSTANTS

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_simulator.F90

    r4619 r5271  
    3131!
    3232
    33 #include "cosp_defs.h"
     33INCLUDE "cosp_defs.h"
    3434MODULE MOD_COSP_SIMULATOR
    3535  USE MOD_COSP_CONSTANTS, ONLY: I_RADAR, I_LIDAR, I_ISCCP, I_MISR, I_MODIS, &

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_stats.F90

    r4619 r5271  
    3636!
    3737!
    38 #include "cosp_defs.h"
     38INCLUDE "cosp_defs.h"
    3939MODULE MOD_COSP_STATS
    4040  USE MOD_COSP_CONSTANTS

  • LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

    r4619 r5271  
    7373
    7474!! AI rajouter
    75 #include "cosp_defs.h"
     75INCLUDE "cosp_defs.h"
    7676  USE MOD_COSP_CONSTANTS
    7777  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5270 r5271  
    1 #include "conf_gcm.f90"
     1INCLUDE "conf_gcm.f90"
    22
    33!
    … …  
    1818!   --------------
    1919
    20 #include "compar1d.h"
    21 #include "flux_arp.h"
    22 #include "tsoilnudge.h"
    23 #include "fcg_gcssold.h"
    24 #include "fcg_racmo.h"
     20INCLUDE "compar1d.h"
     21INCLUDE "flux_arp.h"
     22INCLUDE "tsoilnudge.h"
     23INCLUDE "fcg_gcssold.h"
     24INCLUDE "fcg_racmo.h"
    2525!
    2626!
    … …  
    670670      USE temps_mod, ONLY: annee_ref, day_ini, day_ref, itau_dyn
    671671
    672       IMPLICIT NONE
     672      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     673IMPLICIT NONE
    673674!=======================================================
    674675! Ecriture du fichier de redemarrage sous format NetCDF
    … …  
    676677!   Declarations:
    677678!   -------------
    678       include "dimensions.h"
    679 !!#include "control.h"
     679
     680!!INCLUDE "control.h"
    680681
    681682!   Arguments:
    … …  
    816817      USE temps_mod, ONLY: annee_ref,day_end,day_ref,itau_dyn,itaufin
    817818
    818       IMPLICIT NONE
     819      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     820IMPLICIT NONE
    819821!=======================================================
    820822! Ecriture du fichier de redemarrage sous format NetCDF
    … …  
    822824!   Declarations:
    823825!   -------------
    824       include "dimensions.h"
    825 !!#include "control.h"
     826
     827!!INCLUDE "control.h"
    826828
    827829!   Arguments:
    … …  
    11281130!    Auteur :  P. Le Van .
    11291131!
    1130       IMPLICIT NONE
    1131  
    1132       include "dimensions.h"
     1132      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1133IMPLICIT NONE
     1134
     1135
    11331136      include "paramet.h"
    11341137!
    … …  
    13481351!---------------------------------------------------------------------- 
    13491352        implicit none
    1350 #include "YOMCST.h"
     1353INCLUDE "YOMCST.h"
    13511354!        argument
    13521355        integer llm
    … …  
    14221425!---------------------------------------------------------------------- 
    14231426        implicit none
    1424 #include "YOMCST.h"
     1427INCLUDE "YOMCST.h"
    14251428!        argument
    14261429        integer llm,nqtot
    … …  
    17411744     &         ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
    17421745 
    1743        implicit none
    1744  
    1745 #include "YOMCST.h"
    1746 #include "dimensions.h"
     1746       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1747implicit none
     1748
     1749INCLUDE "YOMCST.h"
     1750
    17471751
    17481752!-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

    r4593 r5271  
    459459     &                     ,d_t_adv,d_q_adv)
    460460      use dimphy
    461       implicit none
    462 
    463       INCLUDE "dimensions.h"
     461      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     462implicit none
     463
     464
    464465!cccc      INCLUDE "dimphy.h"
    465466

  • LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r4603 r5271  
    33!
    44!#ifdef CPP_1D
    5 !#include "../dyn3d/mod_const_mpi.F90"
    6 !#include "../dyn3d_common/control_mod.F90"
    7 !#include "../dyn3d_common/infotrac.F90"
    8 !#include "../dyn3d_common/disvert.F90"
     5!INCLUDE "../dyn3d/mod_const_mpi.F90"
     6!INCLUDE "../dyn3d_common/control_mod.F90"
     7!INCLUDE "../dyn3d_common/infotrac.F90"
     8!INCLUDE "../dyn3d_common/disvert.F90"
    99
    1010
    … …  
    2626
    2727
    28 #include "1DUTILS.h"
    29 #include "1Dconv.h"
     28INCLUDE "1DUTILS.h"
     29INCLUDE "1Dconv.h"
    3030
    3131!#endif

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.f90

    r5270 r5271  
    931931       ,dth_mod_cas,hth_mod_cas,vth_mod_cas,mxcalc)
    932932
    933     implicit none
     933    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     934implicit none
    934935
    935936    INCLUDE "YOMCST.h"
    936     INCLUDE "dimensions.h"
     937
    937938
    938939    !-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5270 r5271  
    542542     &         ,omega_mod,o3mmr_mod,mxcalc)
    543543
    544        implicit none
    545 
    546       INCLUDE "dimensions.h"
     544       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     545implicit none
     546
     547
    547548
    548549!-------------------------------------------------------------------------
    … …  
    656657     &         ,tke_mod,o3mmr_mod,mxcalc)
    657658
    658        implicit none
    659 
    660       INCLUDE "dimensions.h"
     659       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     660implicit none
     661
     662
    661663
    662664!-------------------------------------------------------------------------
    … …  
    775777     &             ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico             &
    776778     &             ,dth_dyn,dqh_dyn)
    777       implicit none
     779      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     780implicit none
    778781
    779782!-------------------------------------------------------------------------
    780 ! Read RICO forcing data 
     783! Read RICO forcing data
    781784!-------------------------------------------------------------------------
    782       INCLUDE "dimensions.h"
     785
    783786
    784787
    … …  
    10541057     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
    10551058 
    1056        implicit none
    1057  
    1058       INCLUDE "dimensions.h"
     1059       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1060implicit none
     1061
     1062
    10591063
    10601064!-------------------------------------------------------------------------
    … …  
    11761180     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
    11771181 
    1178        implicit none
    1179  
    1180        INCLUDE "dimensions.h"
     1182       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1183implicit none
     1184
     1185
    11811186
    11821187!-------------------------------------------------------------------------
    … …  
    13351340     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
    13361341 
    1337        implicit none
    1338  
    1339        INCLUDE "dimensions.h"
     1342       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1343implicit none
     1344
     1345
    13401346
    13411347!-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5268 r5271  
    4848   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4949
    50       implicit none
    51       INCLUDE "dimensions.h"
     50      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     51implicit none
     52
    5253      INCLUDE "YOMCST.h"
    5354!!      INCLUDE "control.h"

  • LMDZ6/trunk/libf/phylmd/dyn1d/replay1d.f90

    r5268 r5271  
    1010
    1111
    12       implicit none
    13       INCLUDE "dimensions.h"
     12      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13implicit none
     14
    1415
    1516real :: airefi

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r5268 r5271  
    4444   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    4545
    46       implicit none
    47       INCLUDE "dimensions.h"
     46      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     47implicit none
     48
    4849      INCLUDE "YOMCST.h"
    4950!!      INCLUDE "control.h"

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

    r5268 r5271  
    2929      include "clesphys.h"
    3030    ! OFFLINE:
    31     ! include "dimensions.h"
     31    ! include "dimensions_mod.f90"
    3232    ! include "dimphy.h"
    3333    ! END OF DIFFERENCE ONLINE-OFFLINE

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

    r5252 r5271  
    133133   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
    134134   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    135    IMPLICIT NONE
     135   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     136IMPLICIT NONE
    136137!==============================================================================================================================
    137138!
    … …  
    153154!------------------------------------------------------------------------------------------------------------------------------
    154155! Declarations:
    155    INCLUDE "dimensions.h"
     156
    156157   INCLUDE "iniprint.h"
    157158
Note: See TracChangeset for help on using the changeset viewer.