Changeset 3884 for trunk


Ignore:
Timestamp:
Aug 11, 2025, 3:55:40 PM (3 weeks ago)
Author:
ikovalenko
Message:
 
Location:
trunk/LMDZ.VENUS/libf/phyvenus
Files:
56 edited
1 moved

Legend:

Unmodified
Added
Removed

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

    r3035 r3884  
    13411341     
    13421342      SUBROUTINE ZVERTK(P,T,M,Z,nl,gsurf)
     1343      use YOMCST_mod
    13431344      IMPLICIT NONE
    1344 #include "YOMCST.h"
     1345!#include "YOMCST.h"
    13451346      integer :: nl,l
    13461347      REAL(kind=kind(1.D0)):: P(nl),T(nl),M(nl),Z(nl)
    … …  
    13711372     & QIraf,TIraf,FIraf,QEraf,Teraf,IndZ,gcmind)
    13721373      USE infotrac_phy, only: tname
     1374      USE YOMCST_mod
    13731375      IMPLICIT NONE
    1374 #include "YOMCST.h"
     1376!#include "YOMCST.h"
    13751377      INTEGER :: nlayer,ndiffions,ntracers,nlraf,idiffZ,iq,k,kn,ke,iz,l
    13761378      INTEGER :: indZ(1)
    … …  
    15181520     &  TIraf,TEraf,P1di,P1D,Tn1d,M1d,qk1d,qk1dnew,TI1D,TI1Dnew,
    15191521     &  TE1D,TE1Dnew,nlraf,ndiffions,nlayer,izv,itrans,etrans)
    1520      
     1522      USE YOMCST_mod
    15211523      IMPLICIT NONE
    1522 #include "YOMCST.h"   
     1524!#include "YOMCST.h"   
    15231525      INTEGER :: nlraf,ndiffions,nlayer,l,iP,k,izv
    15241526      INTEGER,dimension(ndiffions) :: itrans
    … …  
    15781580     &  TI1D,TI1Dnew,TE1D,TE1Dnew,Wk1D,Wk1D2,Wk1D3,Ez1d,ZZ1d,
    15791581     &  nlraf,ndiffions,nlayer,izv,itrans,etrans,FacQ,FacTI,FacTe)
    1580      
     1582      USE YOMCST_mod
    15811583      IMPLICIT NONE
    1582 #include "YOMCST.h"   
     1584!#include "YOMCST.h"   
    15831585      INTEGER :: nlraf,ndiffions,nlayer,l,iP,k,izv
    15841586      INTEGER :: itrans(ndiffions)

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

    r3883 r3884  
    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 ! A1.0 Fundamental constants
    8       REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
    9 ! A1.1 Astronomical constants
    10       REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
    11 ! A1.1.bis Constantes concernant l'orbite de la Terre:
    12       REAL R_ecc, R_peri, R_incl
    13 ! A1.2 Geoide
    14       REAL RA,RG,R1SA
    15 ! A1.3 Radiation
    16 !     REAL RSIGMA,RI0
    17       REAL RSIGMA
    18 ! A1.4 Thermodynamic gas phase
    19       REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
    20       REAL RKAPPA,RETV
    21 ! ADAPTATION GCM POUR CP(T)
    22 !      real cpdet
    23 !      external cpdet
    24 ! A1.5,6 Thermodynamic liquid,solid phases
    25       REAL RCW,RCS
    26 ! A1.7 Thermodynamic transition of phase
    27       REAL RLVTT,RLSTT,RLMLT,RTT,RATM
    28 ! A1.8 Curve of saturation
    29       REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
    30       REAL RALPD,RBETD,RGAMD
    31 !
    32       COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA         &
    33      & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl             &
    34      & ,RA    ,RG ,R1SA                                                 &
    35      & ,RSIGMA,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD           &
    36      & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM  &
    37      & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD   &
    38      & ,RGAMD
     1MODULE YOMCST_mod
     2  IMPLICIT NONE
     3
     4  ! A1.0 Fundamental constants
     5  REAL, SAVE :: RPI, RCLUM, RHPLA, RKBOL, RNAVO
     6  ! A1.1 Astronomical constants
     7  REAL, SAVE :: RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA
     8  ! A1.1.bis Constantes concernant l'orbite de la Terre:
     9  REAL, SAVE :: R_ecc, R_peri, R_incl
     10  ! A1.2 Geoide
     11  REAL, SAVE :: RA, RG, R1SA
     12  ! A1.3 Radiation
     13  REAL, SAVE :: RSIGMA
     14  ! A1.4 Thermodynamic gas phase
     15  REAL, SAVE :: R, RMD, RMV, RD, RV, RCPD, RCPV, RCVD, RCVV
     16  REAL, SAVE :: RKAPPA, RETV
     17  ! A1.5,6 Thermodynamic liquid,solid phases
     18  REAL, SAVE :: RCW, RCS
     19  ! A1.7 Thermodynamic transition of phase
     20  REAL, SAVE :: RLVTT, RLSTT, RLMLT, RTT, RATM
     21  ! A1.8 Curve of saturation
     22  REAL, SAVE :: RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS
     23  REAL, SAVE :: RALPD, RBETD, RGAMD
     24
     25END MODULE YOMCST_mod

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

    r2622 r3884  
    44       use radinc_h, only : naerkind
    55       use aerosol_mod
     6       use YOMCST_mod
    67                   
    78       implicit none
    8 #include "YOMCST.h"
     9!#include "YOMCST.h"
    910
    1011!==================================================================

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

    r1621 r3884  
    99      use mod_grid_phy_lmdz, only: nbp_lev
    1010      use cpdet_phy_mod, only: t2tpot, tpot2t
     11      use YOMCST_mod
    1112      IMPLICIT none
    1213c======================================================================
    … …  
    2829c d_qfi-----output-R-Incrementation des traceurs
    2930c======================================================================
    30 #include "YOMCST.h"
     31C#include "YOMCST.h"
    3132      REAL paprs(klon,klev+1), pplay(klon,klev)
    3233      REAL ppk(klon,klev)

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

    r1530 r3884  
    44      use dimphy
    55      use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat
     6      use YOMCST_mod
    67      implicit none
    78
    … …  
    9596c======================================================================
    9697
    97 #include "YOMCST.h"
     98c#include "YOMCST.h"
    9899c
    99100c ARGUMENTS
    … …  
    158159      zlon(nbp_lon+1)=zlon(1)+2.*RPI
    159160
    160 c verif init     lat de 90 à -90, lon de -180 à 180
     161c verif init     lat de 90 � -90, lon de -180 � 180
    161162c     print*,"Latitudes:",zlat*180./RPI
    162163c     print*,"Longitudes:",zlon*180./RPI
    … …  
    168169        k=(j-1)*4+i
    169170      phib(k)= (j-1)*20.*RPI/180.
    170       lamb(k)= (i-3)*90.*RPI/180.   ! de -180 à 90
     171      lamb(k)= (i-3)*90.*RPI/180.   ! de -180 � 90
    171172c     lognb(k)= log10(5.e4/(RKBOL*300.)) ! ~55km in VIRA model
    172173      lognb(k)= log10(5.e5/(RKBOL*300.)) ! 5 bars (for Blamont, mai2015)
    … …  
    261262      use dimphy
    262263      use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat
     264      use YOMCST_mod
    263265      implicit none
    264266
    … …  
    288290c======================================================================
    289291
    290 #include "YOMCST.h"
     292c#include "YOMCST.h"
    291293c
    292294c ARGUMENTS
    … …  
    359361
    360362      use dimphy
     363      use YOMCST_mod
    361364      implicit none
    362365
    … …  
    374377c======================================================================
    375378
    376 #include "YOMCST.h"
     379c#include "YOMCST.h"
    377380c
    378381c ARGUMENTS

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

    r2580 r3884  
    1414
    1515      use dimphy
     16      use YOMCST_mod
    1617      implicit none
    1718c#include "dimradmars.h"
    1819#include "nlteparams.h"
    1920c#include "yomlw.h"
    20 #include "YOMCST.h"
     21c#include "YOMCST.h"
    2122
    2223c     Input:

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

    r2560 r3884  
    2828      use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, tauray, scalep
    2929      use gases_h
     30      use YOMCST_mod
    3031
    3132      implicit none
    32 #include "YOMCST.h"
     33!#include "YOMCST.h"
    3334
    3435      real*8 wl

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

    r3835 r3884  
    77                         pcfm, pcfh)
    88      USE clesphys_mod
     9      USE YOMCST_mod
    910      IMPLICIT NONE
    1011
    … …  
    3233! ================================================================= c
    3334!
    34 #include "YOMCST.h"
     35!#include "YOMCST.h"
    3536!#include "clesphys.h"
    3637!

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

    r3877 r3884  
    4141      use soil_mod, only: nsoilmx
    4242      use clesphys_mod
     43      use YOMCST_mod
    4344     
    4445#ifdef CPP_XIOS     
    … …  
    148149      real y_cd_m(klon),y_cd_h(klon)
    149150c
    150       include "YOMCST.h"
     151c      include "YOMCST.h"
    151152      REAL u1lay(klon), v1lay(klon)
    152153      REAL delp(klon,klev)
    … …  
    486487      use mod_grid_phy_lmdz, only: nbp_lon, nbp_lat, nbp_lev
    487488      use cpdet_phy_mod, only: t2tpot,tpot2t,cpdet
     489      use YOMCST_mod
    488490
    489491      IMPLICIT none
    … …  
    492494c Objet: diffusion verticale de "h"
    493495c======================================================================
    494       include "YOMCST.h"
     496c      include "YOMCST.h"
    495497      include "iniprint.h"
    496498
    … …  
    802804
    803805      use dimphy, only: klon, klev
     806      use YOMCST_mod
     807
    804808      IMPLICIT none
    805809c======================================================================
    … …  
    824828c flux_v---output-R- (diagnostic) flux du vent: (kg m/s)/(m**2 s)
    825829c======================================================================
    826       include "iniprint.h"
     830c      include "iniprint.h"
    827831
    828832c Parametres d'entree
    … …  
    839843      REAL, INTENT(OUT) :: flux_v(klon, klev)
    840844c======================================================================
    841       include "YOMCST.h"
     845c     include "YOMCST.h"
    842846c======================================================================
    843847c Parametres locaux
    … …  
    940944      use xios_output_mod, only: send_xios_field
    941945#endif
    942 
     946      use YOMCST_mod
    943947      IMPLICIT none
    944948c======================================================================
    … …  
    960964c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
    961965c======================================================================
    962       include "YOMCST.h"
     966c      include "YOMCST.h"
    963967      include "iniprint.h"
    964968      include "compbl.h"
    … …  
    12681272      use mod_grid_phy_lmdz, only: nbp_lev
    12691273      use cpdet_phy_mod, only: cpdet
     1274      use YOMCST_mod
    12701275      IMPLICIT none
    12711276c======================================================================
    … …  
    12831288c pcfh-----output-R- coefficients a calculer (chaleur et humidite)
    12841289c======================================================================
    1285       include "YOMCST.h"
     1290c      include "YOMCST.h"
    12861291      include "iniprint.h"
    12871292c

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

    r3877 r3884  
    3232      use soil_mod, only: nsoilmx
    3333      use clesphys_mod
     34      use YOMCST_mod
    3435      IMPLICIT none
    3536c======================================================================
    … …  
    126127      real yustar(klon),y_cd_m(klon),y_cd_h(klon)
    127128c
    128 #include "YOMCST.h"
     129c#include "YOMCST.h"
    129130      REAL u1lay(klon), v1lay(klon)
    130131      REAL delp(klon,klev)

  • trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_sedim.F

    r3323 r3884  
    77      USE dimphy
    88      USE chemparam_mod
     9      USE YOMCST_mod
    910      IMPLICIT NONE
    1011
    … …  
    1213c   declarations:
    1314c   -------------
    14 #include "YOMCST.h"     
     15c#include "YOMCST.h"     
    1516c#include "dimphys.h"
    1617c#include "comcstfi.h"

  • trunk/LMDZ.VENUS/libf/phyvenus/cloudvenus/new_cloud_venus.F

    r3323 r3884  
    1818
    1919      USE chemparam_mod
     20      USE YOMCST_mod
    2021      IMPLICIT NONE
    2122
    22 #include "YOMCST.h"
     23!#include "YOMCST.h"
    2324
    2425      integer :: nbr_mode

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

    r1530 r3884  
    66
    77      use dimphy
     8      use YOMCST_mod
    89      IMPLICIT none
    910c======================================================================
    … …  
    3536c      REAL flux_tr(klon,klev)
    3637c======================================================================
    37 #include "YOMCST.h"
     38c#include "YOMCST.h"
    3839c======================================================================
    3940      INTEGER i, k

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

    r1530 r3884  
    77
    88      use dimphy
     9      use YOMCST_mod
    910      IMPLICIT NONE
    1011
    11 #include "YOMCST.h"
     12c#include "YOMCST.h"
    1213
    1314c.......................................................................

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

    r2686 r3884  
    33  !!03/2014 revision Gabriella Gilli
    44  !!Calcul des vmr pour CO2, CO, O, N et N2 en s'appuyant sur les tables donnees dans l'article Hedin (1983)
     5 
    56  implicit none     
    67  contains
    78
    89        subroutine compo_hedin83_init2
    9 
     10        use YOMCST_mod
    1011        implicit none
    11 #include "YOMCST.h"
     12!#include "YOMCST.h"
    1213#include "hedin.h"
    1314

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

    r3835 r3884  
    77      USE infotrac_phy, ONLY: tname
    88      USE clesphys_mod
     9      USE YOMCST_mod
    910      implicit none
    1011
    … …  
    2223!     declarations
    2324 
    24 #include "YOMCST.h"
     25c#include "YOMCST.h"
    2526c#include "clesphys.h"
    2627c#include "comdiurn.h"

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

    r3841 r3884  
    1313   use age_of_air_mod, only: ok_aoa, reinit_aoa, lev_aoa
    1414   use clesphys_mod
     15   use YOMCST_mod
    1516
    1617   implicit none
    1718
    18    include "YOMCST.h"
     19   !include "YOMCST.h"
    1920   !include "clesphys.h"
    2021   include "compbl.h"

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

    r1621 r3884  
    4848C======================================================================
    4949C
     50      use YOMCST_mod
    5051      use dimphy
    5152      implicit none
    5253
    53 #include "YOMCST.h"
     54C#include "YOMCST.h"
    5455C
    5556C     Input variables
    … …  
    209210      use dimphy
    210211      use cpdet_phy_mod, only: cpdet
     212      use YOMCST_mod
    211213      IMPLICIT NONE
    212214C
    213 #include "YOMCST.h"
     215C#include "YOMCST.h"
    214216C
    215217c     Input variables

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

    r3835 r3884  
    77        use mmol_mod
    88        use clesphys_mod
     9        use YOMCST_mod
    910
    1011      IMPLICIT NONE
    … …  
    3334!    ------------------
    3435!
    35 #include "YOMCST.h"
     36!#include "YOMCST.h"
    3637!#include "clesphys.h"
    3738!#include "mmol.h"

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

    r2381 r3884  
    1616      use dimphy
    1717      USE geometry_mod, only: cell_area, latitude_deg
     18      USE YOMCST_mod
    1819      implicit none
    1920
    2021#include "YOEGWD.h"
    21 #include "YOMCST.h"
     22!#include "YOMCST.h"
    2223
    2324    ! 0. DECLARATIONS:

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

    r2047 r3884  
    3838C
    3939      use dimphy
     40      use YOMCST_mod
    4041      IMPLICIT NONE
    4142
    42 #include "YOMCST.h"
     43C#include "YOMCST.h"
    4344#include "YOEGWD.h"
    4445

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

    r2047 r3884  
    5454c-----------------------------------------------------------------------
    5555      use dimphy
     56      use YOMCST_mod
    5657      implicit none
    5758
    58 #include "YOMCST.h"
     59c#include "YOMCST.h"
    5960#include "YOEGWD.h"
    6061

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

    r2430 r3884  
    55
    66      use dimphy, only: klon,klev
     7      use YOMCST_mod
    78      IMPLICIT none
    89c======================================================================

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

    r3877 r3884  
    1515
    1616  USE ioipsl
     17  USE YOMCST_mod
    1718
    1819  IMPLICIT none
    … …  
    2526  END INTERFACE
    2627
    27 #include "YOMCST.h"
     28!#include "YOMCST.h"
    2829
    2930  CONTAINS
    … …  
    8586!   albedo       albedo de la surface
    8687!   tsurf        temperature de surface
    87 !   pkh1         fct Exner à la surface: RCPD*(paprs(1)/preff)**RKAPPA
     88!   pkh1         fct Exner � la surface: RCPD*(paprs(1)/preff)**RKAPPA
    8889!   p1lay        pression 1er niveau (milieu de couche)
    8990!   radsol       rayonnement net aus sol (LW + SW)
    … …  
    211212!   tsurf        temperature de surface
    212213!   zcp          Cp(Tsurf)             
    213 !   pkh1         fct Exner à la surface: RCPD*(paprs(1)/preff)**RKAPPA
     214!   pkh1         fct Exner � la surface: RCPD*(paprs(1)/preff)**RKAPPA
    214215!   p1lay        pression 1er niveau (milieu de couche)
    215216!   cal          capacite calorifique du sol

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

    r2464 r3884  
    22     
    33      use dimphy
     4      use YOMCST_mod
    45      IMPLICIT none
    56
    6 #include "YOMCST.h"
     7c#include "YOMCST.h"
    78#include "comcstVE.h"
    89C
    … …  
    163164         do i=0,nlve+1
    164165           do j=0,nlve+1
    165               ksive(i,j,band,mat) = +ksive(i,j,band,mat)*dlambda    ! in µm
     166              ksive(i,j,band,mat) = +ksive(i,j,band,mat)*dlambda    ! in �m
    166167           enddo
    167168         enddo
    … …  
    169170c computing coeff al and bl for Planck luminance
    170171         al(band) = 2.*RHPLA*RCLUM*RCLUM/(lambda(band))**5.
    171 c in W/m²/m
    172 c We need W/m²/µm :
     172c in W/m�/m
     173c We need W/m�/�m :
    173174     .                * 1.e-6
    174175         bl(band) = RHPLA*RCLUM/(RKBOL*lambda(band))

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

    r1621 r3884  
    77      use dimphy
    88      use cpdet_phy_mod, only: cpdet
     9      use YOMCST_mod
    910      IMPLICIT none
    1011
    11 #include "YOMCST.h"
     12C#include "YOMCST.h"
    1213C
    1314C     ------------------------------------------------------------------

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

    r1621 r3884  
    33      use dimphy
    44      use cpdet_phy_mod, only: cpdet
     5      use YOMCST_mod
    56      implicit none
    67
    78
    8 #include "YOMCST.h"
     9c#include "YOMCST.h"
    910#include "timerad.h"
    1011     

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

    r3857 r3884  
    10091009
    10101010        SUBROUTINE ZVERT(P,T,M,Z,nl,ig)
     1011        use YOMCST_mod
    10111012        IMPLICIT NONE
    1012 #include "YOMCST.h"
     1013!#include "YOMCST.h"
    10131014        INTEGER :: nl,l,ig
    10141015        REAL*8,dimension(nl) :: P,T,M,Z,H
    … …  
    10411042
    10421043        SUBROUTINE RHOTOT(P,T,M,qq,rhoN,rhoK,nl,nq)
     1044        USE YOMCST_mod
    10431045        IMPLICIT NONE
    1044 #include "YOMCST.h"
     1046!#include "YOMCST.h"
    10451047        REAL*8 :: kbolt,masseU,Konst
    10461048        INTEGER :: nl,nq,l,iq
    … …  
    10651067        use chemparam_mod
    10661068        use infotrac_phy
     1069        use YOMCST_mod
    10671070        IMPLICIT NONE
    1068 #include "YOMCST.h"
     1071!#include "YOMCST.h"
    10691072        INTEGER :: nl,nq,il,l,i,iq,nlx,iz,ig
    10701073        INTEGER :: gc(nq)
    … …  
    12221225       
    12231226        SUBROUTINE VELVERT(nn,T,H,D,Dz,masse,W,nl)
     1227        USE YOMCST_mod
    12241228        IMPLICIT NONE
    1225 #include "YOMCST.h"
     1229!#include "YOMCST.h"
    12261230        INTEGER :: l,nl,nn
    12271231        REAL*8,DIMENSION(nl) :: T,H,D,W,DT
    … …  
    13831387
    13841388        SUBROUTINE Checkmass2(qold,qnew,P,il,nl,nn,nq)
     1389        use YOMCST_mod
    13851390        IMPLICIT NONE
    1386 #include "YOMCST.h"
     1391!#include "YOMCST.h"
    13871392        INTEGER :: nl,nn,l,nq,il
    13881393        REAL,DIMENSION(nl+1) :: P
    … …  
    14091414        use chemparam_mod
    14101415        use infotrac_phy
     1416        use YOMCST_mod
    14111417        IMPLICIT NONE
    1412 #include "YOMCST.h"
     1418!#include "YOMCST.h"
    14131419        INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
    14141420        INTEGER,DIMENSION(1) :: indP
    … …  
    15121518!         use chemparam_mod
    15131519!        use infotrac
     1520use YOMCST_mod
    15141521        IMPLICIT NONE
    1515 #include "YOMCST.h"
     1522!#include "YOMCST.h"
    15161523        INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
    15171524        INTEGER,DIMENSION(1) :: indP

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

    r3 r3884  
    11      SUBROUTINE mucorr(npts,plongi, plat, pmu, pfract)
     2      USE YOMCST_mod
    23      IMPLICIT NONE
    34
    … …  
    2829c    -----------------
    2930
    30 #include "YOMCST.h"
     31c#include "YOMCST.h"
    3132
    3233c     Arguments :

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

    r3835 r3884  
    77       use mmol_mod
    88       use clesphys_mod
     9       use YOMCST_mod
    910c       use compo_hedin83_mod2
    1011
    … …  
    5758c
    5859
    59 #include "YOMCST.h"
     60c#include "YOMCST.h"
    6061c#include "clesphys.h"
    6162c#include "comdiurn.h"

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

    r2048 r3884  
    3131      use dimphy
    3232      use conc, only: mmean, cpnew
     33      use YOMCST_mod
    3334      implicit none
    3435
    3536      include "nlte_paramdef.h"
    3637      include "nlte_commons.h"
    37       include "YOMCST.h"
     38c      include "YOMCST.h"
    3839
    3940c     Arguments
    … …  
    13741375      function hrkday_convert                       
    13751376     @     ( mmean_nlte,cpmean_nlte )         
    1376      
     1377      use YOMCST_mod
    13771378      implicit none                           
    13781379     
    1379 #include "YOMCST.h"
     1380c#include "YOMCST.h"
    13801381c#include "param.h"
    13811382     

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

    r3035 r3884  
    4343     USE ioipsl_getin_p_mod, ONLY : getin_p
    4444     USE geometry_mod, ONLY: cell_area, latitude_deg
     45     USE YOMCST_mod
    4546!#ifdef CPP_XIOS
    4647!     use xios_output_mod, only: send_xios_field
    4748!#endif
    4849 implicit none
    49 #include "YOMCST.h"
     50!#include "YOMCST.h"
    5051
    5152! 0. DECLARATIONS:

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

    r3803 r3884  
    1313  use gases_h, only: gfrac, ngasmx, igas_H2O, igas_CO2
    1414  use interpolate_continuum_mod, only: interpolate_continuum
     15  use YOMCST_mod
    1516
    1617  implicit none
    17 #include "YOMCST.h"
     18!#include "YOMCST.h"
    1819
    1920  !==================================================================

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

    r2047 r3884  
    1212     
    1313      use dimphy
     14      use YOMCST_mod
    1415      IMPLICIT NONE
    1516
    … …  
    9293c
    9394c
    94 #include "YOMCST.h"
     95c#include "YOMCST.h"
    9596#include "YOEGWD.h"
    9697

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

    r2047 r3884  
    9696c-----------------------------------------------------------------------
    9797      use dimphy
     98      use YOMCST_mod
    9899      implicit none
    99100
    100 #include "YOMCST.h"
     101c#include "YOMCST.h"
    101102#include "YOEGWD.h"
    102103

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

    r3877 r3884  
    8787      use soil_mod, only: nsoilmx
    8888      use clesphys_mod
     89      use YOMCST_mod
    8990#ifdef CPP_XIOS     
    9091      use xios_output_mod, only: initialize_xios_output,
    … …  
    432433c Declaration des constantes et des fonctions thermodynamiques
    433434c
    434 #include "YOMCST.h"
     435c #include "YOMCST.h"
    435436
    436437c======================================================================

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

    r3835 r3884  
    2424      use iono_h, only: temp_elect
    2525      use clesphys_mod
     26      use YOMCST_mod
    2627#ifdef CPP_XIOS     
    2728      use xios_output_mod, only: send_xios_field
    … …  
    3132     
    3233!#include "clesphys.h"
    33 #include "YOMCST.h"
     34!#include "YOMCST.h"
    3435
    3536!===================================================================

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

    r3835 r3884  
    3838      USE chemparam_mod,only:M_tr,type_tr
    3939      USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     40      USE YOMCST_mod
    4041      IMPLICIT none
    41 #include "YOMCST.h"
     42c#include "YOMCST.h"
    4243c#include "clesphys.h"
    4344     

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

    r3835 r3884  
    2929      USE chemparam_mod,only:M_tr
    3030      USE clesphys_mod
     31      USE YOMCST_mod
    3132      IMPLICIT none
    32 #include "YOMCST.h"
     33c#include "YOMCST.h"
    3334c#include "clesphys.h"
    3435c======================================================================

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

    r3875 r3884  
    1010       USE tabcontrol_mod
    1111       USE clesphys_mod
     12       USE YOMCST_mod
    1213
    1314       IMPLICIT NONE
    … …  
    1819       INTEGER radpas0
    1920c
    20 #include "YOMCST.h"
     21c#include "YOMCST.h"
    2122c
    2223c

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

    r3835 r3884  
    3535      use radinc_h, only: ini_radinc_h
    3636      use clesphys_mod
     37      use YOMCST_mod
    3738
    3839#ifdef CPP_XIOS     
    … …  
    4142
    4243      IMPLICIT none
    43       include "YOMCST.h"
     44!      include "YOMCST.h"
    4445!      include "clesphys.h"
    4546      include "comcstVE.h"

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

    r2486 r3884  
    1919      USE phys_state_var_mod, only: heat,cool,radsol,
    2020     .  topsw,toplw,solsw,sollw,sollwdown,lwnet,swnet,zt_eq
    21 
     21      USE YOMCST_mod
    2222      IMPLICIT none
    23       include "YOMCST.h"
     23c      include "YOMCST.h"
    2424
    2525c ARGUMENTS

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

    r3877 r3884  
    5353      use dimphy, only: klon
    5454      use clesphys_mod
     55      use YOMCST_mod
    5556      IMPLICIT NONE
    56       include "YOMCST.h"
     57c      include "YOMCST.h"
    5758
    5859c-----------------------------------------------------------------------

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

    r3835 r3884  
    3030      use interpolate_continuum_mod, only: interpolate_continuum
    3131      use clesphys_mod
     32      use YOMCST_mod
    3233      implicit none
    33 #include "YOMCST.h"
     34!#include "YOMCST.h"
    3435!#include "clesphys.h"
    3536

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

    r3826 r3884  
    11      MODULE suphec_mod
     2
     3      USE YOMCST_mod
    24     
    35      IMPLICIT NONE
    … …  
    79      SUBROUTINE suphec(cpp_)
    810C
    9       include "YOMCST.h"
     11C      include "YOMCST.h"
    1012cIM cf. JLD
    1113       REAL,INTENT(IN) :: cpp_   ! from dynamics

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r3835 r3884  
    1616      use cpdet_phy_mod, only: cpdet
    1717      use clesphys_mod
     18      use YOMCST_mod
    1819
    1920      implicit none
    20 #include "YOMCST.h"
     21!#include "YOMCST.h"
    2122!#include "clesphys.h"
    2223

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11c#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r3835 r3884  
    77      use cpdet_phy_mod, only: cpdet
    88      use clesphys_mod
     9      use YOMCST_mod
    910      IMPLICIT none
    1011
    11       include "YOMCST.h"
     12C      include "YOMCST.h"
    1213C      include "clesphys.h"
    1314C

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r1621 r3884  
    66      use dimphy
    77      use cpdet_phy_mod, only: cpdet
     8      use YOMCST_mod
    89      IMPLICIT none
    910
    10 #include "YOMCST.h"
     11C#include "YOMCST.h"
    1112C
    1213C     ------------------------------------------------------------------

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

    r1530 r3884  
    1212c======================================================================
    1313      use dimphy
     14      use YOMCST_mod
    1415      IMPLICIT none
    15 #include "YOMCST.h"
     16c#include "YOMCST.h"
    1617c
    1718      REAL paprs(klon,klev+1), tsol(klon)

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

    r1530 r3884  
    1717c======================================================================
    1818      use dimphy
     19      use YOMCST_mod
    1920      IMPLICIT none
    20 #include "YOMCST.h"
     21c#include "YOMCST.h"
    2122c
    2223c Arguments:

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

    r1530 r3884  
    2525c================================================================
    2626      use dimphy
     27      use YOMCST_mod
    2728      IMPLICIT none
    28 #include "YOMCST.h"
     29C#include "YOMCST.h"
    2930c================================================================
    3031      real longi, gmtime, pdtrad
Note: See TracChangeset for help on using the changeset viewer.