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

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

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
36 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"
Note: See TracChangeset for help on using the changeset viewer.