Changeset 3835


Ignore:
Timestamp:
Jul 7, 2025, 2:29:10 PM (2 days ago)
Author:
ikovalenko
Message:
 
Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
26 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/clcdrag.F90

    r808 r3835  
    66                         zgeop, zri, &
    77                         pcfm, pcfh)
     8      USE clesphys_mod
    89      IMPLICIT NONE
     10
    911! ================================================================= c
    1012!
    … …  
    3133!
    3234#include "YOMCST.h"
    33 #include "clesphys.h"
     35!#include "clesphys.h"
    3436!
    3537! Quelques constantes et options:

  • trunk/LMDZ.VENUS/libf/phyvenus/clesphys_mod.F90

    r3834 r3835  
    1 !
    2 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    3 !                 veillez  n utiliser que des ! pour les commentaires
    4 !                 et  bien positionner les & des lignes de continuation
    5 !                 (les placer en colonne 6 et en colonne 73)
    6 !
    7 !
    8 !..include cles_phys.h
    9 !
    10        LOGICAL cycle_diurne,soil_model
    11        LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro
    12        LOGICAL ok_kzmin,tuneupperatm, ok_ionchem, ok_jonline
    13        LOGICAL ok_iondiff
    14        LOGICAL callnlte,callnirco2,callthermos
    15        LOGICAL ok_cloud, ok_chem, reinit_trac, ok_sedim
    16        LOGICAL ok_clmain, physideal, startphy_file
    17        INTEGER nbapp_rad, nbapp_chem, iflag_con, iflag_ajs
    18        INTEGER lev_histins, lev_histday, lev_histmth
    19        INTEGER tr_scheme, cl_scheme
    20        INTEGER nircorr, nltemodel, solvarmod
    21        INTEGER nb_mode
    22        INTEGER solarchoice
    23        REAL    ecriphy
    24        REAL    z0, lmixmin
    25        REAL    ksta, inertie
    26        REAL    euveff, fixed_euv_value
     1MODULE clesphys_mod
     2  IMPLICIT NONE
     3  SAVE
    274
    28        COMMON/clesphys_l/ cycle_diurne, soil_model,                     &
    29      &     ok_orodr, ok_orolf, ok_gw_nonoro, ok_kzmin,                  &
    30      &     tuneupperatm,callnlte,callnirco2,callthermos,                &
    31      &     ok_cloud, ok_chem, reinit_trac, ok_sedim,                    &
    32      &     ok_clmain, physideal, startphy_file, ok_ionchem, ok_jonline, &
    33      &     ok_iondiff
     5  LOGICAL :: cycle_diurne, soil_model
     6  LOGICAL :: ok_orodr, ok_orolf, ok_gw_nonoro
     7  LOGICAL :: ok_kzmin, tuneupperatm, ok_ionchem, ok_jonline
     8  LOGICAL :: ok_iondiff
     9  LOGICAL :: callnlte, callnirco2, callthermos
     10  LOGICAL :: ok_cloud, ok_chem, reinit_trac, ok_sedim
     11  LOGICAL :: ok_clmain, physideal, startphy_file
    3412
    35        COMMON/clesphys_i/ nbapp_rad, nbapp_chem,                        &
    36      &     iflag_con, iflag_ajs,                                        &
    37      &     lev_histins, lev_histday, lev_histmth, tr_scheme,            &
    38      &     cl_scheme, nircorr, nltemodel, solvarmod, nb_mode,           &
    39      &     solarchoice
     13  INTEGER :: nbapp_rad, nbapp_chem, iflag_con, iflag_ajs
     14  INTEGER :: lev_histins, lev_histday, lev_histmth
     15  INTEGER :: tr_scheme, cl_scheme
     16  INTEGER :: nircorr, nltemodel, solvarmod
     17  INTEGER :: nb_mode
     18  INTEGER :: solarchoice
    4019
    41        COMMON/clesphys_r/ ecriphy, z0, lmixmin,                         &
    42      &     ksta, inertie, euveff, fixed_euv_value
     20  REAL :: ecriphy
     21  REAL :: z0, lmixmin
     22  REAL :: ksta, inertie
     23  REAL :: euveff, fixed_euv_value
    4324
     25END MODULE clesphys_mod

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

    r2535 r3835  
    3939      use cpdet_phy_mod, only: t2tpot
    4040      use turb_mod, only :yustar
     41      use clesphys_mod
    4142     
    4243#ifdef CPP_XIOS     
    … …  
    7980      include "dimsoil.h"
    8081      include "iniprint.h"
    81       include "clesphys.h"
     82c      include "clesphys.h"
    8283      include "compbl.h"
    8384c
    … …  
    9697      REAL, INTENT(IN) :: sollw(klon), solsw(klon), sollwdown(klon)
    9798     
    98 c Paramètres IN/OUT
     99c Param�tres IN/OUT
    99100      REAL, INTENT(INOUT) :: fder(klon)
    100101      REAL, INTENT(INOUT) :: flux_u(klon,klev), flux_v(klon,klev)
    … …  
    404405
    405406c FH modif sur le cdrag temperature
    406 c$$$PB : déplace dans clcdrag
     407c$$$PB : d�place dans clcdrag
    407408c$$$      do i=1,knon
    408409c$$$         ycoefh(i,1)=ycoefm(i,1)*0.8
    … …  
    937938      use dimphy, only: klon, klev
    938939      use cpdet_phy_mod, only: cpdet,t2tpot
     940      use clesphys_mod
    939941#ifdef CPP_XIOS     
    940942      use xios_output_mod, only: send_xios_field
    … …  
    963965      include "iniprint.h"
    964966      include "compbl.h"
    965       include "clesphys.h"
     967c      include "clesphys.h"
    966968c
    967969c Arguments:

  • trunk/LMDZ.VENUS/libf/phyvenus/clmain_ideal.F

    r2135 r3835  
    3030      use dimphy
    3131      use mod_grid_phy_lmdz, only: nbp_lev
     32      use clesphys_mod
    3233      IMPLICIT none
    3334c======================================================================
    … …  
    6364#include "dimsoil.h"
    6465#include "iniprint.h"
    65 #include "clesphys.h"
     66c#include "clesphys.h"
    6667#include "compbl.h"
    6768c
    … …  
    256257cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    257258c RAYLEIGH FRICTION (implicit scheme) dans 1ere couche
    258 c Ref: thèse de C. Lee Oxford 2006
     259c Ref: th�se de C. Lee Oxford 2006
    259260cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    260261

  • trunk/LMDZ.VENUS/libf/phyvenus/concentrations2.F

    r3005 r3835  
    66      USE chemparam_mod
    77      USE infotrac_phy, ONLY: tname
     8      USE clesphys_mod
    89      implicit none
    910
    … …  
    2223 
    2324#include "YOMCST.h"
    24 #include "clesphys.h"
     25c#include "clesphys.h"
    2526c#include "comdiurn.h"
    2627c#include "chimiedata.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/conf_phys.F90

    r3827 r3835  
    1111   use ioipsl_getin_p_mod, only: getin_p
    1212   use age_of_air_mod, only: ok_aoa, reinit_aoa, lev_aoa
     13   use clesphys_mod
    1314
    1415   implicit none
    1516
    1617   include "YOMCST.h"
    17    include "clesphys.h"
     18   !include "clesphys.h"
    1819   include "compbl.h"
    1920

  • trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

    r3540 r3835  
    1919      USE mod_const_mpi, ONLY: init_const_mpi
    2020      USE parallel_lmdz, ONLY: init_parallel
     21      USE clesphys_mod
    2122      IMPLICIT NONE
    2223
    … …  
    4445#include "comcstfi.h"
    4546#include "netcdf.inc"
    46 #include "clesphys.h"
     47c#include "clesphys.h"
    4748#include "iniprint.h"
    4849#include "tabcontrol.h"
    … …  
    274275c     Calcul au milieu des couches : Vient de la version Mars
    275276c     WARNING : le choix de placer le milieu des couches au niveau de
    276 c     pression intermédiaire est arbitraire et pourrait etre modifié.
     277c     pression interm�diaire est arbitraire et pourrait etre modifi�.
    277278c     C'est fait de la meme facon dans disvert
    278279

  • trunk/LMDZ.VENUS/libf/phyvenus/euvheat.F90

    r3828 r3835  
    66        use conc, only:  rnew, cpnew
    77        use mmol_mod
     8        use clesphys_mod
    89
    910      IMPLICIT NONE
    … …  
    3334!
    3435#include "YOMCST.h"
    35 #include "clesphys.h"
     36!#include "clesphys.h"
    3637!#include "mmol.h"
    3738!-----------------------------------------------------------------------

  • trunk/LMDZ.VENUS/libf/phyvenus/hrtherm.F

    r2836 r3835  
    1010      use dimphy
    1111      use param_v4_h, only: ninter,nabs,jfotsout,fluxtop,freccen
     12      use clesphys_mod
    1213
    1314      implicit none
    … …  
    1617
    1718
    18 #include "clesphys.h"
     19c#include "clesphys.h"
    1920
    2021

  • trunk/LMDZ.VENUS/libf/phyvenus/jthermcalc_e107.F

    r3828 r3835  
    1818     .    nabs,e107,date_e107,e107_tab,
    1919     .    coefit0,coefit1,coefit2,coefit3,coefit4
    20 
     20      use clesphys_mod
    2121      implicit none
    2222
    23       include "clesphys.h"
     23c      include "clesphys.h"
    2424
    2525
    … …  
    11271127      use param_v4_h
    11281128      use mmol_mod
     1129      use clesphys_mod
    11291130      implicit none
    11301131
    11311132c    common variables and constants
    1132 #include "clesphys.h"
     1133c#include "clesphys.h"
    11331134c#include "mmol.h"
    11341135

  • trunk/LMDZ.VENUS/libf/phyvenus/nirco2abs.F

    r3828 r3835  
    66       use chemparam_mod, only: i_co2, i_o
    77       use mmol_mod
     8       use clesphys_mod
    89c       use compo_hedin83_mod2
    910
    … …  
    5758
    5859#include "YOMCST.h"
    59 #include "clesphys.h"
     60c#include "clesphys.h"
    6061c#include "comdiurn.h"
    6162#include "nirdata.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/nlthermeq.F

    r1591 r3835  
    99c  Modified Y. Wanherdrick/ F. Forget 09/2000
    1010      use dimphy
     11      use clesphys_mod
    1112      implicit none
    1213c#include "dimradmars.h"
    1314#include "nlteparams.h"
    1415c#include "yomlw.h"
    15 #include "clesphys.h"
     16c#include "clesphys.h"
    1617
    1718c

  • trunk/LMDZ.VENUS/libf/phyvenus/param_read_e107.F

    r2836 r3835  
    1717     .    fluxtop,ct1,ct2,p1,p2
    1818
     19      use clesphys_mod
    1920      implicit none
    2021
    2122
    2223c     common variables and constants
    23       include "clesphys.h"
     24c      include "clesphys.h"
    2425 
    2526 

  • trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90

    r3764 r3835  
    23932393!===========================================================
    23942394
     2395use clesphys_mod
    23952396implicit none
    2396 #include "clesphys.h"
     2397!#include "clesphys.h"
    23972398
    23982399integer, INTENT(IN) :: nz

  • trunk/LMDZ.VENUS/libf/phyvenus/photolysis_mod.F90

    r3755 r3835  
    588588      USE mod_phys_lmdz_para, ONLY: is_master
    589589      USE mod_phys_lmdz_transfert_para, ONLY: bcast
     590      USE clesphys_mod
    590591
    591592      implicit none
    592593
    593 #include "clesphys.h" ! fixed_euv_value
     594!#include "clesphys.h" ! fixed_euv_value
    594595
    595596!     input

  • trunk/LMDZ.VENUS/libf/phyvenus/phyetat0.F90

    r3719 r3835  
    2121  use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, &
    2222                                east_gwstress, west_gwstress
     23  use clesphys_mod
    2324
    2425implicit none
    2526!======================================================================
    2627include "dimsoil.h"
    27 include "clesphys.h"
     28!include "clesphys.h"
    2829include "tabcontrol.h"
    2930!======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/phyredem.F90

    r3451 r3835  
    1515  use nonoro_gwd_ran_mod, only: du_nonoro_gwd, dv_nonoro_gwd, &
    1616                                east_gwstress, west_gwstress
    17   use age_of_air_mod, only: ok_aoa
     17  use age_of_air_mod, only: ok_aoa
     18  use clesphys_mod
     19 
    1820  implicit none
    1921!======================================================================
    … …  
    2325!include "netcdf.inc"
    2426include "dimsoil.h"
    25 include "clesphys.h"
     27!include "clesphys.h"
    2628include "tabcontrol.h"
    2729!======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

    r3719 r3835  
    8383      use sed_and_prod_mad, only: aer_sedimentation, drop_sedimentation
    8484      use iono_h, only: temp_elect, temp_ion
     85      use clesphys_mod
    8586#ifdef CPP_XIOS     
    8687      use xios_output_mod, only: initialize_xios_output,
    … …  
    113114c======================================================================
    114115#include "dimsoil.h"
    115 #include "clesphys.h"
     116c#include "clesphys.h"
    116117#include "iniprint.h"
    117118#include "timerad.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F

    r3764 r3835  
    2323      use photolysis_mod, only: init_photolysis, nphot
    2424      use iono_h, only: temp_elect
     25      use clesphys_mod
    2526#ifdef CPP_XIOS     
    2627      use xios_output_mod, only: send_xios_field
    … …  
    2930      implicit none
    3031     
    31 #include "clesphys.h"
     32!#include "clesphys.h"
    3233#include "YOMCST.h"
    3334

  • trunk/LMDZ.VENUS/libf/phyvenus/phytrac_emiss.F

    r3714 r3835  
    3030c======================================================================
    3131      use infotrac_phy, only: tname, nqtot
     32      use clesphys_mod
    3233#ifdef CPP_XIOS     
    3334      use xios_output_mod, only:  send_xios_field
    … …  
    3940      IMPLICIT none
    4041#include "YOMCST.h"
    41 #include "clesphys.h"
     42c#include "clesphys.h"
    4243     
    4344c======================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/phytrac_relax.F

    r1621 r3835  
    2828      use dimphy
    2929      USE chemparam_mod,only:M_tr
     30      USE clesphys_mod
    3031      IMPLICIT none
    3132#include "YOMCST.h"
    32 #include "clesphys.h"
     33c#include "clesphys.h"
    3334c======================================================================
    3435

  • trunk/LMDZ.VENUS/libf/phyvenus/printflag.F

    r1442 r3835  
    88c      Auteur :  P. Le Van
    99
     10       USE clesphys_mod
     11
    1012       IMPLICIT NONE
    1113
    … …  
    1517       INTEGER radpas0
    1618c
    17 #include "clesphys.h"
     19c#include "clesphys.h"
    1820#include "tabcontrol.h"
    1921#include "YOMCST.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F

    r3714 r3835  
    3434      use write_field_phy
    3535      use radinc_h, only: ini_radinc_h
     36      use clesphys_mod
    3637
    3738#ifdef CPP_XIOS     
    … …  
    4142      IMPLICIT none
    4243      include "YOMCST.h"
    43       include "clesphys.h"
     44!      include "clesphys.h"
    4445      include "comcstVE.h"
    4546      include "nlteparams.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/soil.F

    r2539 r3835  
    4747
    4848      use dimphy, only: klon
     49      use clesphys_mod
    4950      IMPLICIT NONE
    5051      include "YOMCST.h"
    5152      include "dimsoil.h"
    52       include "clesphys.h"
     53c      include "clesphys.h"
    5354
    5455c-----------------------------------------------------------------------

  • trunk/LMDZ.VENUS/libf/phyvenus/sugas_corrk.F90

    r3794 r3835  
    2929      use gases_h, only: gnom, ngasmx, igas_H2O, igas_CO2
    3030      use interpolate_continuum_mod, only: interpolate_continuum
     31      use clesphys_mod
    3132      implicit none
    3233#include "YOMCST.h"
    33 #include "clesphys.h"
     34!#include "clesphys.h"
    3435
    3536!==================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_corrk.F90

    r3794 r3835  
    1515      use optcv_mod, only: optcv
    1616      use cpdet_phy_mod, only: cpdet
     17      use clesphys_mod
    1718
    1819      implicit none
    1920#include "YOMCST.h"
    20 #include "clesphys.h"
     21!#include "clesphys.h"
    2122
    2223!==================================================================

  • trunk/LMDZ.VENUS/libf/phyvenus/sw_venus_rh.F

    r2503 r3835  
    66      use dimphy, only: klev
    77      use cpdet_phy_mod, only: cpdet
     8      use clesphys_mod
    89      IMPLICIT none
    910
    1011      include "YOMCST.h"
    11       include "clesphys.h"
     12C      include "clesphys.h"
    1213C
    1314C     ------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.