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

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

Location:
LMDZ6/branches/Amaury_dev/libf/phylmd
Files:
67 edited
2 moved

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.