Changeset 5137


Ignore:
Timestamp:
Jul 28, 2024, 10:25:12 PM (5 months ago)
Author:
abarral
Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf
Files:
84 edited
5 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

    r5136 r5137  
    99  USE lmdz_ssum_scopy, ONLY: scopy
    1010  USE lmdz_comgeom
     11  USE lmdz_tracstoke
    1112
    1213  !
    … …  
    2021  INCLUDE "dimensions.h"
    2122  INCLUDE "paramet.h"
    22   INCLUDE "tracstoke.h"
    2323
    2424  REAL :: time_step, t_wrt, t_ops

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.F90

    r5136 r5137  
    3131          tetagrot, tetatemp, coefdis, vert_prof_dissip
    3232  USE lmdz_comgeom
     33  USE lmdz_tracstoke
    3334
    3435  IMPLICIT NONE
    … …  
    6667  INCLUDE "dimensions.h"
    6768  INCLUDE "paramet.h"
    68   INCLUDE "tracstoke.h"
    6969
    7070  REAL zdtvr

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/wrgrads.f90

    r5134 r5137  
    33subroutine wrgrads(if, nl, field, name, titlevar)
    44  USE lmdz_formcoord, ONLY: formcoord
    5 
     5  USE lmdz_gradsdef
    66
    77  IMPLICIT NONE
    … …  
    1313  !    name    petit nom
    1414  !    titlevar   Titre
    15 
    16   INCLUDE "gradsdef.h"
    1715
    1816  !   arguments

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigrads.f90

    r5117 r5137  
    44        , x, fx, xmin, xmax, jm, y, ymin, ymax, fy, lm, z, fz &
    55        , dt, file, titlel)
     6  USE lmdz_gradsdef
    67
    78  IMPLICIT NONE
    … …  
    1314  CHARACTER(LEN = *), INTENT(IN) :: file
    1415  CHARACTER(LEN = *), INTENT(IN) :: titlel
    15 
    16   INCLUDE "gradsdef.h"
    1716
    1817  ! data unit/66,32,34,36,38,40,42,44,46,48/

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_gradsdef.f90

    r5136 r5137  
     1! Replaces gradsdef.h
    12
    2 ! $Header$
     3MODULE lmdz_gradsdef
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC xd, yd, zd, dtime, &
     6          imd, jmd, lmd, iid, jid, ifd, jfd, &
     7          unit, irec, nvar, ivar, itime, nld, firsttime, &
     8          var, fichier, title, tvar, nfmx, imx, jmx, lmx, nvarmx
    39
    4 INTEGER nfmx,imx,jmx,lmx,nvarmx
    5 parameter(nfmx=10,imx=200,jmx=150,lmx=200,nvarmx=1000)
     10  INTEGER nfmx, imx, jmx, lmx, nvarmx
     11  parameter(nfmx = 10, imx = 200, jmx = 150, lmx = 200, nvarmx = 1000)
    612
    7 REAL xd(imx,nfmx),yd(jmx,nfmx),zd(lmx,nfmx),dtime(nfmx)
     13  REAL xd(imx, nfmx), yd(jmx, nfmx), zd(lmx, nfmx), dtime(nfmx)
    814
    9 INTEGER imd(imx),jmd(jmx),lmd(lmx)
    10 INTEGER iid(imx),jid(jmx)
    11 INTEGER ifd(imx),jfd(jmx)
    12 INTEGER unit(nfmx),irec(nfmx),itime(nfmx),nld(nvarmx,nfmx)
     15  INTEGER imd(imx), jmd(jmx), lmd(lmx)
     16  INTEGER iid(imx), jid(jmx)
     17  INTEGER ifd(imx), jfd(jmx)
     18  INTEGER unit(nfmx), irec(nfmx), itime(nfmx), nld(nvarmx, nfmx)
    1319
    14 INTEGER nvar(nfmx),ivar(nfmx)
    15 LOGICAL firsttime(nfmx)
     20  INTEGER nvar(nfmx), ivar(nfmx)
     21  LOGICAL firsttime(nfmx)
    1622
    17 CHARACTER*10 var(nvarmx,nfmx),fichier(nfmx)
    18 CHARACTER*40 title(nfmx),tvar(nvarmx,nfmx)
     23  CHARACTER*10 var(nvarmx, nfmx), fichier(nfmx)
     24  CHARACTER*40 title(nfmx), tvar(nvarmx, nfmx)
    1925
    20 common/gradsdef/xd,yd,zd,dtime, &
    21 imd,jmd,lmd,iid,jid,ifd,jfd, &
    22 unit,irec,nvar,ivar,itime,nld,firsttime, &
    23 var,fichier,title,tvar
     26END MODULE lmdz_gradsdef

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_tracstoke.f90

    r5136 r5137  
     1! Replaces tracstoke.h
     2MODULE lmdz_tracstoke
     3  IMPLICIT NONE; PRIVATE
     4  PUBLIC istdyn, istphy, unittrac
    15
    2 ! $Header$
    3 
    4       common /tracstoke/istdyn,istphy,unittrac
    5       INTEGER istdyn,istphy,unittrac
     6  INTEGER istdyn, istphy, unittrac
     7END MODULE lmdz_tracstoke

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/fluxstokenc_p.f90

    r5134 r5137  
    1212  USE lmdz_vampir
    1313  USE write_field_loc
    14 
     14  USE lmdz_tracstoke
    1515
    1616  IMPLICIT NONE
    … …  
    2626  INCLUDE "dimensions.h"
    2727  INCLUDE "paramet.h"
    28   INCLUDE "tracstoke.h"
    2928
    3029  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/gcm.F90

    r5136 r5137  
    3030          tetagrot, tetatemp, coefdis, vert_prof_dissip
    3131  USE lmdz_comgeom
     32  USE lmdz_tracstoke
    3233
    3334  IMPLICIT NONE
    … …  
    6465  INCLUDE "dimensions.h"
    6566  INCLUDE "paramet.h"
    66   INCLUDE "tracstoke.h"
    6767
    6868  REAL zdtvr

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/wrgrads.f90

    r5128 r5137  
    33SUBROUTINE wrgrads(if, nl, field, name, titlevar)
    44  USE lmdz_formcoord, ONLY: formcoord
    5 
     5  USE lmdz_gradsdef
    66
    77  IMPLICIT NONE
    … …  
    1313  !    name    petit nom
    1414  !    titlevar   Titre
    15 
    16   INCLUDE "gradsdef.h"
    1715
    1816  !   arguments

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

    r5136 r5137  
    5353  USE lmdz_iniprint, ONLY: lunout, prt_level
    5454  USE lmdz_comgeom2
     55  USE lmdz_clesphys
    5556
    5657  PRIVATE
    … …  
    6061  INCLUDE "paramet.h"
    6162  INCLUDE "dimsoil.h"
    62   INCLUDE "clesphys.h"
    6363  REAL, SAVE :: deg2rad
    6464  REAL, SAVE, ALLOCATABLE :: tsol(:)

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5136 r5137  
    4343    USE lmdz_iniprint, ONLY: lunout, prt_level
    4444    USE lmdz_comgeom
     45    USE lmdz_tracstoke
    4546
    4647    IMPLICIT NONE
    … …  
    5354    INCLUDE "dimensions.h"
    5455    INCLUDE "paramet.h"
    55     INCLUDE "tracstoke.h"
    5656
    5757    REAL, INTENT (IN) :: prad ! radius of the planet (m)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5134 r5137  
    397397    USE lmdz_iniprint, ONLY: lunout, prt_level
    398398    USE lmdz_alpale
     399    USE lmdz_clesphys
    399400
    400401    IMPLICIT NONE
    401402
    402403    !   INCLUDE "temps.h"
    403     INCLUDE "clesphys.h"
    404404    INCLUDE "compbl.h"
    405405    INCLUDE "dimensions.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_6bands_rrtm.f90

    r5111 r5137  
    1010  USE phys_local_var_mod, ONLY: abs550aer
    1111  USE lmdz_abort_physic, ONLY: abort_physic
     12  USE lmdz_clesphys
    1213
    1314  ! Olivier Boucher Jan 2017
    … …  
    1516
    1617  IMPLICIT NONE
    17 
    18   INCLUDE "clesphys.h"
    1918
    2019  ! Input arguments:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaeropt_lw_rrtm.f90

    r5111 r5137  
    1313  USE lmdz_yoerad, ONLY: NLW
    1414  USE lmdz_abort_physic, ONLY: abort_physic
     15  USE lmdz_clesphys
    1516
    1617  IMPLICIT NONE
    17 
    18   INCLUDE "clesphys.h"
    1918
    2019  ! Input arguments:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/splaerosol_optic_rrtm.f90

    r5101 r5137  
    1414  USE infotrac_phy, ONLY: nbtr, nqtot, tracers
    1515  USE lmdz_yomcst, ONLY: RD, RG
     16  USE lmdz_clesphys
    1617
    1718  IMPLICIT NONE
    18 
    19   INCLUDE "clesphys.h"
    20 
    2119
    2220  ! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

    r5118 r5137  
    1010  USE lmdz_yomcst
    1111  USE lmdz_iniprint, ONLY: lunout, prt_level
     12  USE lmdz_clesphys
    1213
    1314  IMPLICIT NONE
    1415
    1516  INCLUDE "dimensions.h"
    16   INCLUDE "clesphys.h"
    1717  INCLUDE "paramet.h"
    1818

  • LMDZ6/branches/Amaury_dev/libf/phylmd/acama_gwd_rando_m.F90

    r5119 r5137  
    2626    USE lmdz_vertical_layers, ONLY: presnivs
    2727    USE lmdz_abort_physic, ONLY: abort_physic
     28    USE lmdz_clesphys
    2829
    2930    include "YOMCST.h"
    30     include "clesphys.h"
    3131!  OFFLINE:
    3232!   include "dimensions.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/add_phys_tend_mod.F90

    r5134 r5137  
    108108USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    109109             , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     110USE lmdz_clesphys
     111
    110112IMPLICIT NONE
    111113INCLUDE "YOMCST.h"
    112 INCLUDE "clesphys.h"
    113114
    114115! Arguments :
    … …  
    507508USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    508509             , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     510USE lmdz_clesphys
     511
    509512IMPLICIT NONE
    510513  include "YOMCST.h"
    511   include "clesphys.h"
    512514
    513515! Arguments :

  • LMDZ6/branches/Amaury_dev/libf/phylmd/albedo.F90

    r5119 r5137  
    11! $Id$
    22module albedo
     3  USE lmdz_clesphys
    34
    45  IMPLICIT NONE
    … …  
    2021    ! ======================================================================
    2122    include "YOMCST.h"
    22     include "clesphys.h"
    2323
    2424    INTEGER npts ! il controle la precision de l'integration
    … …  
    123123  SUBROUTINE alboc_cd(rmu0, albedo)
    124124    USE dimphy
     125    USE lmdz_clesphys
    125126
    126127    ! Auteur(s): Z.X. Li (LMD/CNRS)
    … …  
    135136    ! albedo (OUT): albedo de surface de l'ocean
    136137    ! ======================================================================
    137     include "clesphys.h"
    138138    REAL, INTENT(IN):: rmu0(klon)
    139139    REAL, INTENT(OUT):: albedo(klon)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/albsno.F90

    r5117 r5137  
    33
    44SUBROUTINE albsno(klon, knon, dtime, agesno, alb_neig_grid, precip_snow)
     5  USE lmdz_clesphys
    56
    67  IMPLICIT NONE
    7 
    8   INCLUDE "clesphys.h"
    98
    109! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calcul_fluxs_mod.F90

    r5117 r5137  
    1919    USE indice_sol_mod
    2020    USE sens_heat_rain_m, ONLY: sens_heat_rain
    21 
    22     INCLUDE "clesphys.h"
     21    USE lmdz_clesphys
    2322
    2423! Cette routine calcule les fluxs en h et q a l'interface et eventuellement
    … …  
    286285
    287286    USE dimphy
     287    USE lmdz_clesphys
     288
    288289    INCLUDE "YOMCST.h"
    289     INCLUDE "clesphys.h"
    290290
    291291! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/calltherm.F90

    r5128 r5137  
    3333      USE lmdz_thermcell_old, ONLY: thermcell, thermcell_2002, thermcell_eau, calcul_sec, thermcell_sec
    3434      USE lmdz_abort_physic, ONLY: abort_physic
     35      USE lmdz_clesphys
    3536
    3637#ifdef ISO
    … …  
    4445
    4546      IMPLICIT NONE
    46       include "clesphys.h"
    4747      include "thermcell_old.h"
    4848

  • LMDZ6/branches/Amaury_dev/libf/phylmd/carbon_cycle_mod.F90

    r5118 r5137  
    225225    USE lmdz_print_control, ONLY: lunout
    226226    USE lmdz_abort_physic, ONLY: abort_physic
     227    USE lmdz_clesphys
    227228
    228229    IMPLICIT NONE
    229     INCLUDE "clesphys.h"
    230230
    231231    ! Local variables
    … …  
    284284    USE lmdz_abort_physic, ONLY: abort_physic
    285285    USE lmdz_iniprint, ONLY: lunout, prt_level
     286    USE lmdz_clesphys
    286287
    287288    IMPLICIT NONE
    … …  
    331332    ! Declarations
    332333
    333     INCLUDE "clesphys.h"
    334334    INCLUDE "dimensions.h"
    335335

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cdrag_mod.F90

    r5117 r5137  
    2929  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    3030  USE lmdz_atke_turbulence_ini, ONLY: smmin, ric, cinf, cepsilon, pr_slope, pr_asym, pr_neut
     31  USE lmdz_clesphys
    3132
    3233  IMPLICIT NONE
    … …  
    118119  INCLUDE "YOMCST.h"
    119120  INCLUDE "YOETHF.h"
    120   INCLUDE "clesphys.h"
    121121
    122122

  • LMDZ6/branches/Amaury_dev/libf/phylmd/change_srf_frac_mod.F90

    r5112 r5137  
    3131    USE lmdz_print_control, ONLY: lunout
    3232    USE lmdz_abort_physic, ONLY: abort_physic
     33    USE lmdz_clesphys ! albedo SB
    3334   
    3435    INCLUDE "YOMCST.h"
    35 !albedo SB >>>
    36     include "clesphys.h"
    37 !albedo SB <<<
    38 
    39 
    4036
    4137! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/clcdrag.F90

    r5111 r5137  
    1010  USE indice_sol_mod
    1111  USE lmdz_abort_physic, ONLY: abort_physic
     12  USE lmdz_clesphys
    1213
    1314  IMPLICIT NONE
    … …  
    4445  INCLUDE "YOMCST.h"
    4546  INCLUDE "YOETHF.h"
    46   INCLUDE "clesphys.h"
    4747
    4848! Quelques constantes et options:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coare30_flux_cnrm_mod.F90

    r5119 r5137  
    8383                            XP00
    8484USE lmdz_abort_physic, ONLY: abort_physic
     85USE lmdz_clesphys
    8586
    8687!USE MODD_SURF_ATM,   ONLY: XVZ0CM
    … …  
    233234
    234235INCLUDE "YOMCST.h"
    235 INCLUDE "clesphys.h"
    236236
    237237!--------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coef_diff_turb_mod.F90

    r5117 r5137  
    1919    USE indice_sol_mod
    2020    USE lmdz_print_control, ONLY: prt_level, lunout
     21    USE lmdz_clesphys
    2122
    2223! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
    … …  
    6061! Include
    6162!****************************************************************************************
    62     INCLUDE "clesphys.h"
    6363    INCLUDE "compbl.h"
    6464    INCLUDE "YOETHF.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/coefcdrag.F90

    r5134 r5137  
    99      USE indice_sol_mod
    1010      USE lmdz_abort_physic, ONLY: abort_physic
     11      USE lmdz_clesphys
    1112
    1213      IMPLICIT NONE
    … …  
    5354      include "YOMCST.h"
    5455      include "YOETHF.h"
    55       INCLUDE "clesphys.h"
    5656! Quelques constantes :
    5757      REAL, parameter :: RKAR=0.40, CB=5.0, CC=5.0, CD=5.0, cepdu2=(0.1)**2

  • LMDZ6/branches/Amaury_dev/libf/phylmd/concvl.F90

    r5112 r5137  
    3434  USE phys_local_var_mod, ONLY: omega
    3535  USE lmdz_print_control, ONLY: prt_level, lunout
     36  USE lmdz_clesphys
     37
    3638  IMPLICIT NONE
    3739! ======================================================================
    … …  
    8486! wght-------output-R
    8587! ======================================================================
    86 
    87 
    88   include "clesphys.h"
    8988
    9089  INTEGER, INTENT(IN)                           :: iflag_clos

  • LMDZ6/branches/Amaury_dev/libf/phylmd/condsurf.F90

    r5111 r5137  
    99  USE netcdf, ONLY: nf90_get_var,nf90_open,nf90_inq_varid,nf90_noerr,nf90_close,nf90_nowrite
    1010  USE lmdz_abort_physic, ONLY: abort_physic
     11  USE lmdz_clesphys
     12
    1113  IMPLICIT NONE
    1214
    … …  
    2527  INTEGER debut(2)
    2628  INTEGER epais(2)
    27 
    28   include "clesphys.h"
    2929
    3030  INTEGER nannemax

  • LMDZ6/branches/Amaury_dev/libf/phylmd/conf_phys_m.F90

    r5134 r5137  
    3838    USE lmdz_abort_physic, ONLY: abort_physic
    3939    USE lmdz_alpale
     40    USE lmdz_clesphys
    4041
    4142    INCLUDE "conema3.h"
    … …  
    4546
    4647    !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
    47     INCLUDE "clesphys.h"
    4848    INCLUDE "compbl.h"
    4949    INCLUDE "comsoil.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/create_etat0_unstruct_mod.F90

    r5134 r5137  
    9393  USE lmdz_ioipsl_getin_p, ONLY: getin_p
    9494  USE lmdz_alpale
     95  USE lmdz_clesphys
    9596
    9697  IMPLICIT NONE
    9798  INCLUDE 'dimsoil.h'
    98   include "clesphys.h"
    9999
    100100    LOGICAL :: no_ter_antartique   ! If true, no land points are allowed at Antartic

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_lmdz1d.F90

    r5128 r5137  
    5151    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
    5252    USE lmdz_1dutils, ONLY: fq_sat, conf_unicol, dyn1deta0, dyn1dredem
     53    USE lmdz_clesphys
    5354
    5455    INCLUDE "dimensions.h"
    5556    INCLUDE "YOMCST.h"
    56     INCLUDE "clesphys.h"
    5757    INCLUDE "dimsoil.h"
    5858    INCLUDE "compar1d.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_scm.F90

    r5128 r5137  
    4444
    4545    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_OUTPUTPHYSSCM
     46    USE lmdz_clesphys
    4647
    4748    INCLUDE "dimensions.h"
    4849    INCLUDE "YOMCST.h"
    49     INCLUDE "clesphys.h"
    5050    INCLUDE "dimsoil.h"
    5151    INCLUDE "compar1d.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_tracstoke.f90

    r5136 r5137  
    1 link ../../dyn3d_common/tracstoke.h
     1link ../../dyn3d_common/lmdz_tracstoke.f90

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ecumev6_flux.F90

    r5117 r5137  
    8888USE MODD_CSTS,             ONLY: XPI, XDAY, XKARMAN, XG, XP00, XSTEFAN, XRD, XRV,   &
    8989                                  XCPD, XCPV, XCL, XTT, XLVTT
     90USE lmdz_clesphys
    9091
    9192
    … …  
    246247
    247248INCLUDE "YOMCST.h"
    248 INCLUDE "clesphys.h"
    249249
    250250!REAL(KIND=JPRB) :: ZHOOK_HANDLE

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90

    r5135 r5137  
    3030USE infotrac_phy, ONLY: nqtot
    3131USE lmdz_abort_physic, ONLY: abort_physic
     32USE lmdz_clesphys
    3233
    3334IMPLICIT NONE
    3435INCLUDE "YOMCST.h"
    3536INCLUDE "YOETHF.h"
    36 INCLUDE "clesphys.h"
    3737INCLUDE "compbl.h"
    3838

  • LMDZ6/branches/Amaury_dev/libf/phylmd/flott_gwd_rando_m.F90

    r5119 r5137  
    2323    USE lmdz_vertical_layers, ONLY: presnivs
    2424    USE lmdz_abort_physic, ONLY: abort_physic
     25    USE lmdz_clesphys
     26
    2527    CHARACTER (LEN = 20) :: modname = 'flott_gwd_rando'
    2628    CHARACTER (LEN = 80) :: abort_message
    2729
    2830    include "YOMCST.h"
    29     include "clesphys.h"
    3031    ! OFFLINE:
    3132    ! include "dimensions.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/fonte_neige_mod.F90

    r5128 r5137  
    240240
    241241    USE indice_sol_mod
     242  USE lmdz_clesphys
    242243#ifdef ISO
    243244    USE infotrac_phy, ONLY: niso
    … …  
    269270  INCLUDE "YOMCST.h"
    270271  INCLUDE "FCTTRE.h"
    271   INCLUDE "clesphys.h"
    272272
    273273! Input variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/freinage.F90

    r5117 r5137  
    77    !ONLINE:
    88    USE dimphy, ONLY: klon, klev
     9    USE lmdz_clesphys
    910!    USE control, ONLY: nvm
    1011!    USE indice_sol_mod, ONLY: nvm_orch
    … …  
    1415
    1516    include "YOMCST.h"
    16     include "clesphys.h"
    1717    include "YOEGWD.h"
    1818!FC

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ice_sursat_mod.F90

    r5112 r5137  
    304304  USE indice_sol_mod,       ONLY: is_ave
    305305  USE lmdz_geometry,         ONLY: cell_area
     306  USE lmdz_clesphys
    306307
    307308  IMPLICIT NONE
    … …  
    309310  INCLUDE "YOETHF.h"
    310311  INCLUDE "FCTTRE.h"
    311   INCLUDE "clesphys.h"
    312312
    313313  ! Input

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ini_undefSTD.F90

    r5113 r5137  
    77  USE phys_state_var_mod ! Variables sauvegardees de la physique
    88  USE phys_cal_mod, ONLY: mth_len
     9  USE lmdz_clesphys
     10
    911  IMPLICIT NONE
    10   include "clesphys.h"
    1112
    1213  ! ====================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iniradia.F90

    r5117 r5137  
    11SUBROUTINE iniradia(klon, klev, pres)
     2USE lmdz_clesphys
    23
    34  IMPLICIT NONE
    … …  
    1920  REAL pres(klev+1)
    2021
    21   include "clesphys.h"
    22 
    2322  ! CALL suphel     ! initialiser constantes et parametres phys.
    2423  ! PRINT*,'Physiq: apres suphel '

  • LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/surf_inlandsis_mod.F90

    r5134 r5137  
    10411041        USE VARtSV
    10421042        USE indice_sol_mod
     1043        USE lmdz_clesphys
    10431044
    10441045        IMPLICIT NONE
    … …  
    10471048        ! Objet: Lecture du fichier de conditions initiales pour SISVAT
    10481049        !======================================================================
    1049         include "clesphys.h"
    10501050        include "compbl.h"
    10511051
    … …  
    12771277        USE indice_sol_mod
    12781278        USE dimphy
     1279        USE lmdz_clesphys
    12791280
    12801281        IMPLICIT NONE
    12811282
    1282         include "clesphys.h"
    12831283        include "compbl.h"
    12841284

  • LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

    r5123 r5137  
    213213  USE ioipsl, ONLY: histbeg
    214214  USE lmdz_wxios, ONLY: wxios_add_file, using_xios
     215  USE lmdz_clesphys
     216
    215217  IMPLICIT NONE
    216   INCLUDE 'clesphys.h'
    217    
     218
    218219  CHARACTER*(*), INTENT(IN) :: name
    219220  INTEGER, INTENT(IN) :: itau0
    … …  
    462463    USE aero_mod, ONLY: naero_tot, name_aero_tau
    463464    USE lmdz_print_control, ONLY: prt_level,lunout
     465    USE lmdz_clesphys
    464466
    465467    IMPLICIT NONE
    466 
    467     INCLUDE "clesphys.h"
    468468
    469469    INTEGER                          :: iff
    … …  
    538538    USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat
    539539    USE lmdz_print_control, ONLY: prt_level,lunout
     540    USE lmdz_clesphys
     541
    540542    IMPLICIT NONE
    541 
    542     INCLUDE "clesphys.h"
    543543
    544544    INTEGER                          :: iff
    … …  
    592592    USE lmdz_wxios, ONLY: wxios_add_field_to_file, using_xios
    593593    USE lmdz_print_control, ONLY: prt_level,lunout
     594    USE lmdz_clesphys
    594595    IMPLICIT NONE
    595 
    596     INCLUDE "clesphys.h"
    597596
    598597    INTEGER                          :: iff
    … …  
    707706    USE lmdz_wxios, ONLY: wxios_add_field_to_file, using_xios
    708707    USE lmdz_print_control, ONLY: prt_level,lunout
     708    USE lmdz_clesphys
     709
    709710    IMPLICIT NONE
    710 
    711     INCLUDE "clesphys.h"
    712711
    713712    INTEGER                          :: iff
    … …  
    955954  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    956955  USE lmdz_print_control, ONLY: lunout, prt_level
     956  USE lmdz_clesphys
    957957
    958958  IMPLICIT NONE
    959   INCLUDE 'clesphys.h'
    960959
    961960  TYPE(ctrl_out), INTENT(IN) :: var
    … …  
    11671166  USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
    11681167  USE lmdz_print_control, ONLY: prt_level,lunout
     1168  USE lmdz_clesphys
    11691169
    11701170  IMPLICIT NONE
    1171   INCLUDE 'clesphys.h'
    11721171
    11731172  TYPE(ctrl_out), INTENT(IN) :: var

  • LMDZ6/branches/Amaury_dev/libf/phylmd/limit_slab.F90

    r5111 r5137  
    1010  USE ocean_slab_mod, ONLY: nslay
    1111  USE lmdz_abort_physic, ONLY: abort_physic
     12  USE lmdz_clesphys
    1213
    1314  IMPLICIT NONE
    14 
    15   INCLUDE "clesphys.h"
    1615
    1716! In- and ouput arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_clesphys.f90

    r5136 r5137  
    11! $Id$
    2 
    3 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    4 !                 veillez \`a n'utiliser que des ! pour les commentaires
    5 !                 et \`a bien positionner les & des lignes de continuation
    6 !                 (les placer en colonne 6 et en colonne 73)
    7 
    8 !..include cles_phys.h
    9 
    10        ! threshold on to activate SSO schemes
    11        REAL zrel_oro_t, zpmm_orodr_t, zpmm_orolf_t, zstd_orodr_t
    12        INTEGER iflag_cycle_diurne
    13        LOGICAL soil_model,new_oliq,ok_orodr,ok_orolf
    14        LOGICAL ok_limitvrai
    15        LOGICAL ok_all_xml
    16        LOGICAL ok_lwoff
    17        INTEGER nbapp_rad, iflag_con, nbapp_cv, nbapp_wk, iflag_ener_conserv
    18        REAL co2_ppm, co2_ppm0, solaire
    19        INTEGER iflag_thermals,nsplit_thermals
    20        INTEGER iflag_physiq
    21        REAL tau_thermals
    22 
    23 !FC
    24        REAL Cd_frein
    25        LOGICAL ok_suntime_rrtm
    26        REAL(kind=8) RCO2, RCH4, RN2O, RCFC11, RCFC12 
    27        REAL(kind=8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act 
    28        REAL(kind=8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
    29 !IM ajout CFMIP2/CMIP5
    30        REAL(kind=8) RCO2_per,RCH4_per,RN2O_per,RCFC11_per,RCFC12_per
    31        REAL(kind=8) CH4_ppb_per,N2O_ppb_per,CFC11_ppt_per,CFC12_ppt_per
    32 
    33 !OM ---> correction du bilan d'eau global
    34 !OM Correction sur precip KE
    35        REAL cvl_corr
    36 !OM Fonte calotte dans bilan eau
    37        LOGICAL ok_lic_melt
    38 !OB Depot de vapeur d eau sur la calotte pour le bilan eau
    39        LOGICAL ok_lic_cond
    40 
    41 !IM simulateur ISCCP
    42        INTEGER top_height, overlap
    43 !IM seuils cdrm, cdrh
    44        REAL cdmmax, cdhmax
    45 !IM pour les params différentes Olivier Torres
    46        INTEGER choix_bulk, nit_bulk, kz0
    47 !IM param. stabilite s/ terres et en dehors
    48        REAL ksta, ksta_ter, f_ri_cd_min
    49 !IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
    50        LOGICAL ok_kzmin
    51 !IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif -
    52 !                          pour regler l albedo sur ocean
    53        REAL fmagic, pmagic
    54 ! Hauteur (imposee) du contenu en eau du sol
    55            REAL qsol0,albsno0,evap0
    56 ! Frottement au sol (Cdrag)
    57        Real f_cdrag_ter,f_cdrag_oce
    58        REAL min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce
    59        REAL z0m_seaice,z0h_seaice
    60        REAL z0m_landice, z0h_landice
    61        INTEGER iflag_gusts,iflag_z0_oce
    62 
    63 ! Rugoro
    64        Real f_rugoro,z0min
    65 
    66 ! tau_gl : constante de rappel de la temperature a la surface de la glace
    67        REAL tau_gl
    68 
    69 !IM lev_histhf  : niveau sorties 6h
    70 !IM lev_histday : niveau sorties journalieres
    71 !IM lev_histmth : niveau sorties mensuelles
    72 !IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
    73 !                    sur 17 niveaux de pression
    74        INTEGER lev_histhf, lev_histday, lev_histmth
    75        INTEGER lev_histdayNMC
    76        Integer lev_histins, lev_histLES 
    77 !IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
    78 !IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
    79 !IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
    80        LOGICAL ok_histNMC(3)
    81        INTEGER levout_histNMC(3)
    82        REAL freq_outNMC(3) , freq_calNMC(3)
    83        CHARACTER(len=4) type_run
    84 ! aer_type: pour utiliser un fichier constant dans readaerosol
    85        CHARACTER(len=8) :: aer_type
    86        LOGICAL ok_regdyn
    87        REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
    88        REAL ecrit_ins, ecrit_hf, ecrit_day
    89        REAL ecrit_mth, ecrit_tra, ecrit_reg
    90        REAL ecrit_LES
    91        REAL freq_ISCCP, ecrit_ISCCP
    92        REAL freq_COSP, freq_AIRS
    93        LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
    94        LOGICAL :: ok_airs
    95        INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
    96        LOGICAL :: ok_ice_sursat, ok_plane_h2o, ok_plane_contrail
    97        LOGICAL :: ok_chlorophyll
    98        LOGICAL :: ok_strato
    99        LOGICAL :: ok_hines, ok_gwd_rando
    100        LOGICAL :: ok_qch4
    101        LOGICAL :: ok_conserv_q
    102        LOGICAL :: adjust_tropopause
    103        LOGICAL :: ok_daily_climoz
    104        LOGICAL :: ok_new_lscp
    105        LOGICAL :: ok_bs, ok_rad_bs
    106 ! flag to bypass or not the phytrac module
    107        INTEGER :: iflag_phytrac
    108 
    109 !AI flags pour ECRAD       
    110        LOGICAL :: ok_3Deffect
    111 
    112 !OB flag to activate water mass fixer in physiq
    113        LOGICAL :: ok_water_mass_fixer
    114 
    115        COMMON/clesphys/                                                 &
    116 ! REAL FIRST
    117 ! rajout choix_bulk et nit_bulk kz0 par Olivier Torres
    118              co2_ppm, solaire                                           &
    119            , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
    120            , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
    121            , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
    122            , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
    123            , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
    124            , cdmmax,cdhmax,ksta,ksta_ter,f_ri_cd_min                    &
    125            , fmagic, pmagic                                             &
    126            , f_cdrag_ter,f_cdrag_oce,f_rugoro,z0min,tau_gl              &
    127            , min_wind_speed,f_gust_wk,f_gust_bl,f_qsat_oce,f_z0qh_oce   &
    128            , z0m_seaice,z0h_seaice,z0m_landice,z0h_landice              &
    129            , freq_outNMC, freq_calNMC                                   &
    130            , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
    131            , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
    132            , cvl_corr                                                   &
    133            , qsol0,albsno0,evap0                                        &
    134            , co2_ppm0                                                   &
    135            , tau_thermals                                               &
    136 !FC
    137            , Cd_frein,zrel_oro_t,zpmm_orodr_t,zpmm_orolf_t,zstd_orodr_t &
    138            , ecrit_LES                                                  &
    139            , ecrit_ins, ecrit_hf, ecrit_day                             &
    140            , ecrit_mth, ecrit_tra, ecrit_reg                            &
    141 ! THEN INTEGER AND LOGICALS
    142            , top_height                                                 &
    143            , iflag_cycle_diurne, soil_model, new_oliq                   &
    144            , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
    145            , iflag_con, nbapp_cv, nbapp_wk                              &
    146            , choix_bulk, nit_bulk, kz0                                  &
    147            , iflag_ener_conserv                                         &
    148            , ok_suntime_rrtm                                            &
    149            , overlap                                                    &
    150            , ok_kzmin                                                   &
    151            , lev_histhf, lev_histday, lev_histmth                       &
    152            , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
    153            , ok_histNMC                                                 &
    154            , type_run, ok_regdyn, ok_cosp, ok_airs                      &
    155            , ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP                     &
    156            , ip_ebil_phy                                                &
    157            , iflag_gusts ,iflag_z0_oce                                  &
    158            , ok_lic_melt, ok_lic_cond, aer_type                         &
    159            , iflag_rrtm, ok_strato,ok_hines, ok_qch4                    &
    160            , iflag_ice_thermo, ok_ice_sursat                            &
    161            , ok_plane_h2o, ok_plane_contrail                            &
    162            , ok_gwd_rando, NSW, iflag_albedo                            &
    163            , ok_chlorophyll,ok_conserv_q, adjust_tropopause             &
    164            , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
    165            , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
    166            ,  iflag_thermals,nsplit_thermals              &
    167            , iflag_physiq, ok_3Deffect, ok_water_mass_fixer
    168        save /clesphys/
    169 !$OMP THREADPRIVATE(/clesphys/)
     2! Replaces clesphys.h
     3
     4MODULE lmdz_clesphys
     5  IMPLICIT NONE; PRIVATE
     6
     7  PUBLIC co2_ppm, solaire                                           &
     8          , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
     9          , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
     10          , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
     11          , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
     12          , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
     13          , cdmmax, cdhmax, ksta, ksta_ter, f_ri_cd_min                    &
     14          , fmagic, pmagic                                             &
     15          , f_cdrag_ter, f_cdrag_oce, f_rugoro, z0min, tau_gl              &
     16          , min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce   &
     17          , z0m_seaice, z0h_seaice, z0m_landice, z0h_landice              &
     18          , freq_outNMC, freq_calNMC                                   &
     19          , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
     20          , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
     21          , cvl_corr                                                   &
     22          , qsol0, albsno0, evap0                                        &
     23          , co2_ppm0                                                   &
     24          , tau_thermals                                               &
     25          , Cd_frein, zrel_oro_t, zpmm_orodr_t, zpmm_orolf_t, zstd_orodr_t &
     26          , ecrit_LES                                                  &
     27          , ecrit_ins, ecrit_hf, ecrit_day                             &
     28          , ecrit_mth, ecrit_tra, ecrit_reg                            &
     29          , top_height                                                 &
     30          , iflag_cycle_diurne, soil_model, new_oliq                   &
     31          , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
     32          , iflag_con, nbapp_cv, nbapp_wk                              &
     33          , choix_bulk, nit_bulk, kz0                                  &
     34          , iflag_ener_conserv                                         &
     35          , ok_suntime_rrtm                                            &
     36          , overlap                                                    &
     37          , ok_kzmin                                                   &
     38          , lev_histhf, lev_histday, lev_histmth                       &
     39          , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
     40          , ok_histNMC                                                 &
     41          , type_run, ok_regdyn, ok_cosp, ok_airs                      &
     42          , ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP                     &
     43          , ip_ebil_phy                                                &
     44          , iflag_gusts, iflag_z0_oce                                  &
     45          , ok_lic_melt, ok_lic_cond, aer_type                         &
     46          , iflag_rrtm, ok_strato, ok_hines, ok_qch4                    &
     47          , iflag_ice_thermo, ok_ice_sursat                            &
     48          , ok_plane_h2o, ok_plane_contrail                            &
     49          , ok_gwd_rando, NSW, iflag_albedo                            &
     50          , ok_chlorophyll, ok_conserv_q, adjust_tropopause             &
     51          , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
     52          , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
     53          , iflag_thermals, nsplit_thermals              &
     54          , iflag_physiq, ok_3Deffect, ok_water_mass_fixer
     55
     56
     57  ! threshold on to activate SSO schemes
     58  ! threshold on to activate SSO schemes
     59  REAL zrel_oro_t, zpmm_orodr_t, zpmm_orolf_t, zstd_orodr_t
     60  INTEGER iflag_cycle_diurne
     61  LOGICAL soil_model, new_oliq, ok_orodr, ok_orolf
     62  LOGICAL ok_limitvrai
     63  LOGICAL ok_all_xml
     64  LOGICAL ok_lwoff
     65  INTEGER nbapp_rad, iflag_con, nbapp_cv, nbapp_wk, iflag_ener_conserv
     66  REAL co2_ppm, co2_ppm0, solaire
     67  INTEGER iflag_thermals, nsplit_thermals
     68  INTEGER iflag_physiq
     69  REAL tau_thermals
     70
     71  !FC
     72  REAL Cd_frein
     73  LOGICAL ok_suntime_rrtm
     74  REAL(kind = 8) RCO2, RCH4, RN2O, RCFC11, RCFC12
     75  REAL(kind = 8) RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act
     76  REAL(kind = 8) CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt
     77  !IM ajout CFMIP2/CMIP5
     78  REAL(kind = 8) RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per
     79  REAL(kind = 8) CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per
     80
     81  !OM ---> correction du bilan d'eau global
     82  !OM Correction sur precip KE
     83  REAL cvl_corr
     84  !OM Fonte calotte dans bilan eau
     85  LOGICAL ok_lic_melt
     86  !OB Depot de vapeur d eau sur la calotte pour le bilan eau
     87  LOGICAL ok_lic_cond
     88
     89  !IM simulateur ISCCP
     90  INTEGER top_height, overlap
     91  !IM seuils cdrm, cdrh
     92  REAL cdmmax, cdhmax
     93  !IM pour les params différentes Olivier Torres
     94  INTEGER choix_bulk, nit_bulk, kz0
     95  !IM param. stabilite s/ terres et en dehors
     96  REAL ksta, ksta_ter, f_ri_cd_min
     97  !IM ok_kzmin : clef calcul Kzmin dans la CL de surface cf FH
     98  LOGICAL ok_kzmin
     99  !IM, MAFo fmagic, pmagic : parametres - additionnel et multiplicatif -
     100  !                          pour regler l albedo sur ocean
     101  REAL fmagic, pmagic
     102  ! Hauteur (imposee) du contenu en eau du sol
     103  REAL qsol0, albsno0, evap0
     104  ! Frottement au sol (Cdrag)
     105  Real f_cdrag_ter, f_cdrag_oce
     106  REAL min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce
     107  REAL z0m_seaice, z0h_seaice
     108  REAL z0m_landice, z0h_landice
     109  INTEGER iflag_gusts, iflag_z0_oce
     110
     111  ! Rugoro
     112  Real f_rugoro, z0min
     113
     114  ! tau_gl : constante de rappel de la temperature a la surface de la glace
     115  REAL tau_gl
     116
     117  !IM lev_histhf  : niveau sorties 6h
     118  !IM lev_histday : niveau sorties journalieres
     119  !IM lev_histmth : niveau sorties mensuelles
     120  !IM lev_histdayNMC : on peut sortir soit sur 8 (comme AR5) ou bien
     121  !                    sur 17 niveaux de pression
     122  INTEGER lev_histhf, lev_histday, lev_histmth
     123  INTEGER lev_histdayNMC
     124  Integer lev_histins, lev_histLES
     125  !IM ok_histNMC  : sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
     126  !IM freq_outNMC : frequences de sortie fichiers niveaux de pression (histmthNMC, histdayNMC, histhfNMC)
     127  !IM freq_calNMC : frequences de calcul fis. hist*NMC.nc
     128  LOGICAL ok_histNMC(3)
     129  INTEGER levout_histNMC(3)
     130  REAL freq_outNMC(3), freq_calNMC(3)
     131  CHARACTER(len = 4) type_run
     132  ! aer_type: pour utiliser un fichier constant dans readaerosol
     133  CHARACTER(len = 8) :: aer_type
     134  LOGICAL ok_regdyn
     135  REAL lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
     136  REAL ecrit_ins, ecrit_hf, ecrit_day
     137  REAL ecrit_mth, ecrit_tra, ecrit_reg
     138  REAL ecrit_LES
     139  REAL freq_ISCCP, ecrit_ISCCP
     140  REAL freq_COSP, freq_AIRS
     141  LOGICAL :: ok_cosp, ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP
     142  LOGICAL :: ok_airs
     143  INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo, NSW, iflag_albedo
     144  LOGICAL :: ok_ice_sursat, ok_plane_h2o, ok_plane_contrail
     145  LOGICAL :: ok_chlorophyll
     146  LOGICAL :: ok_strato
     147  LOGICAL :: ok_hines, ok_gwd_rando
     148  LOGICAL :: ok_qch4
     149  LOGICAL :: ok_conserv_q
     150  LOGICAL :: adjust_tropopause
     151  LOGICAL :: ok_daily_climoz
     152  LOGICAL :: ok_new_lscp
     153  LOGICAL :: ok_bs, ok_rad_bs
     154  ! flag to bypass or not the phytrac module
     155  INTEGER :: iflag_phytrac
     156
     157  !AI flags pour ECRAD
     158  LOGICAL :: ok_3Deffect
     159
     160  !OB flag to activate water mass fixer in physiq
     161  LOGICAL :: ok_water_mass_fixer
     162
     163
     164  !$OMP THREADPRIVATE(co2_ppm, solaire                                           &
     165  !$OMP      , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
     166  !$OMP      , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &
     167  !$OMP      , RCO2_per, RCH4_per, RN2O_per, RCFC11_per, RCFC12_per       &
     168  !$OMP      , CH4_ppb, N2O_ppb, CFC11_ppt, CFC12_ppt                     &
     169  !$OMP      , CH4_ppb_per, N2O_ppb_per, CFC11_ppt_per, CFC12_ppt_per     &
     170  !$OMP      , cdmmax, cdhmax, ksta, ksta_ter, f_ri_cd_min                    &
     171  !$OMP      , fmagic, pmagic                                             &
     172  !$OMP      , f_cdrag_ter, f_cdrag_oce, f_rugoro, z0min, tau_gl              &
     173  !$OMP      , min_wind_speed, f_gust_wk, f_gust_bl, f_qsat_oce, f_z0qh_oce   &
     174  !$OMP      , z0m_seaice, z0h_seaice, z0m_landice, z0h_landice              &
     175  !$OMP      , freq_outNMC, freq_calNMC                                   &
     176  !$OMP      , lonmin_ins, lonmax_ins, latmin_ins, latmax_ins             &
     177  !$OMP      , freq_ISCCP, ecrit_ISCCP, freq_COSP, freq_AIRS              &
     178  !$OMP      , cvl_corr                                                   &
     179  !$OMP      , qsol0, albsno0, evap0                                        &
     180  !$OMP      , co2_ppm0                                                   &
     181  !$OMP      , tau_thermals                                               &
     182  !$OMP      , Cd_frein, zrel_oro_t, zpmm_orodr_t, zpmm_orolf_t, zstd_orodr_t &
     183  !$OMP      , ecrit_LES                                                  &
     184  !$OMP      , ecrit_ins, ecrit_hf, ecrit_day                             &
     185  !$OMP      , ecrit_mth, ecrit_tra, ecrit_reg                            &
     186  !$OMP      , top_height                                                 &
     187  !$OMP      , iflag_cycle_diurne, soil_model, new_oliq                   &
     188  !$OMP      , ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad                &
     189  !$OMP      , iflag_con, nbapp_cv, nbapp_wk                              &
     190  !$OMP      , choix_bulk, nit_bulk, kz0                                  &
     191  !$OMP      , iflag_ener_conserv                                         &
     192  !$OMP      , ok_suntime_rrtm                                            &
     193  !$OMP      , overlap                                                    &
     194  !$OMP      , ok_kzmin                                                   &
     195  !$OMP      , lev_histhf, lev_histday, lev_histmth                       &
     196  !$OMP      , lev_histins, lev_histLES, lev_histdayNMC, levout_histNMC   &
     197  !$OMP      , ok_histNMC                                                 &
     198  !$OMP      , type_run, ok_regdyn, ok_cosp, ok_airs                      &
     199  !$OMP      , ok_mensuelCOSP, ok_journeCOSP, ok_hfCOSP                     &
     200  !$OMP      , ip_ebil_phy                                                &
     201  !$OMP      , iflag_gusts, iflag_z0_oce                                  &
     202  !$OMP      , ok_lic_melt, ok_lic_cond, aer_type                         &
     203  !$OMP      , iflag_rrtm, ok_strato, ok_hines, ok_qch4                    &
     204  !$OMP      , iflag_ice_thermo, ok_ice_sursat                            &
     205  !$OMP      , ok_plane_h2o, ok_plane_contrail                            &
     206  !$OMP      , ok_gwd_rando, NSW, iflag_albedo                            &
     207  !$OMP      , ok_chlorophyll, ok_conserv_q, adjust_tropopause             &
     208  !$OMP      , ok_daily_climoz, ok_all_xml, ok_lwoff                      &
     209  !$OMP      , iflag_phytrac, ok_new_lscp, ok_bs, ok_rad_bs               &
     210  !$OMP      , iflag_thermals, nsplit_thermals              &
     211  !$OMP      , iflag_physiq, ok_3Deffect, ok_water_mass_fixer)
     212
     213END MODULE lmdz_clesphys

  • LMDZ6/branches/Amaury_dev/libf/phylmd/moy_undefSTD.F90

    r5117 r5137  
    99 
    1010  USE phys_cal_mod, ONLY: mth_len
     11  USE lmdz_clesphys
     12
    1113  IMPLICIT NONE
    12   include "clesphys.h"
    1314  REAL :: missing_val
    1415

  • LMDZ6/branches/Amaury_dev/libf/phylmd/nuage.F90

    r5116 r5137  
    99  USE lmdz_lscp_ini, ONLY: iflag_t_glace
    1010  USE phys_local_var_mod, ONLY: ptconv
     11  USE lmdz_clesphys
     12
    1113  IMPLICIT NONE
    1214  ! ======================================================================
    … …  
    4042  include "YOMCST.h"
    4143  include "nuage.h" ! JBM 3/14
    42   include "clesphys.h"
    4344
    4445  REAL paprs(klon, klev+1), pplay(klon, klev)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo.F90

    r5101 r5137  
    4545USE dimphy
    4646USE phys_state_var_mod, ONLY: chl_con
    47 
     47USE lmdz_clesphys
    4848
    4949IMPLICIT NONE
    … …  
    5151!*      0.1    declarations of arguments
    5252!              -------------------------
    53 
    54 include "clesphys.h"
    5553
    5654INTEGER, INTENT(IN) :: knon

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_cpl_mod.F90

    r5117 r5137  
    6868         cpl_send_ocean_fields
    6969    USE config_ocean_skin_m, ONLY: activate_ocean_skin
     70    USE lmdz_clesphys
    7071
    7172    INCLUDE "YOMCST.h"
    72     INCLUDE "clesphys.h"
    7373
    7474! Input arguments 
    … …  
    257257    USE indice_sol_mod
    258258    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     259    USE lmdz_clesphys
    259260
    260261    INCLUDE "YOMCST.h"
    261     INCLUDE "clesphys.h"
    262262
    263263! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_forced_mod.F90

    r5117 r5137  
    4141    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    4242    USE config_ocean_skin_m, ONLY: activate_ocean_skin
     43  USE lmdz_clesphys
    4344#ifdef ISO
    4445    USE infotrac_phy, ONLY: ntiso,niso
    … …  
    5253
    5354    INCLUDE "YOMCST.h"
    54     INCLUDE "clesphys.h"
    5555    INCLUDE "flux_arp.h"
    5656
    … …  
    267267    USE indice_sol_mod
    268268    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     269  USE lmdz_clesphys
    269270#ifdef ISO
    270271    USE infotrac_phy, ONLY: niso, ntiso
    … …  
    280281    INCLUDE "dimsoil.h"
    281282    INCLUDE "YOMCST.h"
    282     INCLUDE "clesphys.h"
    283283    INCLUDE "flux_arp.h"
    284284

  • LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_slab_mod.F90

    r5112 r5137  
    1212  USE lmdz_abort_physic, ONLY: abort_physic
    1313
    14   IMPLICIT NONE
    15   PRIVATE
     14  IMPLICIT NONE; PRIVATE
    1615  PUBLIC :: ocean_slab_init, ocean_slab_frac, ocean_slab_noice, ocean_slab_ice
    1716
    … …  
    346345    USE slab_heat_transp_mod, ONLY: divgrad_phy, slab_ekman1, slab_ekman2, slab_gmdiff
    347346    USE lmdz_phys_para
    348 
    349     INCLUDE "clesphys.h"
     347    USE lmdz_clesphys
    350348
    351349    ! This routine
    … …  
    683681
    684682    USE calcul_fluxs_mod
     683    USE lmdz_clesphys
     684
     685    IMPLICIT NONE
    685686
    686687    INCLUDE "YOMCST.h"
    687     INCLUDE "clesphys.h"
    688688
    689689    ! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/paramlmdz_phy_mod.F90

    r5116 r5137  
    1616    USE time_phylmdz_mod, ONLY: annee_ref, day_ref, itau_phy, pdtphys
    1717    USE lmdz_phys_transfert_para, ONLY: gather, bcast
     18    USE lmdz_clesphys
    1819
    1920    IMPLICIT NONE
    2021
    21     include "clesphys.h"
    2222    include "YOMCST.h"
    2323
    … …  
    150150    USE ioipsl, ONLY: histwrite, histsync
    151151
     152    USE lmdz_clesphys
     153
    152154#ifdef CPP_RRTM
    153155    USE YOESW, ONLY: RSUN
    … …  
    156158    IMPLICIT NONE
    157159
    158     include "clesphys.h"
    159160    include "YOMCST.h"
    160161

  • LMDZ6/branches/Amaury_dev/libf/phylmd/pbl_surface_mod.F90

    r5128 r5137  
    414414    USE lmdz_wxios, ONLY: missing_val_xios => missing_val, using_xios
    415415    USE netcdf, ONLY: missing_val_netcdf => nf90_fill_real
     416  USE lmdz_clesphys
    416417
    417418    IMPLICIT NONE
    … …  
    421422    INCLUDE "YOETHF.h"
    422423    INCLUDE "FCTTRE.h"
    423     INCLUDE "clesphys.h"
    424424    INCLUDE "compbl.h"
    425425    INCLUDE "flux_arp.h"
    … …  
    42724272            dser, dt_ds
    42734273    USE config_ocean_skin_m, ONLY: activate_ocean_skin
     4274  USE lmdz_clesphys
    42744275
    42754276    INCLUDE "dimsoil.h"
    4276     INCLUDE "clesphys.h"
    42774277    INCLUDE "compbl.h"
    42784278

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyaqua_mod.F90

    r5117 r5137  
    3838    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    3939    USE phys_cal_mod, ONLY: calend, year_len_phy => year_len
     40    USE lmdz_clesphys
     41
    4042    IMPLICIT NONE
    4143
    4244    include "YOMCST.h"
    43     include "clesphys.h"
    4445    include "dimsoil.h"
    4546

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyetat0_mod.F90

    r5134 r5137  
    4343    USE config_ocean_skin_m, ONLY: activate_ocean_skin
    4444    USE lmdz_alpale
     45    USE lmdz_clesphys
    4546
    4647    IMPLICIT NONE
    … …  
    5051    !======================================================================
    5152    include "dimsoil.h"
    52     include "clesphys.h"
    5353    include "compbl.h"
    5454    include "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phyredem.F90

    r5134 r5137  
    4343  USE lmdz_abort_physic, ONLY: abort_physic
    4444  USE lmdz_alpale
     45  USE lmdz_clesphys
    4546
    4647  IMPLICIT NONE
    4748
    4849  include "dimsoil.h"
    49   include "clesphys.h"
    5050  include "compbl.h"
    5151  !======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_mod.F90

    r5117 r5137  
    5656#endif
    5757    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
     58    USE lmdz_clesphys
    5859
    5960    IMPLICIT NONE
    60     include "clesphys.h"
    6161    include "YOMCST.h"
    6262

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_var_mod.F90

    r5117 r5137  
    187187    USE dimphy
    188188    USE config_ocean_skin_m, ONLY: activate_ocean_skin
     189    USE lmdz_clesphys
    189190
    190191    IMPLICIT NONE
    191 
    192     include "clesphys.h"
    193192
    194193    !------------------------------------------------
    … …  
    266265  SUBROUTINE phys_output_var_end
    267266    USE dimphy
     267    USE lmdz_clesphys
     268
    268269    IMPLICIT NONE
    269 
    270     include "clesphys.h"
    271270
    272271    deallocate(snow_o,zfra_o,itau_con)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_output_write_mod.F90

    r5134 r5137  
    469469    USE lmdz_vertical_layers, ONLY: presnivs
    470470    USE lmdz_alpale
     471    USE lmdz_clesphys
    471472
    472473    IMPLICIT NONE
    473474
    474     INCLUDE "clesphys.h"
    475475    INCLUDE "compbl.h"
    476476    INCLUDE "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phys_state_var_mod.F90

    r5117 r5137  
    542542USE config_ocean_skin_m, ONLY: activate_ocean_skin
    543543USE surface_data, ONLY: type_ocean
     544      USE lmdz_clesphys
     545
    544546IMPLICIT NONE
    545547
    … …  
    551553! 2: read two ozone climatologies, the average day and night
    552554! climatology and the daylight climatology
    553 
    554 include "clesphys.h"
    555555
    556556      PRINT*, 'is_initialized', is_initialized
    … …  
    799799USE config_ocean_skin_m, ONLY: activate_ocean_skin
    800800USE surface_data, ONLY: type_ocean
     801USE lmdz_clesphys
     802
    801803IMPLICIT NONE
    802 include "clesphys.h"
    803804
    804805      DEALLOCATE(pctsrf, ftsol, falb1, falb2)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/physiq_mod.F90

    r5134 r5137  
    351351    USE lmdz_simu_airs, ONLY: simu_airs
    352352    USE lmdz_alpale
     353    USE lmdz_clesphys
    353354
    354355    IMPLICIT NONE
    … …  
    405406    include "regdim.h"
    406407    include "dimsoil.h"
    407     include "clesphys.h"
    408408    include "dimpft.h"
    409409    !======================================================================

  • LMDZ6/branches/Amaury_dev/libf/phylmd/phytrac_mod.F90

    r5117 r5137  
    149149    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    150150    USE lmdz_yomcst
     151    USE lmdz_clesphys
    151152
    152153    IMPLICIT NONE
    153154
    154     INCLUDE "clesphys.h"
    155155    !==========================================================================
    156156    !                   -- ARGUMENT DESCRIPTION --

  • LMDZ6/branches/Amaury_dev/libf/phylmd/printflag.F90

    r5105 r5137  
    33
    44SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)
     5  ! Auteur :  P. Le Van
    56
    6 
    7 
    8   ! Auteur :  P. Le Van
     7  USE lmdz_clesphys
    98
    109  IMPLICIT NONE
    … …  
    1514  LOGICAL ok_journe, ok_instan, ok_region
    1615  INTEGER radpas, radpas0
    17 
    18   include "clesphys.h"
    19 
    2016
    2117  PRINT 100

  • LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90

    r5112 r5137  
    77  USE dimphy
    88  USE lmdz_print_control, ONLY: lunout
     9  USE lmdz_clesphys
     10
    911  IMPLICIT NONE
    1012
    … …  
    4850  ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2  ! concentration CO2 (IPCC:
    4951  ! 353.E-06*44.011/28.97)
    50   include "clesphys.h"
    5152
    5253  REAL (KIND=8) ppsol(kdlon) ! SURFACE PRESSURE (PA)
    … …  
    313314  USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
    314315    rtdumg, rth2o, rtumg
     316  USE lmdz_clesphys, ONLY: RCO2
     317
    315318  IMPLICIT NONE
    316319  include "radepsi.h"
    … …  
    321324
    322325  REAL (KIND=8) psct
    323   ! IM ctes ds clesphys.h   REAL(KIND=8) RCO2
    324   include "clesphys.h"
     326
    325327  REAL (KIND=8) pcldsw(kdlon, kflev)
    326328  REAL (KIND=8) ppmb(kdlon, kflev+1)
    … …  
    21262128  USE dimphy
    21272129  USE lmdz_print_control, ONLY: lunout
     2130    ! IM ctes ds clesphys.h
     2131  ! REAL(KIND=8) RCO2   ! CO2 CONCENTRATION (IPCC:353.E-06* 44.011/28.97)
     2132  ! REAL(KIND=8) RCH4   ! CH4 CONCENTRATION (IPCC: 1.72E-06* 16.043/28.97)
     2133  ! REAL(KIND=8) RN2O   ! N2O CONCENTRATION (IPCC: 310.E-09* 44.013/28.97)
     2134  ! REAL(KIND=8) RCFC11 ! CFC11 CONCENTRATION (IPCC: 280.E-12* 137.3686/28.97)
     2135  ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12* 120.9140/28.97)
     2136  USE lmdz_clesphys, ONLY: rco2, rch4, rn2o, rcfc11, rcfc12
     2137
    21282138  IMPLICIT NONE
    21292139  include "raddimlw.h"
    … …  
    21592169  ! ORIGINAL : 89-07-14
    21602170  ! -----------------------------------------------------------------------
    2161   ! IM ctes ds clesphys.h
    2162   ! REAL(KIND=8) RCO2   ! CO2 CONCENTRATION (IPCC:353.E-06* 44.011/28.97)
    2163   ! REAL(KIND=8) RCH4   ! CH4 CONCENTRATION (IPCC: 1.72E-06* 16.043/28.97)
    2164   ! REAL(KIND=8) RN2O   ! N2O CONCENTRATION (IPCC: 310.E-09* 44.013/28.97)
    2165   ! REAL(KIND=8) RCFC11 ! CFC11 CONCENTRATION (IPCC: 280.E-12*
    2166   ! 137.3686/28.97)
    2167   ! REAL(KIND=8) RCFC12 ! CFC12 CONCENTRATION (IPCC: 484.E-12*
    2168   ! 120.9140/28.97)
    2169   include "clesphys.h"
     2171
    21702172  REAL (KIND=8) pcldld(kdlon, kflev) ! DOWNWARD EFFECTIVE CLOUD COVER
    21712173  REAL (KIND=8) pcldlu(kdlon, kflev) ! UPWARD EFFECTIVE CLOUD COVER
    … …  
    23172319  USE chem_rep, ONLY: rch42d, rn2o2d, rcfc112d, rcfc122d, ok_rtime2d
    23182320#endif
     2321    ! IM ctes ds clesphys.h
     2322  ! REAL(KIND=8) RCO2
     2323  ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12
     2324  USE lmdz_clesphys, ONLY: rco2, rch4, rn2o, rcfc11, rcfc12
    23192325
    23202326  IMPLICIT NONE
    … …  
    23522358  ! -----------------------------------------------------------------------
    23532359  ! * ARGUMENTS:
    2354   ! IM ctes ds clesphys.h
    2355   ! REAL(KIND=8) RCO2
    2356   ! REAL(KIND=8) RCH4, RN2O, RCFC11, RCFC12
    2357   include "clesphys.h"
    23582360  REAL (KIND=8) paer(kdlon, kflev, 5)
    23592361  REAL (KIND=8) pdp(kdlon, kflev)

  • LMDZ6/branches/Amaury_dev/libf/phylmd/radlwsw_m.F90

    r5133 r5137  
    5151    USE infotrac_phy, ONLY: type_trac
    5252    USE lmdz_writefield_phy
     53    USE lmdz_clesphys
    5354
    5455#ifdef REPROBUS
    … …  
    192193    include "YOETHF.h"
    193194    include "YOMCST.h"
    194     include "clesphys.h"
    195195
    196196    ! Input arguments

  • LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_interp.F90

    r5133 r5137  
    2323  USE lmdz_print_control, ONLY: lunout
    2424  USE lmdz_abort_physic, ONLY: abort_physic
     25  USE lmdz_clesphys
    2526
    2627  IMPLICIT NONE
    … …  
    2829  INCLUDE "YOMCST.h"
    2930  INCLUDE "chem.h"
    30   INCLUDE "clesphys.h"
    3131
    3232  ! Input:

  • LMDZ6/branches/Amaury_dev/libf/phylmd/regr_pr_time_av_m.F90

    r5133 r5137  
    129129    USE lmdz_geometry, ONLY: ind_cell_glo
    130130    USE lmdz_abort_physic, ONLY: abort_physic
     131    USE lmdz_clesphys
     132
    131133    !-------------------------------------------------------------------------------
    132134    ! Arguments:
    … …  
    148150    !-------------------------------------------------------------------------------
    149151    ! Local variables:
    150     include "clesphys.h"
    151152    include "YOMCST.h"
    152153    CHARACTER(LEN = 80) :: sub

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_bucket_mod.F90

    r5117 r5137  
    3434    USE lmdz_phys_para
    3535    USE indice_sol_mod
     36  USE lmdz_clesphys
     37 
    3638#ifdef ISO
    3739    USE infotrac_phy, ONLY: ntiso,niso
    … …  
    4749! Bucket calculations for surface.
    4850
    49     INCLUDE "clesphys.h"
    5051    INCLUDE "dimsoil.h"
    5152    INCLUDE "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_land_mod.F90

    r5117 r5137  
    7474
    7575    USE lmdz_print_control, ONLY: lunout
     76  USE lmdz_clesphys
    7677
    7778    INCLUDE "dimsoil.h"
    7879    INCLUDE "YOMCST.h"
    79     INCLUDE "clesphys.h"
    8080    INCLUDE "dimpft.h"
    8181

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

    r5128 r5137  
    5757
    5858    USE indice_sol_mod
     59  USE lmdz_clesphys
    5960
    6061    !    INCLUDE "indicesol.h"
    6162    INCLUDE "dimsoil.h"
    6263    INCLUDE "YOMCST.h"
    63     INCLUDE "clesphys.h"
    6464
    6565    ! Input variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

    r5123 r5137  
    4545    USE limit_read_mod
    4646    USE config_ocean_skin_m, ONLY: activate_ocean_skin
     47  USE lmdz_clesphys, ONLY:  iflag_cycle_diurne, iflag_z0_oce, nsw, f_z0qh_oce, fmagic, ok_bs, &
     48          iflag_albedo, pmagic, z0min ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
     49
    4750
    4851    ! This SUBROUTINE will make a CALL to ocean_XXX_noice according to the ocean mode (force,
    … …  
    5154
    5255    INCLUDE "YOMCST.h"
    53 
    54     include "clesphys.h"
    55     ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
    5656
    5757    ! Input variables

  • LMDZ6/branches/Amaury_dev/libf/phylmd/surf_seaice_mod.F90

    r5117 r5137  
    3434  USE ocean_slab_mod, ONLY   : ocean_slab_ice
    3535  USE indice_sol_mod
     36  USE lmdz_clesphys
    3637#ifdef ISO
    3738  USE infotrac_phy, ONLY: ntiso,niso
    … …  
    4344
    4445    INCLUDE "dimsoil.h"
    45     INCLUDE "clesphys.h"
    4646
    4747    INCLUDE "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmd/sw_aeroAR4.F90

    r5117 r5137  
    2424  USE lmdz_print_control, ONLY: lunout
    2525  USE aero_mod, ONLY: naero_grp
     26  USE lmdz_clesphys
     27
    2628  IMPLICIT NONE
    2729
    2830  INCLUDE "YOMCST.h"
    29   INCLUDE "clesphys.h"
    3031
    3132  !     ------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/phylmd/tracco2i_mod.F90

    r5117 r5137  
    4949    USE phys_state_var_mod, ONLY: pctsrf
    5050    USE indice_sol_mod, ONLY: nbsrf, is_ter, is_lic, is_oce, is_sic
     51    USE lmdz_clesphys
    5152
    5253    IMPLICIT NONE
    5354
    54     INCLUDE "clesphys.h"
    5555    INCLUDE "YOMCST.h"
    5656

  • LMDZ6/branches/Amaury_dev/libf/phylmd/undefSTD.F90

    r5117 r5137  
    77  USE phys_state_var_mod
    88  USE lmdz_wxios, ONLY: missing_val_xios => missing_val, using_xios
     9  USE lmdz_clesphys
    910
    1011  IMPLICIT NONE
    11   include "clesphys.h"
    1212  REAL :: missing_val
    1313

  • LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_mod.F90

    r5117 r5137  
    3434    USE lmdz_print_control, ONLY: prt_level,lunout
    3535    USE indice_sol_mod, ONLY: is_oce
     36    USE lmdz_clesphys
    3637
    3738    INCLUDE "YOMCST.h"
    3839    INCLUDE "FCTTRE.h"
    3940    INCLUDE "YOETHF.h"
    40     INCLUDE "clesphys.h"
    4141
    4242    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells

  • LMDZ6/branches/Amaury_dev/libf/phylmd/wx_pbl_var_mod.F90

    r5112 r5137  
    317317    USE lmdz_print_control, ONLY: prt_level, lunout
    318318    USE indice_sol_mod, ONLY: is_oce
     319    USE lmdz_clesphys
    319320
    320321    INCLUDE "YOMCST.h"
    321322    INCLUDE "FCTTRE.h"
    322323    INCLUDE "YOETHF.h"
    323     INCLUDE "clesphys.h"
    324324
    325325    INTEGER, INTENT(IN) :: knon    ! number of grid cells

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_mod.F90

    r5134 r5137  
    152152USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    153153              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     154USE lmdz_clesphys
    154155
    155156#ifdef ISO
    … …  
    162163IMPLICIT NONE
    163164  include "YOMCST.h"
    164   include "clesphys.h"
    165165
    166166! Arguments :
    … …  
    684684USE phys_output_var_mod, ONLY: d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
    685685              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     686USE lmdz_clesphys
     687
    686688IMPLICIT NONE
    687689  include "YOMCST.h"
    688   include "clesphys.h"
    689690
    690691! Arguments :

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

    r5132 r5137  
    3737  USE infotrac_phy, ONLY: ntiso   
    3838#endif
     39  USE lmdz_clesphys ! albedo SB
    3940   
    4041    INCLUDE "YOMCST.h"
    41 !albedo SB >>>
    42     include "clesphys.h"
    43 !albedo SB <<<
    4442
    4543

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

    r5117 r5137  
    6363  USE phys_local_var_mod, ONLY: omega
    6464  USE lmdz_print_control, ONLY: prt_level, lunout
     65  USE lmdz_clesphys
     66
    6567  IMPLICIT NONE
    6668! ======================================================================
    … …  
    113115! wght-------output-R
    114116! ======================================================================
    115 
    116 
    117   include "clesphys.h"
    118117
    119118  INTEGER, INTENT(IN)                           :: iflag_clos

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5135 r5137  
    1571915719        ridicule_qsol,tnat, P_veg,iso_O18,ridicule, ridicule_snow,iso_O17, &
    1572015720        iso_HTO
     15721        USE lmdz_clesphys
    1572115722#ifdef ISOVERIF
    1572215723  USE isotopes_verif_mod
    … …  
    1572715728
    1572815729 include "dimsoil.h"
    15729  include "clesphys.h"
    1573015730 include "compbl.h"
    1573115731
    … …  
    1589315893  USE isotopes_mod, ONLY: tnat,iso_HDO,iso_O18,iso_HTO, iso_eau,toce, &
    1589415894&       Rdefault,iso_O17,ridicule,ridicule_qsol
     15895USE lmdz_clesphys
    1589515896#ifdef ISOVERIF
    1589615897  USE isotopes_verif_mod
    … …  
    1590215903
    1590315904 include "dimsoil.h"
    15904  include "clesphys.h"
    1590515905 include "compbl.h"
    1590615906
    … …  
    1627416274   USE isotrac_mod, ONLY: strtrac, initialisation_isotrac, index_iso, index_zone, izone_init
    1627516275#endif
     16276USE lmdz_clesphys
    1627616277   IMPLICIT NONE
    1627716278
    1627816279 include "dimsoil.h"
    16279  include "clesphys.h"
    1628016280 include "compbl.h"
    1628116281

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_clesphys.f90

    r5136 r5137  
    1 link ../phylmd/clesphys.h
     1link ../phylmd/lmdz_clesphys.f90

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

    r5132 r5137  
    4242    USE lmdz_grid_phy
    4343    USE lmdz_ioipsl_getin_p, ONLY: getin_p
    44     USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
     44    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
     45    USE lmdz_clesphys
    4546#ifdef ISO
    4647  USE infotrac_phy, ONLY: niso
    … …  
    5051
    5152    include "YOMCST.h"
    52     include "clesphys.h"
    5353    include "dimsoil.h"
    5454

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5134 r5137  
    5252  USE config_ocean_skin_m, ONLY: activate_ocean_skin
    5353  USE lmdz_alpale
     54  USE lmdz_clesphys
    5455#ifdef ISO
    5556  USE infotrac_phy, ONLY: niso
    … …  
    6768  !======================================================================
    6869  include "dimsoil.h"
    69   include "clesphys.h"
    7070  include "compbl.h"
    7171  include "YOMCST.h"

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyredem.F90

    r5134 r5137  
    5353  USE lmdz_abort_physic, ONLY: abort_physic
    5454  USE lmdz_alpale
     55  USE lmdz_clesphys
    5556
    5657  IMPLICIT NONE
    5758
    5859  include "dimsoil.h"
    59   include "clesphys.h"
    6060  include "compbl.h"
    6161  !======================================================================
    … …  
    510510      !USE phyredem, ONLY: put_field_srf1
    511511      USE lmdz_alpale
     512      USE lmdz_clesphys
    512513
    513514        IMPLICIT NONE
    … …  
    516517
    517518 include "dimsoil.h"
    518  include "clesphys.h"
    519519 include "compbl.h"
    520520      ! inputs

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/physiq_mod.F90

    r5134 r5137  
    419419       USE lmdz_simu_airs, ONLY: simu_airs
    420420       USE lmdz_alpale
    421 
     421       USE lmdz_clesphys
    422422
    423423    IMPLICIT NONE
    … …  
    474474    include "regdim.h"
    475475    include "dimsoil.h"
    476     include "clesphys.h"
    477476    include "dimpft.h"
    478477    !======================================================================
Note: See TracChangeset for help on using the changeset viewer.