Ignore:
Timestamp:
Oct 25, 2024, 3:41:23 PM (2 months ago)
Author:
abarral
Message:

Replace yomcst.h by existing module

Location:
LMDZ6/trunk/libf/phylmd
Files:
1 deleted
170 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90

    r5271 r5274  
    1111  USE infotrac
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
    1325IMPLICIT none
    1426  !
    … …  
    1628
    1729  !INCLUDE "dimphy.h"
    18   INCLUDE "YOMCST.h"
     30
    1931  !
    2032  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90

    r5271 r5274  
    33  USE dimphy
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517IMPLICIT NONE
    618  !=====================================================================
    … …  
    1224
    1325  INCLUDE "chem.h"
    14   INCLUDE "YOMCST.h"
     26
    1527  INCLUDE "YOECUMF.h"
    1628  !

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90

    r5271 r5274  
    33  USE dimphy
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     5USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517IMPLICIT NONE
    618  !
    … …  
    1931  !
    2032
    21   INCLUDE "YOMCST.h"
     33
    2234  INCLUDE "YOETHF.h"
    2335  INCLUDE "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5272 r5274  
    1111USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1212          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     13USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
    1325IMPLICIT NONE
    1426
    1527
    1628  INCLUDE "chem.h"
    17   INCLUDE "YOMCST.h"
     29
    1830
    1931

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5272 r5274  
    1111USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1212          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     13USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
    1325IMPLICIT NONE
    1426
    1527
    1628  INCLUDE "chem.h"
    17   INCLUDE "YOMCST.h"
     29
    1830
    1931

  • LMDZ6/trunk/libf/phylmd/Dust/checkmass.f90

    r5268 r5274  
    22  USE dimphy
    33USE geometry_mod , ONLY:cell_area
    4   IMPLICIT NONE
     4  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     6          , R_ecc, R_peri, R_incl                                      &
     7          , RA, RG, R1SA                                         &
     8          , RSIGMA                                                     &
     9          , R, RMD, RMV, RD, RV, RCPD                    &
     10          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     11          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     12          , RCW, RCS                                                 &
     13          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     14          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     15          , RALPD, RBETD, RGAMD
     16IMPLICIT NONE
    517
    6   INCLUDE "YOMCST.h"
     18
    719
    820! Entrees

  • LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90

    r5271 r5274  
    22        flux,paprs,pplay,d_tr)
    33
     4  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     6          , R_ecc, R_peri, R_incl                                      &
     7          , RA, RG, R1SA                                         &
     8          , RSIGMA                                                     &
     9          , R, RMD, RMV, RD, RV, RCPD                    &
     10          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     11          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     12          , RCW, RCS                                                 &
     13          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     14          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     15          , RALPD, RBETD, RGAMD
    416  USE dimphy
    517  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    3749   ! REAL flux_tr(klon,klev)
    3850  !======================================================================
    39   INCLUDE "YOMCST.h"
    4051  !======================================================================
    4152  INTEGER :: i, k

  • LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90

    r5271 r5274  
    66
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
    820IMPLICIT NONE
    921  !
    1022
    11   INCLUDE "YOMCST.h"
     23
    1224  !
    1325  REAL :: t_seri(klon,klev), pplay(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5272 r5274  
    3434USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    3535          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     36USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     37          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     38          , R_ecc, R_peri, R_incl                                      &
     39          , RA, RG, R1SA                                         &
     40          , RSIGMA                                                     &
     41          , R, RMD, RMV, RD, RV, RCPD                    &
     42          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     43          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     44          , RCW, RCS                                                 &
     45          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     46          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     47          , RALPD, RBETD, RGAMD
    3648IMPLICIT NONE
    3749
    … …  
    3951  INCLUDE "chem.h"
    4052  INCLUDE "chem_spla.h"
    41   INCLUDE "YOMCST.h"
     53
    4254
    4355

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5272 r5274  
    1313USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1414          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     15USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     16          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     17          , R_ecc, R_peri, R_incl                                      &
     18          , RA, RG, R1SA                                         &
     19          , RSIGMA                                                     &
     20          , R, RMD, RMV, RD, RV, RCPD                    &
     21          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     22          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     23          , RCW, RCS                                                 &
     24          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     25          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     26          , RALPD, RBETD, RGAMD
    1527IMPLICIT NONE
    1628
    1729
    1830  INCLUDE "chem.h"
    19   INCLUDE "YOMCST.h"
     31
    2032
    2133

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5272 r5274  
    1818USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1919          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     20USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     21          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     22          , R_ecc, R_peri, R_incl                                      &
     23          , RA, RG, R1SA                                         &
     24          , RSIGMA                                                     &
     25          , R, RMD, RMV, RD, RV, RCPD                    &
     26          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     27          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     28          , RCW, RCS                                                 &
     29          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     30          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     31          , RALPD, RBETD, RGAMD
    2032IMPLICIT NONE
    2133
    2234
    2335  INCLUDE "chem.h"
    24   INCLUDE "YOMCST.h"
     36
    2537
    2638

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90

    r5271 r5274  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
    1123IMPLICIT NONE
    1224  !
    … …  
    1426  INCLUDE "chem.h"
    1527  INCLUDE "chem_spla.h"
    16   INCLUDE "YOMCST.h"
     28
    1729  INCLUDE "YOECUMF.h"
    1830  !

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5272 r5274  
    1212USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1313          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     15          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     16          , R_ecc, R_peri, R_incl                                      &
     17          , RA, RG, R1SA                                         &
     18          , RSIGMA                                                     &
     19          , R, RMD, RMV, RD, RV, RCPD                    &
     20          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     21          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     22          , RCW, RCS                                                 &
     23          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     24          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     25          , RALPD, RBETD, RGAMD
    1426IMPLICIT NONE
    1527
    1628
    1729  INCLUDE "chem.h"
    18   INCLUDE "YOMCST.h"
     30
    1931
    2032

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5272 r5274  
    1212USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1313          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     15          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     16          , R_ecc, R_peri, R_incl                                      &
     17          , RA, RG, R1SA                                         &
     18          , RSIGMA                                                     &
     19          , R, RMD, RMV, RD, RV, RCPD                    &
     20          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     21          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     22          , RCW, RCS                                                 &
     23          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     24          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     25          , RALPD, RBETD, RGAMD
    1426IMPLICIT NONE
    1527
    1628
    1729  INCLUDE "chem.h"
    18   INCLUDE "YOMCST.h"
     30
    1931
    2032

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90

    r5271 r5274  
    44  USE dimphy
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618IMPLICIT NONE
    719  !=====================================================================
    … …  
    1325
    1426  INCLUDE "chem.h"
    15   INCLUDE "YOMCST.h"
     27
    1628  INCLUDE "YOECUMF.h"
    1729  !

  • LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90

    r5271 r5274  
    44  USE infotrac
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618IMPLICIT NONE
    719  !
    820
    9   INCLUDE "YOMCST.h"
     21
    1022  !
    1123  REAL :: t_seri(klon,klev), pplay(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90

    r5271 r5274  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     16USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     17          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     18          , R_ecc, R_peri, R_incl                                      &
     19          , RA, RG, R1SA                                         &
     20          , RSIGMA                                                     &
     21          , R, RMD, RMV, RD, RV, RCPD                    &
     22          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     23          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     24          , RCW, RCS                                                 &
     25          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     26          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     27          , RALPD, RBETD, RGAMD
    1628IMPLICIT NONE
    1729!=====================================================================
    … …  
    2436
    2537  include "chem.h"
    26   include "YOMCST.h"
     38
    2739  include "YOECUMF.h"
    2840

  • LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90

    r5271 r5274  
    1515  USE iophy
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     17USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     18          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     19          , R_ecc, R_peri, R_incl                                      &
     20          , RA, RG, R1SA                                         &
     21          , RSIGMA                                                     &
     22          , R, RMD, RMV, RD, RV, RCPD                    &
     23          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     24          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     25          , RCW, RCS                                                 &
     26          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     27          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     28          , RALPD, RBETD, RGAMD
    1729IMPLICIT NONE
    1830!=====================================================================
    … …  
    2638
    2739  include "chem.h"
    28   include "YOMCST.h"
     40
    2941  include "YOECUMF.h"
    3042

  • LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90

    r5271 r5274  
    66  USE indice_sol_mod
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
    820IMPLICIT NONE
    921  !
    1022
    11   INCLUDE "YOMCST.h"
     23
    1224  !
    1325  REAL :: u(klon,klev), v(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r5271 r5274  
    397397
    398398    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     399USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     400          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     401          , R_ecc, R_peri, R_incl                                      &
     402          , RA, RG, R1SA                                         &
     403          , RSIGMA                                                     &
     404          , R, RMD, RMV, RD, RV, RCPD                    &
     405          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     406          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     407          , RCW, RCS                                                 &
     408          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     409          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     410          , RALPD, RBETD, RGAMD
    399411IMPLICIT NONE
    400412
    … …  
    403415    INCLUDE "alpale.h"
    404416    INCLUDE "compbl.h"
    405     INCLUDE "YOMCST.h"
     417
    406418
    407419    include "iniprint.h"

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5272 r5274  
    794794!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    795795
     796      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     797          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     798          , R_ecc, R_peri, R_incl                                      &
     799          , RA, RG, R1SA                                         &
     800          , RSIGMA                                                     &
     801          , R, RMD, RMV, RD, RV, RCPD                    &
     802          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     803          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     804          , RCW, RCS                                                 &
     805          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     806          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     807          , RALPD, RBETD, RGAMD
    796808      USE mod_grid_phy_lmdz
    797809      USE mod_phys_lmdz_para
    … …  
    801813      USE indice_sol_mod
    802814      USE write_field_phy
    803      
     815
    804816
    805817      USE mod_phys_lmdz_transfert_para
    … …  
    819831! Remarques en vrac:
    820832! ------------------
    821 ! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien 
     833! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien
    822834! les vrais traceurs (nbtr) dans phytrac (pas la vapeur ni eau liquide)
    823 !! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ; 
     835!! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ;
    824836!!   et c'est encore different avec le parser de DC ?
    825837!======================================================================
    826838      INCLUDE "chem.h"
    827839      INCLUDE "chem_spla.h"
    828       INCLUDE "YOMCST.h"
    829840      INCLUDE "YOETHF.h"
    830841      INCLUDE "alpale.h"

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5272 r5274  
    2323USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    2424          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     25USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     26          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     27          , R_ecc, R_peri, R_incl                                      &
     28          , RA, RG, R1SA                                         &
     29          , RSIGMA                                                     &
     30          , R, RMD, RMV, RD, RV, RCPD                    &
     31          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     32          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     33          , RCW, RCS                                                 &
     34          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     35          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     36          , RALPD, RBETD, RGAMD
    2537IMPLICIT NONE
    2638
    … …  
    2840  INCLUDE "chem.h"
    2941  INCLUDE "chem_spla.h"
    30   INCLUDE "YOMCST.h"
     42
    3143
    3244

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90

    r5271 r5274  
    66  USE dimphy
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
    820IMPLICIT NONE
    921  !
    … …  
    1123  INCLUDE "chem.h"
    1224  INCLUDE "chem_spla.h"
    13   INCLUDE "YOMCST.h"
     25
    1426  INCLUDE "YOECUMF.h"
    1527  !

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90

    r5271 r5274  
    1111   USE infotrac
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
    1325IMPLICIT NONE
    1426  !
    … …  
    1628  INCLUDE "chem.h"
    1729    ! INCLUDE "dimphy.h"
    18   INCLUDE "YOMCST.h"
     30
    1931  INCLUDE "YOECUMF.h"
    2032  !

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5272 r5274  
    1111USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1212          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     13USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
    1325IMPLICIT NONE
    1426
    1527
    1628  INCLUDE "chem.h"
    17   INCLUDE "YOMCST.h"
     29
    1830
    1931

  • LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90

    r4176 r5274  
    2525
    2626#ifdef IN_LMDZ
    27     include "YOMCST.h"
    28     ! for eps_w
     27     USE yomcst_mod_h, ONLY: eps_w
    2928#endif
    3029

  • LMDZ6/trunk/libf/phylmd/StratAer/coagulate.f90

    r5268 r5274  
    2323  !     -----------------------------------------------------------------------
    2424
     25  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     26          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     27          , R_ecc, R_peri, R_incl                                      &
     28          , RA, RG, R1SA                                         &
     29          , RSIGMA                                                     &
     30          , R, RMD, RMV, RD, RV, RCPD                    &
     31          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     32          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     33          , RCW, RCS                                                 &
     34          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     35          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     36          , RALPD, RBETD, RGAMD
    2537  USE dimphy, ONLY : klon,klev
    2638  USE aerophys
    … …  
    2840  USE phys_local_var_mod, ONLY: DENSO4, DENSO4B, f_r_wet, f_r_wetB
    2941  USE strataer_local_var_mod, ONLY: flag_new_strat_compo
    30  
     42
    3143  IMPLICIT NONE
    3244
    … …  
    6981
    7082  ! Additional variables for coagulation enhancement factor due to van der Waals forces
    71   ! Taken from Chan and Mozurkewich, Measurement of the coagulation rate constant for sulfuric acid 
     83  ! Taken from Chan and Mozurkewich, Measurement of the coagulation rate constant for sulfuric acid
    7284  ! particles as a function of particle size using TDMA, Aerosol Science, 32, 321-339, 2001.
    7385  !--ok_vdw is 0 for no vdW forces, 1 for E(0), 2 for E(infinity)
    … …  
    8395  REAL                                          :: EvdW
    8496
    85   include "YOMCST.h"
    8697
    8798! ff(i,j,k): Volume fraction of Vi,j that is partitioned to each model bin k

  • LMDZ6/trunk/libf/phylmd/StratAer/nucleation_tstep_mod.f90

    r5268 r5274  
    88SUBROUTINE nucleation_rate(rhoa,t_seri,pplay,rh,a_xm,b_xm,c_xm,nucl_rate,ntot_n,x_n)
    99
     10  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     11          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     12          , R_ecc, R_peri, R_incl                                      &
     13          , RA, RG, R1SA                                         &
     14          , RSIGMA                                                     &
     15          , R, RMD, RMV, RD, RV, RCPD                    &
     16          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     17          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     18          , RCW, RCS                                                 &
     19          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     20          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     21          , RALPD, RBETD, RGAMD
    1022  USE aerophys
    1123  USE infotrac_phy
    1224  USE strataer_local_var_mod, ONLY : flag_new_nucl
    13  
     25
    1426  IMPLICIT NONE
    1527
    … …  
    3850  REAL ipr     ! Ion pair production rate (cm-3 s-1) NOT IN USE
    3951
    40   include "YOMCST.h"
    4152
    4253  ! call nucleation routine
    … …  
    331342  !
    332343
     344  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     345          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     346          , R_ecc, R_peri, R_incl                                      &
     347          , RA, RG, R1SA                                         &
     348          , RSIGMA                                                     &
     349          , R, RMD, RMV, RD, RV, RCPD                    &
     350          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     351          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     352          , RCW, RCS                                                 &
     353          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     354          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     355          , RALPD, RBETD, RGAMD
    333356  USE aerophys
    334357
    335   IMPLICIT NONE 
     358  IMPLICIT NONE
    336359
    337360  !----------------------------------------------------
    338  
     361
    339362  !Global intent in
    340   REAL,INTENT(IN) :: t         ! temperature in K 
     363  REAL,INTENT(IN) :: t         ! temperature in K
    341364  REAL,INTENT(IN) :: satrat    ! saturatio ratio of water (between zero and 1)
    342365  REAL,INTENT(IN) :: rhoa      ! sulfuric acid concentration in 1/cm3
    … …  
    349372  REAL,INTENT(OUT) :: jnuc_i_real   ! Charged nucleation rate in 1/cm3s (J>10^-7 1/cm3s)
    350373  REAL,INTENT(OUT) :: ntot_i_real   ! total number of molecules in the charged critical cluster
    351   REAL,INTENT(OUT) :: x_n_real      ! mole fraction of H2SO4 in the neutral critical cluster 
    352   REAL,INTENT(OUT) :: x_i_real      ! mole fraction of H2SO4 in the charged critical cluster 
    353                                            ! (note that x_n=x_i in nucleation regime) 
     374  REAL,INTENT(OUT) :: x_n_real      ! mole fraction of H2SO4 in the neutral critical cluster
     375  REAL,INTENT(OUT) :: x_i_real      ! mole fraction of H2SO4 in the charged critical cluster
     376                                           ! (note that x_n=x_i in nucleation regime)
    354377  REAL,INTENT(OUT) :: na_n_real     ! sulfuric acid molecules in the neutral critical cluster
    355378  REAL,INTENT(OUT) :: na_i_real     ! sulfuric molecules in the charged critical cluster
    356   REAL,INTENT(OUT) :: rc_n_real     ! radius of the charged critical cluster in nm 
    357   REAL,INTENT(OUT) :: rc_i_real     ! radius of the charged critical cluster in nm 
    358   REAL,INTENT(OUT) :: n_i_real      ! number of ion pairs in air (cm-3) 
     379  REAL,INTENT(OUT) :: rc_n_real     ! radius of the charged critical cluster in nm
     380  REAL,INTENT(OUT) :: rc_i_real     ! radius of the charged critical cluster in nm
     381  REAL,INTENT(OUT) :: n_i_real      ! number of ion pairs in air (cm-3)
    359382  LOGICAL,INTENT(OUT)  :: kinetic_n        ! true if kinetic neutral nucleation
    360383  LOGICAL,INTENT(OUT)  :: kinetic_i        ! true if kinetic ion-induced nucleation
    … …  
    365388  DOUBLE PRECISION :: jnuc_i      ! Charged nucleation rate in 1/cm3s (J>10^-7 1/cm3s)
    366389  DOUBLE PRECISION :: ntot_i      ! total number of molecules in the charged critical cluster
    367   DOUBLE PRECISION :: x_n         ! mole fraction of H2SO4 in the neutral critical cluster 
    368   DOUBLE PRECISION :: x_i         ! mole fraction of H2SO4 in the charged critical cluster 
    369                                               ! (note that x_n=x_i in nucleation regime) 
     390  DOUBLE PRECISION :: x_n         ! mole fraction of H2SO4 in the neutral critical cluster
     391  DOUBLE PRECISION :: x_i         ! mole fraction of H2SO4 in the charged critical cluster
     392                                              ! (note that x_n=x_i in nucleation regime)
    370393  DOUBLE PRECISION :: na_n        ! sulfuric acid molecules in the neutral critical cluster
    371394  DOUBLE PRECISION :: na_i        ! sulfuric molecules in the charged critical cluster
    372   DOUBLE PRECISION :: rc_n        ! radius of the charged critical cluster in nm 
    373   DOUBLE PRECISION :: rc_i        ! radius of the charged critical cluster in nm 
    374   DOUBLE PRECISION :: n_i         ! number of ion pairs in air (cm-3) 
    375   DOUBLE PRECISION :: x           ! mole fraction of H2SO4 in the critical cluster 
     395  DOUBLE PRECISION :: rc_n        ! radius of the charged critical cluster in nm
     396  DOUBLE PRECISION :: rc_i        ! radius of the charged critical cluster in nm
     397  DOUBLE PRECISION :: n_i         ! number of ion pairs in air (cm-3)
     398  DOUBLE PRECISION :: x           ! mole fraction of H2SO4 in the critical cluster
    376399  DOUBLE PRECISION :: satratln    ! bounded water saturation ratio for neutral case (between 5.E-6 - 1.0)
    377400  DOUBLE PRECISION :: satratli    ! bounded water saturation ratio for ion-induced case (between 1.E-7 - 0.95)
    … …  
    380403  DOUBLE PRECISION :: tln         ! bounded temperature for neutral case (between 165-400 K)
    381404  DOUBLE PRECISION :: tli         ! bounded temperature for ion-induced case (195-400 K)
    382   DOUBLE PRECISION :: kinrhotresn ! threshold sulfuric acid for neutral kinetic nucleation   
    383   DOUBLE PRECISION :: kinrhotresi ! threshold sulfuric acid for ion-induced kinetic nucleation
    384   DOUBLE PRECISION :: jnuc_i1     ! Ion-induced rate for n_i=1 cm-3
    385   DOUBLE PRECISION :: xloss       ! Ion loss rate
    386   DOUBLE PRECISION :: recomb      ! Ion-ion recombination rate
    387 
    388   include "YOMCST.h"
     405  DOUBLE PRECISION :: kinrhotresn ! threshold sulfuric acid for neutral kinetic nucleation
     406  DOUBLE PRECISION :: kinrhotresi ! threshold sulfuric acid for ion-induced kinetic nucleation
     407  DOUBLE PRECISION :: jnuc_i1     ! Ion-induced rate for n_i=1 cm-3
     408  DOUBLE PRECISION :: xloss       ! Ion loss rate
     409  DOUBLE PRECISION :: recomb      ! Ion-ion recombination rate
     410
    389411
    390412  !--- 0) Initializations:

  • LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.f90

    r5268 r5274  
    214214  SUBROUTINE strataer_ponde_init()
    215215
    216     USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
     216    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     217          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     218          , R_ecc, R_peri, R_incl                                      &
     219          , RA, RG, R1SA                                         &
     220          , RSIGMA                                                     &
     221          , R, RMD, RMV, RD, RV, RCPD                    &
     222          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     223          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     224          , RCW, RCS                                                 &
     225          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     226          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     227          , RALPD, RBETD, RGAMD
     228USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
    217229    USE dimphy, ONLY: klon
    218230    USE mod_grid_phy_lmdz, ONLY: nbp_lat, nbp_lon
    … …  
    220232    USE strataer_local_var_mod
    221233
    222     INCLUDE "YOMCST.h"  !--RPI
     234      !--RPI
    223235
    224236    ! local var

  • LMDZ6/trunk/libf/phylmd/acama_gwd_rando_m.f90

    r5271 r5274  
    2121
    2222!  ONLINE:
    23     use dimphy, only: klon, klev
     23    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     24          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     25          , R_ecc, R_peri, R_incl                                      &
     26          , RA, RG, R1SA                                         &
     27          , RSIGMA                                                     &
     28          , R, RMD, RMV, RD, RV, RCPD                    &
     29          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     30          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     31          , RCW, RCS                                                 &
     32          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     33          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     34          , RALPD, RBETD, RGAMD
     35use dimphy, only: klon, klev
    2436    use assert_m, only: assert
    2537    USE ioipsl_getin_p_mod, ONLY : getin_p
    2638    USE vertical_layers_mod, ONLY : presnivs
    2739
    28     include "YOMCST.h"
     40
    2941    include "clesphys.h"
    3042!  OFFLINE:

  • LMDZ6/trunk/libf/phylmd/add_phys_tend_mod.f90

    r5268 r5274  
    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 yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     111          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     112          , R_ecc, R_peri, R_incl                                      &
     113          , RA, RG, R1SA                                         &
     114          , RSIGMA                                                     &
     115          , R, RMD, RMV, RD, RV, RCPD                    &
     116          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     117          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     118          , RCW, RCS                                                 &
     119          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     120          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     121          , RALPD, RBETD, RGAMD
    110122IMPLICIT none
    111 INCLUDE "YOMCST.h"
     123
    112124INCLUDE "clesphys.h"
    113125
    … …  
    509521USE 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 &
    510522  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
     523USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     524          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     525          , R_ecc, R_peri, R_incl                                      &
     526          , RA, RG, R1SA                                         &
     527          , RSIGMA                                                     &
     528          , R, RMD, RMV, RD, RV, RCPD                    &
     529          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     530          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     531          , RCW, RCS                                                 &
     532          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     533          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     534          , RALPD, RBETD, RGAMD
    511535IMPLICIT none
    512   include "YOMCST.h"
     536
    513537  include "clesphys.h"
    514538
    … …  
    660684                    zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col)
    661685
     686USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     687          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     688          , R_ecc, R_peri, R_incl                                      &
     689          , RA, RG, R1SA                                         &
     690          , RSIGMA                                                     &
     691          , R, RMD, RMV, RD, RV, RCPD                    &
     692          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     693          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     694          , RCW, RCS                                                 &
     695          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     696          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     697          , RALPD, RBETD, RGAMD
    662698IMPLICIT none
    663 INCLUDE "YOMCST.h"
     699
    664700
    665701INTEGER,                    INTENT(IN)    :: nlon,nlev
    … …  
    740776   &  , rain_lsc, snow_lsc
    741777USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd
     778USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     779          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     780          , R_ecc, R_peri, R_incl                                      &
     781          , RA, RG, R1SA                                         &
     782          , RSIGMA                                                     &
     783          , R, RMD, RMV, RD, RV, RCPD                    &
     784          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     785          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     786          , RCW, RCS                                                 &
     787          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     788          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     789          , RALPD, RBETD, RGAMD
    742790IMPLICIT none
    743 INCLUDE "YOMCST.h"
     791
    744792
    745793! Arguments :

  • LMDZ6/trunk/libf/phylmd/aeropt.f90

    r5268 r5274  
    66
    77  USE dimphy
    8   IMPLICIT NONE
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
    921
    1022
    1123
    12   include "YOMCST.h"
     24
    1325
    1426  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/aeropt_2bands.f90

    r5268 r5274  
    1717  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
    1818  !
    19   IMPLICIT NONE
    20 
    21   INCLUDE "YOMCST.h"
     19  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     20          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     21          , R_ecc, R_peri, R_incl                                      &
     22          , RA, RG, R1SA                                         &
     23          , RSIGMA                                                     &
     24          , R, RMD, RMV, RD, RV, RCPD                    &
     25          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     26          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     27          , RCW, RCS                                                 &
     28          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     29          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     30          , RALPD, RBETD, RGAMD
     31IMPLICIT NONE
     32
     33
    2234
    2335  !

  • LMDZ6/trunk/libf/phylmd/aeropt_5wv.f90

    r5268 r5274  
    4949  ! Chemistry and Physics Discussions., 6, pp 8383-8419, 2006.
    5050  !
    51   IMPLICIT NONE
    52   INCLUDE "YOMCST.h"
     51  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     52          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     53          , R_ecc, R_peri, R_incl                                      &
     54          , RA, RG, R1SA                                         &
     55          , RSIGMA                                                     &
     56          , R, RMD, RMV, RD, RV, RCPD                    &
     57          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     58          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     59          , RCW, RCS                                                 &
     60          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     61          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     62          , RALPD, RBETD, RGAMD
     63IMPLICIT NONE
     64
    5365  !
    5466  ! Input arguments:

  • LMDZ6/trunk/libf/phylmd/ajsec.f90

    r5268 r5274  
    44SUBROUTINE ajsec(paprs, pplay, t, q, limbas, d_t, d_q)
    55  USE dimphy
    6   IMPLICIT NONE
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
     18IMPLICIT NONE
    719  ! ======================================================================
    820  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    1426  ! d_t-----output-R-Incrementation de la temperature
    1527  ! ======================================================================
    16   include "YOMCST.h"
     28
    1729  REAL paprs(klon, klev+1), pplay(klon, klev)
    1830  REAL t(klon, klev), q(klon, klev)
    … …  
    156168SUBROUTINE ajsec_convv2(paprs, pplay, t, q, d_t, d_q)
    157169  USE dimphy
    158   IMPLICIT NONE
     170  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     171          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     172          , R_ecc, R_peri, R_incl                                      &
     173          , RA, RG, R1SA                                         &
     174          , RSIGMA                                                     &
     175          , R, RMD, RMV, RD, RV, RCPD                    &
     176          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     177          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     178          , RCW, RCS                                                 &
     179          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     180          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     181          , RALPD, RBETD, RGAMD
     182IMPLICIT NONE
    159183  ! ======================================================================
    160184  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    166190  ! d_t-----output-R-Incrementation de la temperature
    167191  ! ======================================================================
    168   include "YOMCST.h"
     192
    169193  REAL paprs(klon, klev+1), pplay(klon, klev)
    170194  REAL t(klon, klev), q(klon, klev)
    … …  
    305329SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
    306330  USE dimphy
    307   IMPLICIT NONE
     331  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     332          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     333          , R_ecc, R_peri, R_incl                                      &
     334          , RA, RG, R1SA                                         &
     335          , RSIGMA                                                     &
     336          , R, RMD, RMV, RD, RV, RCPD                    &
     337          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     338          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     339          , RCW, RCS                                                 &
     340          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     341          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     342          , RALPD, RBETD, RGAMD
     343IMPLICIT NONE
    308344  ! ======================================================================
    309345  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    315351  ! d_t-----output-R-Incrementation de la temperature
    316352  ! ======================================================================
    317   include "YOMCST.h"
     353
    318354  REAL paprs(klon, klev+1), pplay(klon, klev)
    319355  REAL t(klon, klev)

  • LMDZ6/trunk/libf/phylmd/albedo.f90

    r5268 r5274  
    22module albedo
    33
    4   IMPLICIT NONE
     4  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     6          , R_ecc, R_peri, R_incl                                      &
     7          , RA, RG, R1SA                                         &
     8          , RSIGMA                                                     &
     9          , R, RMD, RMV, RD, RV, RCPD                    &
     10          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     11          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     12          , RCW, RCS                                                 &
     13          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     14          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     15          , RALPD, RBETD, RGAMD
     16IMPLICIT NONE
    517
    618contains
    … …  
    1931    ! albedo (out,R): albedo obtenu (de 0 a 1)
    2032    ! ======================================================================
    21     include "YOMCST.h"
     33
    2234    include "clesphys.h"
    2335

  • LMDZ6/trunk/libf/phylmd/alpale.f90

    r5268 r5274  
    2020  USE phys_local_var_mod, ONLY: zw2       ! Variables internes non sauvegardees de la physique
    2121!
    22   IMPLICIT NONE
     22  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     23          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     24          , R_ecc, R_peri, R_incl                                      &
     25          , RA, RG, R1SA                                         &
     26          , RSIGMA                                                     &
     27          , R, RMD, RMV, RD, RV, RCPD                    &
     28          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     29          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     30          , RCW, RCS                                                 &
     31          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     32          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     33          , RALPD, RBETD, RGAMD
     34IMPLICIT NONE
    2335
    2436!================================================================
    … …  
    4961
    5062  include "alpale.h"
    51   include "YOMCST.h"
     63
    5264  include "YOETHF.h"
    5365

  • LMDZ6/trunk/libf/phylmd/alpale_wk.f90

    r5268 r5274  
    1414  USE ioipsl_getin_p_mod, ONLY : getin_p
    1515  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    16 !
     16  USE yomcst_mod_h, ONLY: rpi
     17
    1718  IMPLICIT NONE
    1819
    … …  
    4445  REAL, DIMENSION(klon)                                      :: wkrad
    4546  REAL, DIMENSION(klon)                                      :: proba_gf
    46 
    47   INCLUDE "YOMCST.h"   ! rpi
    4847
    4948IF (first) THEN

  • LMDZ6/trunk/libf/phylmd/atm2geo.f90

    r5268 r5274  
    66  USE mod_phys_lmdz_para
    77  USE mod_grid_phy_lmdz, only: grid_type, unstructured, regular_lonlat
    8   IMPLICIT NONE
    9   INCLUDE 'YOMCST.h'
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
     21
    1022
    1123  CHARACTER (len = 6)                :: clmodnam

  • LMDZ6/trunk/libf/phylmd/borne_var_surf.f90

    r5268 r5274  
    77         zrh2m_cor, zqsat2m_cor)
    88
     9USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     10          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     11          , R_ecc, R_peri, R_incl                                      &
     12          , RA, RG, R1SA                                         &
     13          , RSIGMA                                                     &
     14          , R, RMD, RMV, RD, RV, RCPD                    &
     15          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     16          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     17          , RCW, RCS                                                 &
     18          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     19          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     20          , RALPD, RBETD, RGAMD
    921IMPLICIT NONE
    1022
    … …  
    1830REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: t2m, q2m, u10m, v10m
    1931REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol, pctsrf
    20 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 
     32REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs
    2133REAL,DIMENSION(klon),INTENT(IN) :: qsurf
    2234REAL,DIMENSION (klon),INTENT(OUT) :: zt2m_cor, zq2m_cor, zu10m_cor, zv10m_cor
    … …  
    2840REAL,DIMENSION (klon,nbsrf) :: t2m_cor, q2m_cor, u10m_cor, v10m_cor
    2941REAL                               :: zx_qs1, zcor1, zdelta1
    30 include "YOMCST.h"
     42
    3143include "YOETHF.h"
    3244include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/calcul_fluxs_mod.f90

    r5268 r5274  
    1919    USE indice_sol_mod
    2020    use sens_heat_rain_m, only: sens_heat_rain
     21    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
    2133
    2234    INCLUDE "clesphys.h"
    … …  
    5567!   dflux_s      derivee du flux de chaleur sensible / Ts
    5668!   dflux_l      derivee du flux de chaleur latente  / Ts
    57 !   sens_prec_liq flux sensible lié aux echanges de precipitations liquides
     69!   sens_prec_liq flux sensible li� aux echanges de precipitations liquides
    5870!   sens_prec_sol                                    precipitations solides
    59 !   lat_prec_liq  flux latent lié aux echanges de precipitations liquides
     71!   lat_prec_liq  flux latent li� aux echanges de precipitations liquides
    6072!   lat_prec_sol                                  precipitations solides
    6173
    6274    INCLUDE "YOETHF.h"
    6375    INCLUDE "FCTTRE.h"
    64     INCLUDE "YOMCST.h"
    6576
    6677! Parametres d'entree
    … …  
    288299       flux_u1, flux_v1)
    289300
    290     USE dimphy
    291     INCLUDE "YOMCST.h"
     301    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     302          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     303          , R_ecc, R_peri, R_incl                                      &
     304          , RA, RG, R1SA                                         &
     305          , RSIGMA                                                     &
     306          , R, RMD, RMV, RD, RV, RCPD                    &
     307          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     308          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     309          , RCW, RCS                                                 &
     310          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     311          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     312          , RALPD, RBETD, RGAMD
     313USE dimphy
     314
    292315    INCLUDE "clesphys.h"
    293316

  • LMDZ6/trunk/libf/phylmd/calwake.f90

    r5268 r5274  
    3030  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    3131  USE lmdz_wake, ONLY : wake
    32   IMPLICIT NONE
     32  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     33          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     34          , R_ecc, R_peri, R_incl                                      &
     35          , RA, RG, R1SA                                         &
     36          , RSIGMA                                                     &
     37          , R, RMD, RMV, RD, RV, RCPD                    &
     38          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     39          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     40          , RCW, RCS                                                 &
     41          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     42          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     43          , RALPD, RBETD, RGAMD
     44IMPLICIT NONE
    3345  ! ======================================================================
    34   include "YOMCST.h"
     46
    3547
    3648  ! Arguments

  • LMDZ6/trunk/libf/phylmd/cdrag_mod.f90

    r5268 r5274  
    2929  USE ioipsl_getin_p_mod, ONLY : getin_p
    3030  USE lmdz_atke_turbulence_ini, ONLY : smmin, ric, cinf, cepsilon, pr_slope, pr_asym, pr_neut
     31  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     32          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     33          , R_ecc, R_peri, R_incl                                      &
     34          , RA, RG, R1SA                                         &
     35          , RSIGMA                                                     &
     36          , R, RMD, RMV, RD, RV, RCPD                    &
     37          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     38          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     39          , RCW, RCS                                                 &
     40          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     41          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     42          , RALPD, RBETD, RGAMD
    3143
    3244  IMPLICIT NONE
    … …  
    114126! Variables Locales
    115127!******************************************************************
    116  
    117 
    118   INCLUDE "YOMCST.h"
    119128  INCLUDE "YOETHF.h"
    120129  INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90

    r5268 r5274  
    2626!
    2727
    28     USE dimphy
     28    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     29          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     30          , R_ecc, R_peri, R_incl                                      &
     31          , RA, RG, R1SA                                         &
     32          , RSIGMA                                                     &
     33          , R, RMD, RMV, RD, RV, RCPD                    &
     34          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     35          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     36          , RCW, RCS                                                 &
     37          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     38          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     39          , RALPD, RBETD, RGAMD
     40USE dimphy
    2941    USE surface_data, ONLY : type_ocean,version_ocean
    3042    USE limit_read_mod
    … …  
    3446    USE indice_sol_mod
    3547    USE print_control_mod, ONLY: lunout
    36    
    37     INCLUDE "YOMCST.h"
     48
     49
    3850!albedo SB >>>
    3951    include "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/clcdrag.f90

    r5268 r5274  
    1010  USE indice_sol_mod
    1111
    12   IMPLICIT NONE
     12  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     13          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     14          , R_ecc, R_peri, R_incl                                      &
     15          , RA, RG, R1SA                                         &
     16          , RSIGMA                                                     &
     17          , R, RMD, RMV, RD, RV, RCPD                    &
     18          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     19          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     20          , RCW, RCS                                                 &
     21          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     22          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     23          , RALPD, RBETD, RGAMD
     24IMPLICIT NONE
    1325! ================================================================= c
    1426!
    15 ! Objet : calcul des cdrags pour le moment (pcfm) et 
    16 !         les flux de chaleur sensible et latente (pcfh).   
     27! Objet : calcul des cdrags pour le moment (pcfm) et
     28!         les flux de chaleur sensible et latente (pcfh).
    1729!
    1830! ================================================================= c
    … …  
    2840! rugos---input-R- rugosite
    2941!
    30 ! pcfm---output-R- cdrag pour le moment 
     42! pcfm---output-R- cdrag pour le moment
    3143! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible
    3244!
    … …  
    4153! ================================================================= c
    4254!
    43   INCLUDE "YOMCST.h"
     55
    4456  INCLUDE "YOETHF.h"
    4557  INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/clift.f90

    r5268 r5274  
    33
    44SUBROUTINE clift(p, t, rr, rs, plcl, dplcldt, dplcldq)
     5  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517IMPLICIT NONE
    618  ! ***************************************************************
    … …  
    4052
    4153  ! on utilise les constantes thermo du Centre Europeen: (sb)
    42 
    43   include "YOMCST.h"
    44   real :: p,t,rr,rs,plcl,dplcldt,dplcldq,cpd,cpv,cl,cpvmcl,eps,alv0,a,b
     54 real :: p,t,rr,rs,plcl,dplcldt,dplcldq,cpd,cpv,cl,cpvmcl,eps,alv0,a,b
    4555  real :: rh,chi,alv
    4656

  • LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90

    r5268 r5274  
    4545! for the quantity X=[Q,H] in equation X(k) = C(k) + D(k)*X(k-1), where k is
    4646! the index of the vertical layer.
    47 !
     47   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     48          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     49          , R_ecc, R_peri, R_incl                                      &
     50          , RA, RG, R1SA                                         &
     51          , RSIGMA                                                     &
     52          , R, RMD, RMV, RD, RV, RCPD                    &
     53          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     54          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     55          , RCW, RCS                                                 &
     56          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     57          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     58          , RALPD, RBETD, RGAMD
    4859! Input arguments
    4960!****************************************************************************************
    … …  
    8495! Include
    8596!****************************************************************************************
    86     INCLUDE "YOMCST.h"
    87     INCLUDE "compbl.h"   
     97    INCLUDE "compbl.h"
    8898
    8999
    … …  
    253263! where X is H or Q, and k the vertical level k=1,klev
    254264!
    255     INCLUDE "YOMCST.h"
    256 ! Input arguments
     265USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     266          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     267          , R_ecc, R_peri, R_incl                                      &
     268          , RA, RG, R1SA                                         &
     269          , RSIGMA                                                     &
     270          , R, RMD, RMV, RD, RV, RCPD                    &
     271          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     272          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     273          , RCW, RCS                                                 &
     274          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     275          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     276          , RALPD, RBETD, RGAMD! Input arguments
    257277!****************************************************************************************
    258278    INTEGER, INTENT(IN)                      :: knon
    … …  
    330350! C and D are known from before and k is index of the vertical layer.
    331351!   
    332 
     352USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     353          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     354          , R_ecc, R_peri, R_incl                                      &
     355          , RA, RG, R1SA                                         &
     356          , RSIGMA                                                     &
     357          , R, RMD, RMV, RD, RV, RCPD                    &
     358          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     359          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     360          , RCW, RCS                                                 &
     361          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     362          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     363          , RALPD, RBETD, RGAMD
    333364! Input arguments
    334365!****************************************************************************************
    … …  
    359390! Include
    360391!****************************************************************************************
    361     INCLUDE "YOMCST.h"
    362     INCLUDE "compbl.h"   
     392    INCLUDE "compbl.h"
    363393
    364394!****************************************************************************************

  • LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90

    r5268 r5274  
    3232! for the quantity X=[QBS] in equation X(k) = C(k) + D(k)*X(k-1), where k is
    3333! the index of the vertical layer.
    34 !
     34USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     35          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     36          , R_ecc, R_peri, R_incl                                      &
     37          , RA, RG, R1SA                                         &
     38          , RSIGMA                                                     &
     39          , R, RMD, RMV, RD, RV, RCPD                    &
     40          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     41          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     42          , RCW, RCS                                                 &
     43          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     44          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     45          , RALPD, RBETD, RGAMD
    3546! Input arguments
    3647!****************************************************************************************
    … …  
    6374! Include
    6475!****************************************************************************************
    65     INCLUDE "YOMCST.h"
    66     INCLUDE "compbl.h"   
     76    INCLUDE "compbl.h"
    6777
    6878
    … …  
    183193! Calculate the coefficients C and D in : X(k) = C(k) + D(k)*X(k-1)
    184194! where X is QQBS, and k the vertical level k=1,klev
    185 !
    186     INCLUDE "YOMCST.h"
     195USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     196          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     197          , R_ecc, R_peri, R_incl                                      &
     198          , RA, RG, R1SA                                         &
     199          , RSIGMA                                                     &
     200          , R, RMD, RMV, RD, RV, RCPD                    &
     201          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     202          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     203          , RCW, RCS                                                 &
     204          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     205          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     206          , RALPD, RBETD, RGAMD
    187207! Input arguments
    188208!****************************************************************************************
    … …  
    258278! C and D are known from before and k is index of the vertical layer.
    259279!   
    260 
     280USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     281          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     282          , R_ecc, R_peri, R_incl                                      &
     283          , RA, RG, R1SA                                         &
     284          , RSIGMA                                                     &
     285          , R, RMD, RMV, RD, RV, RCPD                    &
     286          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     287          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     288          , RCW, RCS                                                 &
     289          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     290          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     291          , RALPD, RBETD, RGAMD
    261292! Input arguments
    262293!****************************************************************************************
    … …  
    287318! Include
    288319!****************************************************************************************
    289     INCLUDE "YOMCST.h"
    290     INCLUDE "compbl.h"   
     320    INCLUDE "compbl.h"
    291321
    292322!****************************************************************************************

  • LMDZ6/trunk/libf/phylmd/climb_wind_mod.f90

    r5268 r5274  
    8585!
    8686!
    87 
     87USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     88          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     89          , R_ecc, R_peri, R_incl                                      &
     90          , RA, RG, R1SA                                         &
     91          , RSIGMA                                                     &
     92          , R, RMD, RMV, RD, RV, RCPD                    &
     93          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     94          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     95          , RCW, RCS                                                 &
     96          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     97          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     98          , RALPD, RBETD, RGAMD
    8899! Input arguments
    89100!****************************************************************************************
    … …  
    122133! Include
    123134!****************************************************************************************
    124     INCLUDE "YOMCST.h"
    125     INCLUDE "compbl.h"   
     135    INCLUDE "compbl.h"
    126136
    127137!****************************************************************************************
    … …  
    199209!
    200210! Find the coefficients C and D in fonction of alfa, K and delp
    201 !
     211USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     212          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     213          , R_ecc, R_peri, R_incl                                      &
     214          , RA, RG, R1SA                                         &
     215          , RSIGMA                                                     &
     216          , R, RMD, RMV, RD, RV, RCPD                    &
     217          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     218          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     219          , RCW, RCS                                                 &
     220          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     221          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     222          , RALPD, RBETD, RGAMD
    202223! Input arguments
    203224!****************************************************************************************
    … …  
    216237    INTEGER                                  :: k, i
    217238    REAL                                     :: buf
    218 
    219     INCLUDE "YOMCST.h"
    220 !****************************************************************************************
     239    !****************************************************************************************
    221240!
    222241
    … …  
    275294!
    276295!****************************************************************************************
    277 
     296USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     297          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     298          , R_ecc, R_peri, R_incl                                      &
     299          , RA, RG, R1SA                                         &
     300          , RSIGMA                                                     &
     301          , R, RMD, RMV, RD, RV, RCPD                    &
     302          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     303          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     304          , RCW, RCS                                                 &
     305          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     306          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     307          , RALPD, RBETD, RGAMD
    278308! Input arguments
    279309!****************************************************************************************
    … …  
    302332! Include
    303333!****************************************************************************************
    304     INCLUDE "YOMCST.h"
    305     INCLUDE "compbl.h"   
     334    INCLUDE "compbl.h"
    306335   
    307336!

  • LMDZ6/trunk/libf/phylmd/cltrac.f90

    r5268 r5274  
    66
    77  USE dimphy
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
    820  IMPLICIT NONE
    921!======================================================================
    … …  
    3042!!! flux_tr..output-R- flux de tr
    3143!======================================================================
    32   include "YOMCST.h"
    3344!
    3445! Entree

  • LMDZ6/trunk/libf/phylmd/cltracrn.f90

    r5268 r5274  
    1010  USE traclmdz_mod, ONLY : id_rn, id_pb
    1111  USE indice_sol_mod
    12 
     12  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     13          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     14          , R_ecc, R_peri, R_incl                                      &
     15          , RA, RG, R1SA                                         &
     16          , RSIGMA                                                     &
     17          , R, RMD, RMV, RD, RV, RCPD                    &
     18          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     19          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     20          , RCW, RCS                                                 &
     21          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     22          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     23          , RALPD, RBETD, RGAMD
    1324  IMPLICIT NONE
    1425!======================================================================
    … …  
    4556! d_trs....output-R- le changement de "trs"
    4657!======================================================================
    47   include "YOMCST.h"
    4858!
    4959!Entrees

  • LMDZ6/trunk/libf/phylmd/coare30_flux_cnrm_mod.f90

    r5268 r5274  
    101101!USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
    102102!USE PARKIND1  ,ONLY : JPRB
    103 !
     103USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     104          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     105          , R_ecc, R_peri, R_incl                                      &
     106          , RA, RG, R1SA                                         &
     107          , RSIGMA                                                     &
     108          , R, RMD, RMV, RD, RV, RCPD                    &
     109          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     110          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     111          , RCW, RCS                                                 &
     112          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     113          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     114          , RALPD, RBETD, RGAMD
    104115IMPLICIT NONE
    105116!
    … …  
    144155LOGICAL,            INTENT(IN)    :: LPWG    !
    145156real, dimension(3), intent(inout)      :: coeffs
    146 !
    147 !
    148 
    149 !INCLUDE "YOMCST.h"
    150 !INCLUDE "clesphys.h"
    151157
    152158!*      0.2    declarations of local variables
    … …  
    236242INTEGER :: NGRVWAVES        ! Pour le choix du z0
    237243
    238 INCLUDE "YOMCST.h"
    239244INCLUDE "clesphys.h"
    240245

  • LMDZ6/trunk/libf/phylmd/coef_diff_turb_mod.f90

    r5268 r5274  
    1919    USE indice_sol_mod
    2020    USE print_control_mod, ONLY: prt_level, lunout
     21    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
    2133!
    2234! Calculate coefficients(ycoefm, ycoefh) for turbulent diffusion in the
    … …  
    6375    INCLUDE "compbl.h"
    6476    INCLUDE "YOETHF.h"
    65     INCLUDE "YOMCST.h"
    66 
    6777
    6878    ykmm = 0 !ym missing init
    … …  
    208218       pcfm, pcfh)
    209219   
    210     USE dimphy
     220    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     221          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     222          , R_ecc, R_peri, R_incl                                      &
     223          , RA, RG, R1SA                                         &
     224          , RSIGMA                                                     &
     225          , R, RMD, RMV, RD, RV, RCPD                    &
     226          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     227          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     228          , RCW, RCS                                                 &
     229          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     230          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     231          , RALPD, RBETD, RGAMD
     232USE dimphy
    211233    USE indice_sol_mod
    212234    USE print_control_mod, ONLY: prt_level, lunout
    213  
     235
    214236!======================================================================
    215237! Auteur(s) F. Hourdin, M. Forichon, Z.X. Li (LMD/CNRS) date: 19930922
    … …  
    232254!======================================================================
    233255    INCLUDE "YOETHF.h"
    234     INCLUDE "YOMCST.h"
     256
    235257    INCLUDE "FCTTRE.h"
    236258    INCLUDE "compbl.h"
    … …  
    498520       pcfm, pcfh)
    499521
    500     USE dimphy
     522    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     523          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     524          , R_ecc, R_peri, R_incl                                      &
     525          , RA, RG, R1SA                                         &
     526          , RSIGMA                                                     &
     527          , R, RMD, RMV, RD, RV, RCPD                    &
     528          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     529          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     530          , RCW, RCS                                                 &
     531          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     532          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     533          , RALPD, RBETD, RGAMD
     534USE dimphy
    501535    USE indice_sol_mod
    502536
    … …  
    523557    REAL, DIMENSION(klon, klev), INTENT(IN)   ::  pplay
    524558    REAL, DIMENSION(klon, klev), INTENT(IN)   :: t(klon,klev)
    525    
     559
    526560    REAL, DIMENSION(klon, klev), INTENT(OUT)  :: pcfm, pcfh
    527561!
    … …  
    544578    REAL zdthmin(knon), zdthdp
    545579
    546     INCLUDE "YOMCST.h"
     580
    547581!
    548582! Initialiser les sorties

  • LMDZ6/trunk/libf/phylmd/coefcdrag.f90

    r5268 r5274  
    99      USE indice_sol_mod
    1010
    11       IMPLICIT none
     11      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
     23IMPLICIT none
    1224!-------------------------------------------------------------------------
    13 ! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur 
    14 !         sensible et latente (cdrah), du cdrag neutre (cdran), 
    15 !         du nombre de Richardson entre la surface et le niveau de reference 
    16 !         (zri1) et de la pression au niveau de reference (pref).   
     25! Objet : calcul des cdrags pour le moment (cdram) et les flux de chaleur
     26!         sensible et latente (cdrah), du cdrag neutre (cdran),
     27!         du nombre de Richardson entre la surface et le niveau de reference
     28!         (zri1) et de la pression au niveau de reference (pref).
    1729!
    1830! I. Musat, 01.07.2002
    … …  
    2739! q-------input-R- humidite de l'air au 1er niveau du modele
    2840! zgeop---input-R- geopotentiel au 1er niveau du modele
    29 ! psol----input-R- pression au sol 
     41! psol----input-R- pression au sol
    3042! ts------input-R- temperature de l'air a la surface
    3143! qsurf---input-R- humidite de l'air a la surface
    3244! rugos---input-R- rugosite
    33 ! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce 
     45! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce
    3446!                  et zref par rapport au Ri entre la sfce et la 1ere couche
    3547! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche
    … …  
    4254!
    4355      INTEGER, intent(in) :: klon, knon, nsrf
    44       LOGICAL, intent(in) :: zxli 
     56      LOGICAL, intent(in) :: zxli
    4557      REAL, dimension(klon), intent(in) :: speed, t, q, zgeop, psol
    46       REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1 
    47       LOGICAL, intent(in) :: okri   
     58      REAL, dimension(klon), intent(in) :: ts, qsurf, rugos, ri1
     59      LOGICAL, intent(in) :: okri
    4860!
    4961      REAL, dimension(klon), intent(out) :: cdram, cdrah, cdran, zri1, pref
    5062!-------------------------------------------------------------------------
    5163!
    52       include "YOMCST.h"
     64
    5365      include "YOETHF.h"
    5466      INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/coefkzmin.f90

    r5268 r5274  
    33
    44  USE dimphy
    5   IMPLICIT NONE
     5  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
     17IMPLICIT NONE
    618
    7   include "YOMCST.h"
     19
    820
    921  ! .......................................................................

  • LMDZ6/trunk/libf/phylmd/conccm.f90

    r5268 r5274  
    66
    77  USE dimphy
    8   IMPLICIT NONE
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
    921  ! ======================================================================
    1022  ! Auteur(s): Z.X. Li (LMD/CNRS) date: le 14 mars 1996
    … …  
    1224  ! (schema standard du modele NCAR CCM2)
    1325  ! ======================================================================
    14   include "YOMCST.h"
     26
    1527  include "YOETHF.h"
    1628
    … …  
    138150SUBROUTINE cmfmca(deltat, p, dp, gz, tb, shb, cmfprt, cmfprs, cnt, cnb)
    139151  USE dimphy
     152  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     153          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     154          , R_ecc, R_peri, R_incl                                      &
     155          , RA, RG, R1SA                                         &
     156          , RSIGMA                                                     &
     157          , R, RMD, RMV, RD, RV, RCPD                    &
     158          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     159          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     160          , RCW, RCS                                                 &
     161          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     162          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     163          , RALPD, RBETD, RGAMD
    140164  IMPLICIT NONE
    141165  ! -----------------------------------------------------------------------
    … …  
    290314
    291315  REAL qhalf, sh1, sh2, shbs1, shbs2
    292   include "YOMCST.h"
    293316  include "YOETHF.h"
    294317  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/concvl.f90

    r5268 r5274  
    3434  USE phys_local_var_mod, ONLY: omega
    3535  USE print_control_mod, ONLY: prt_level, lunout
     36  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     37          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     38          , R_ecc, R_peri, R_incl                                      &
     39          , RA, RG, R1SA                                         &
     40          , RSIGMA                                                     &
     41          , R, RMD, RMV, RD, RV, RCPD                    &
     42          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     43          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     44          , RCW, RCS                                                 &
     45          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     46          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     47          , RALPD, RBETD, RGAMD
    3648  IMPLICIT NONE
    3749! ======================================================================
    … …  
    223235  INTEGER, SAVE            :: itap, igout
    224236!$OMP THREADPRIVATE(itap, igout)
    225 
    226 
    227   include "YOMCST.h"
    228237  include "YOMCST2.h"
    229238  include "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/conema3.f90

    r5268 r5274  
    99  USE dimphy
    1010  USE infotrac_phy, ONLY: nbtr
     11  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
    1123  IMPLICIT NONE
    1224  ! ======================================================================
    … …  
    175187  ! cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    176188
    177   include "YOMCST.h"
    178189  include "YOETHF.h"
    179190  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/conemav.f90

    r5268 r5274  
    99  USE dimphy
    1010  USE infotrac_phy, ONLY: nbtr
     11  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
    1123  IMPLICIT NONE
    1224  ! ======================================================================
    … …  
    7486  DATA ifrst/0/
    7587  !$OMP THREADPRIVATE(ifrst)
    76   include "YOMCST.h"
    7788  include "YOETHF.h"
    7889  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/conf_phys_m.f90

    r5268 r5274  
    2323       alp_offset)
    2424
    25     USE IOIPSL
     25    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     26          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     27          , R_ecc, R_peri, R_incl                                      &
     28          , RA, RG, R1SA                                         &
     29          , RSIGMA                                                     &
     30          , R, RMD, RMV, RD, RV, RCPD                    &
     31          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     32          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     33          , RCW, RCS                                                 &
     34          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     35          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     36          , RALPD, RBETD, RGAMD
     37USE IOIPSL
    2638    USE surface_data
    2739    USE phys_cal_mod
    … …  
    3951    INCLUDE "conema3.h"
    4052    INCLUDE "nuage.h"
    41     INCLUDE "YOMCST.h"
     53
    4254    INCLUDE "YOMCST2.h"
    4355    INCLUDE "alpale.h"

  • LMDZ6/trunk/libf/phylmd/conflx.f90

    r5268 r5274  
    77
    88  USE dimphy
    9   IMPLICIT NONE
     9  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     10          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     11          , R_ecc, R_peri, R_incl                                      &
     12          , RA, RG, R1SA                                         &
     13          , RSIGMA                                                     &
     14          , R, RMD, RMV, RD, RV, RCPD                    &
     15          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     16          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     17          , RCW, RCS                                                 &
     18          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     19          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     20          , RALPD, RBETD, RGAMD
     21IMPLICIT NONE
    1022  ! ======================================================================
    1123  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19941014
    … …  
    1628  ! et lessivage des traceurs passifs.
    1729  ! ======================================================================
    18   include "YOMCST.h"
     30
    1931  include "YOETHF.h"
    2032  ! Entree:
    … …  
    206218    pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, dt_con, dq_con, pmflxr, pmflxs)
    207219  USE dimphy
    208   IMPLICIT NONE
     220  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     221          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     222          , R_ecc, R_peri, R_incl                                      &
     223          , RA, RG, R1SA                                         &
     224          , RSIGMA                                                     &
     225          , R, RMD, RMV, RD, RV, RCPD                    &
     226          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     227          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     228          , RCW, RCS                                                 &
     229          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     230          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     231          , RALPD, RBETD, RGAMD
     232IMPLICIT NONE
    209233  ! ------------------------------------------------------------------
    210   include "YOMCST.h"
     234
    211235  include "YOETHF.h"
    212236  include "YOECUMF.h"
    … …  
    479503    pdmfup, pdpmel, plu, plude, klab, pen_u, pde_u, pen_d, pde_d)
    480504  USE dimphy
    481   IMPLICIT NONE
     505  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     506          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     507          , R_ecc, R_peri, R_incl                                      &
     508          , RA, RG, R1SA                                         &
     509          , RSIGMA                                                     &
     510          , R, RMD, RMV, RD, RV, RCPD                    &
     511          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     512          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     513          , RCW, RCS                                                 &
     514          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     515          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     516          , RALPD, RBETD, RGAMD
     517IMPLICIT NONE
    482518  ! ----------------------------------------------------------------------
    483519  ! THIS ROUTINE INTERPOLATES LARGE-SCALE FIELDS OF T,Q ETC.
    … …  
    485521  ! AND INITIALIZES VALUES FOR UPDRAFTS
    486522  ! ----------------------------------------------------------------------
    487   include "YOMCST.h"
     523
    488524  include "YOETHF.h"
    489525
    … …  
    601637    klab)
    602638  USE dimphy
    603   IMPLICIT NONE
     639  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     640          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     641          , R_ecc, R_peri, R_incl                                      &
     642          , RA, RG, R1SA                                         &
     643          , RSIGMA                                                     &
     644          , R, RMD, RMV, RD, RV, RCPD                    &
     645          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     646          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     647          , RCW, RCS                                                 &
     648          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     649          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     650          , RALPD, RBETD, RGAMD
     651IMPLICIT NONE
    604652  ! ----------------------------------------------------------------------
    605653  ! THIS ROUTINE CALCULATES CLOUD BASE VALUES (T AND Q)
    … …  
    613661  ! (NON ENTRAINING PLUME,I.E.CONSTANT MASSFLUX)
    614662  ! ----------------------------------------------------------------------
    615   include "YOMCST.h"
     663
    616664  include "YOETHF.h"
    617665  ! ----------------------------------------------------------------
    … …  
    683731    kcum, pen_u, pde_u)
    684732  USE dimphy
    685   IMPLICIT NONE
     733  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     734          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     735          , R_ecc, R_peri, R_incl                                      &
     736          , RA, RG, R1SA                                         &
     737          , RSIGMA                                                     &
     738          , R, RMD, RMV, RD, RV, RCPD                    &
     739          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     740          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     741          , RCW, RCS                                                 &
     742          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     743          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     744          , RALPD, RBETD, RGAMD
     745IMPLICIT NONE
    686746  ! ----------------------------------------------------------------------
    687747  ! THIS ROUTINE DOES THE CALCULATIONS FOR CLOUD ASCENTS
    688748  ! FOR CUMULUS PARAMETERIZATION
    689749  ! ----------------------------------------------------------------------
    690   include "YOMCST.h"
     750
    691751  include "YOETHF.h"
    692752  include "YOECUMF.h"
    … …  
    9831043  USE dimphy
    9841044  USE print_control_mod, ONLY: prt_level
    985   IMPLICIT NONE
     1045  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1046          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1047          , R_ecc, R_peri, R_incl                                      &
     1048          , RA, RG, R1SA                                         &
     1049          , RSIGMA                                                     &
     1050          , R, RMD, RMV, RD, RV, RCPD                    &
     1051          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1052          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1053          , RCW, RCS                                                 &
     1054          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1055          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1056          , RALPD, RBETD, RGAMD
     1057IMPLICIT NONE
    9861058  ! ----------------------------------------------------------------------
    9871059  ! THIS ROUTINE DOES THE FINAL CALCULATION OF CONVECTIVE
    9881060  ! FLUXES IN THE CLOUD LAYER AND IN THE SUBCLOUD LAYER
    9891061  ! ----------------------------------------------------------------------
    990   include "YOMCST.h"
     1062
    9911063  include "YOETHF.h"
    9921064  include "YOECUMF.h"
    … …  
    12261298    pmfdq, pmful, pdmfup, pdmfdp, pdpmel, dt_con, dq_con)
    12271299  USE dimphy
    1228   IMPLICIT NONE
     1300  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1301          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1302          , R_ecc, R_peri, R_incl                                      &
     1303          , RA, RG, R1SA                                         &
     1304          , RSIGMA                                                     &
     1305          , R, RMD, RMV, RD, RV, RCPD                    &
     1306          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1307          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1308          , RCW, RCS                                                 &
     1309          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1310          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1311          , RALPD, RBETD, RGAMD
     1312IMPLICIT NONE
    12291313  ! ----------------------------------------------------------------------
    12301314  ! calculer les tendances T et Q
    12311315  ! ----------------------------------------------------------------------
    1232   include "YOMCST.h"
     1316
    12331317  include "YOETHF.h"
    12341318  include "YOECUMF.h"
    … …  
    12881372    pmfub, prfl, ptd, pqd, pmfd, pmfds, pmfdq, pdmfdp, kdtop, lddraf)
    12891373  USE dimphy
    1290   IMPLICIT NONE
     1374  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1375          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1376          , R_ecc, R_peri, R_incl                                      &
     1377          , RA, RG, R1SA                                         &
     1378          , RSIGMA                                                     &
     1379          , R, RMD, RMV, RD, RV, RCPD                    &
     1380          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1381          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1382          , RCW, RCS                                                 &
     1383          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1384          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1385          , RALPD, RBETD, RGAMD
     1386IMPLICIT NONE
    12911387
    12921388  ! ----------------------------------------------------------------------
    … …  
    13051401  ! MOIST ENVIRONMENTAL AIR AND CLOUD AIR.
    13061402  ! ----------------------------------------------------------------------
    1307   include "YOMCST.h"
     1403
    13081404  include "YOETHF.h"
    13091405  include "YOECUMF.h"
    … …  
    13951491    pmfdq, pdmfdp, lddraf, pen_d, pde_d)
    13961492  USE dimphy
    1397   IMPLICIT NONE
     1493  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1494          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1495          , R_ecc, R_peri, R_incl                                      &
     1496          , RA, RG, R1SA                                         &
     1497          , RSIGMA                                                     &
     1498          , R, RMD, RMV, RD, RV, RCPD                    &
     1499          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1500          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1501          , RCW, RCS                                                 &
     1502          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1503          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1504          , RALPD, RBETD, RGAMD
     1505IMPLICIT NONE
    13981506
    13991507  ! ----------------------------------------------------------------------
    … …  
    14121520
    14131521  ! ----------------------------------------------------------------------
    1414   include "YOMCST.h"
     1522
    14151523  include "YOETHF.h"
    14161524  include "YOECUMF.h"
    … …  
    15081616SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
    15091617  USE dimphy
     1618  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1619          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1620          , R_ecc, R_peri, R_incl                                      &
     1621          , RA, RG, R1SA                                         &
     1622          , RSIGMA                                                     &
     1623          , R, RMD, RMV, RD, RV, RCPD                    &
     1624          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1625          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1626          , RCW, RCS                                                 &
     1627          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1628          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1629          , RALPD, RBETD, RGAMD
    15101630  IMPLICIT NONE
    15111631  ! ======================================================================
    … …  
    15161636  ! kcall=1  CONDENSATION IN UPDRAFTS  (E.G. CUBASE, CUASC)
    15171637  ! kcall=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    1518 
    1519   include "YOMCST.h"
    15201638
    15211639  REAL pt(klon), pq(klon), pp(klon)

  • LMDZ6/trunk/libf/phylmd/conlmd.f90

    r5268 r5274  
    55    ibas, itop)
    66  USE dimphy
    7   IMPLICIT NONE
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19IMPLICIT NONE
    820  ! ======================================================================
    921  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    1123  ! Ajustement humide (Manabe) + Ajustement convectif (Kuo)
    1224  ! ======================================================================
    13   include "YOMCST.h"
     25
    1426  include "YOETHF.h"
    1527
    … …  
    91103    snow, ibas, itop)
    92104  USE dimphy
     105  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     106          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     107          , R_ecc, R_peri, R_incl                                      &
     108          , RA, RG, R1SA                                         &
     109          , RSIGMA                                                     &
     110          , R, RMD, RMV, RD, RV, RCPD                    &
     111          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     112          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     113          , RCW, RCS                                                 &
     114          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     115          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     116          , RALPD, RBETD, RGAMD
    93117  IMPLICIT NONE
    94118  ! ======================================================================
    … …  
    103127  ! du modele.
    104128  ! ======================================================================
    105   include "YOMCST.h"
    106 
    107129  REAL dtime ! pas d'integration (s)
    108130  REAL t(klon, klev) ! temperature (K)
    … …  
    298320    d_ql, rneb, rain, snow, ibas, itop, accompli, imprim)
    299321  USE dimphy
    300   IMPLICIT NONE
     322  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     323          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     324          , R_ecc, R_peri, R_incl                                      &
     325          , RA, RG, R1SA                                         &
     326          , RSIGMA                                                     &
     327          , R, RMD, RMV, RD, RV, RCPD                    &
     328          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     329          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     330          , RCW, RCS                                                 &
     331          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     332          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     333          , RALPD, RBETD, RGAMD
     334IMPLICIT NONE
    301335  ! ======================================================================
    302336  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    306340  ! et itop est le haut du plus haut bloc
    307341  ! ======================================================================
    308   include "YOMCST.h"
     342
    309343
    310344  ! Arguments:
    … …  
    10461080    rain, snow, ibas, itop)
    10471081  USE dimphy
    1048   IMPLICIT NONE
     1082  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1083          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1084          , R_ecc, R_peri, R_incl                                      &
     1085          , RA, RG, R1SA                                         &
     1086          , RSIGMA                                                     &
     1087          , R, RMD, RMV, RD, RV, RCPD                    &
     1088          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1089          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1090          , RCW, RCS                                                 &
     1091          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1092          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1093          , RALPD, RBETD, RGAMD
     1094IMPLICIT NONE
    10491095  ! ======================================================================
    10501096  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    10531099  ! N.B. version vectorielle (le 6 oct. 1997)
    10541100  ! ======================================================================
    1055   include "YOMCST.h"
     1101
    10561102
    10571103  ! Arguments:
    … …  
    15531599END SUBROUTINE conkuo
    15541600SUBROUTINE kuofcl(pt, pq, pg, pp, ldcum, kcbot)
     1601  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1602          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1603          , R_ecc, R_peri, R_incl                                      &
     1604          , RA, RG, R1SA                                         &
     1605          , RSIGMA                                                     &
     1606          , R, RMD, RMV, RD, RV, RCPD                    &
     1607          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1608          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1609          , RCW, RCS                                                 &
     1610          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1611          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1612          , RALPD, RBETD, RGAMD
    15551613  USE dimphy
    15561614  IMPLICIT NONE
    … …  
    15701628  ! kcbot---output-I- Niveau du bas de la convection
    15711629  ! ======================================================================
    1572   include "YOMCST.h"
    15731630  include "YOETHF.h"
    15741631
    … …  
    16531710END SUBROUTINE kuofcl
    16541711SUBROUTINE adjtq(pp, pt, pq, ldflag, kcall)
     1712  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1713          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1714          , R_ecc, R_peri, R_incl                                      &
     1715          , RA, RG, R1SA                                         &
     1716          , RSIGMA                                                     &
     1717          , R, RMD, RMV, RD, RV, RCPD                    &
     1718          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1719          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1720          , RCW, RCS                                                 &
     1721          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1722          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1723          , RALPD, RBETD, RGAMD
    16551724  USE dimphy
    16561725  IMPLICIT NONE
    … …  
    16721741  ! KCALL=2  EVAPORATION IN DOWNDRAFTS (E.G. CUDLFS,CUDDRAF)
    16731742
    1674   include "YOMCST.h"
    16751743
    16761744  REAL pt(klon), pq(klon), pp(klon)
    … …  
    17611829    ibas, itop)
    17621830  USE dimphy
    1763   IMPLICIT NONE
     1831  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1832          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1833          , R_ecc, R_peri, R_incl                                      &
     1834          , RA, RG, R1SA                                         &
     1835          , RSIGMA                                                     &
     1836          , R, RMD, RMV, RD, RV, RCPD                    &
     1837          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1838          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1839          , RCW, RCS                                                 &
     1840          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1841          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1842          , RALPD, RBETD, RGAMD
     1843IMPLICIT NONE
    17641844
    17651845  ! Ajustement humide (Schema de convection de Manabe)
    17661846  ! .
    1767   include "YOMCST.h"
     1847
    17681848
    17691849  ! Arguments:
    … …  
    20462126    rain, snow, ibas, itop)
    20472127  USE dimphy
    2048   IMPLICIT NONE
    2049 
    2050   include "YOMCST.h"
     2128  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2129          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2130          , R_ecc, R_peri, R_incl                                      &
     2131          , RA, RG, R1SA                                         &
     2132          , RSIGMA                                                     &
     2133          , R, RMD, RMV, RD, RV, RCPD                    &
     2134          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2135          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2136          , RCW, RCS                                                 &
     2137          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2138          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2139          , RALPD, RBETD, RGAMD
     2140IMPLICIT NONE
     2141
     2142
    20512143
    20522144  ! Options:

  • LMDZ6/trunk/libf/phylmd/convect3.f90

    r5268 r5274  
    1515  ! Fleur       Introduction des traceurs dans convect3 le 6 juin 200
    1616  ! #################################################################
     17  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     18          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     19          , R_ecc, R_peri, R_incl                                      &
     20          , RA, RG, R1SA                                         &
     21          , RSIGMA                                                     &
     22          , R, RMD, RMV, RD, RV, RCPD                    &
     23          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     24          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     25          , RCW, RCS                                                 &
     26          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     27          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     28          , RALPD, RBETD, RGAMD
    1729  USE dimphy
    1830  USE infotrac_phy, ONLY: nbtr
    … …  
    114126  ! on utilise les constantes thermo du Centre Europeen: (SB)
    115127
    116   include "YOMCST.h"
    117128
    118129  cpd = rcpd

  • LMDZ6/trunk/libf/phylmd/cpl_mod.F90

    r4640 r5274  
    408408! The new sea-ice-land-landice fraction is returned. The others fields
    409409! are stored in this module.
    410     USE surface_data
     410    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     411          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     412          , R_ecc, R_peri, R_incl                                      &
     413          , RA, RG, R1SA                                         &
     414          , RSIGMA                                                     &
     415          , R, RMD, RMV, RD, RV, RCPD                    &
     416          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     417          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     418          , RCW, RCS                                                 &
     419          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     420          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     421          , RALPD, RBETD, RGAMD
     422USE surface_data
    411423    USE geometry_mod, ONLY : longitude_deg, latitude_deg
    412424    USE carbon_cycle_mod, ONLY : carbon_cycle_cpl
    … …  
    416428    use config_ocean_skin_m, only: activate_ocean_skin
    417429
    418     INCLUDE "YOMCST.h"
     430
    419431
    420432! Arguments

  • LMDZ6/trunk/libf/phylmd/ctstar.f90

    r5268 r5274  
    7272!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
    7373
     74USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     75          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     76          , R_ecc, R_peri, R_incl                                      &
     77          , RA, RG, R1SA                                         &
     78          , RSIGMA                                                     &
     79          , R, RMD, RMV, RD, RV, RCPD                    &
     80          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     81          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     82          , RCW, RCS                                                 &
     83          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     84          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     85          , RALPD, RBETD, RGAMD
    7486IMPLICIT NONE
    7587
    76 include "YOMCST.h"
     88
    7789!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA
    7890!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART

  • LMDZ6/trunk/libf/phylmd/cv3_cine.f90

    r5268 r5274  
    1515  ! **************************************************************
    1616
    17   IMPLICIT NONE
    18 
    19   include "YOMCST.h"
     17  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     18          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     19          , R_ecc, R_peri, R_incl                                      &
     20          , RA, RG, R1SA                                         &
     21          , RSIGMA                                                     &
     22          , R, RMD, RMV, RD, RV, RCPD                    &
     23          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     24          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     25          , RCW, RCS                                                 &
     26          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     27          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     28          , RALPD, RBETD, RGAMD
     29IMPLICIT NONE
     30
     31
    2032  include "cvthermo.h"
    2133  include "cv3param.h"

  • LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.f90

    r5268 r5274  
    1111  ! **************************************************************
    1212
    13   IMPLICIT NONE
     13  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
     25IMPLICIT NONE
    1426  ! ==============================================================
    1527
    … …  
    2436  include "cvthermo.h"
    2537  include "YOETHF.h"
    26   include "YOMCST.h"
     38
    2739  include "FCTTRE.h"
    2840!inputs:

  • LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

    r5268 r5274  
    1212  ! ****************************************************************
    1313
    14   IMPLICIT NONE
     14  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     15          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     16          , R_ecc, R_peri, R_incl                                      &
     17          , RA, RG, R1SA                                         &
     18          , RSIGMA                                                     &
     19          , R, RMD, RMV, RD, RV, RCPD                    &
     20          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     21          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     22          , RCW, RCS                                                 &
     23          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     24          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     25          , RALPD, RBETD, RGAMD
     26IMPLICIT NONE
    1527  ! ==============================================================
    1628
    … …  
    2537  include "cvthermo.h"
    2638  include "YOETHF.h"
    27   include "YOMCST.h"
     39
    2840  include "FCTTRE.h"
    2941!inputs:

  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90

    r5268 r5274  
    2020
    2121  USE print_control_mod, ONLY: prt_level, lunout
    22   IMPLICIT NONE
     22  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     23          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     24          , R_ecc, R_peri, R_incl                                      &
     25          , RA, RG, R1SA                                         &
     26          , RSIGMA                                                     &
     27          , R, RMD, RMV, RD, RV, RCPD                    &
     28          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     29          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     30          , RCW, RCS                                                 &
     31          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     32          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     33          , RALPD, RBETD, RGAMD
     34IMPLICIT NONE
    2335
    2436  include "cvthermo.h"
    2537  include "cv3param.h"
    2638  include "YOMCST2.h"
    27   include "YOMCST.h"
     39
    2840  include "conema3.h"
    2941

  • LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90

    r5268 r5274  
    1919
    2020  USE print_control_mod, ONLY: prt_level, lunout
    21   IMPLICIT NONE
     21  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
     33IMPLICIT NONE
    2234
    2335  include "cvthermo.h"
    … …  
    2537  include "cvflag.h"
    2638  include "YOMCST2.h"
    27   include "YOMCST.h"
     39
    2840  include "conema3.h"
    2941

  • LMDZ6/trunk/libf/phylmd/cv_driver.F90

    r3492 r5274  
    568568                ,cape,ep,hp,icb,inb,clw,nk,t,h,lv &
    569569                ,epmax_diag)
    570         ! on écrase ep et recalcule hp
     570        ! on écrase ep et recalcule hp
    571571    END IF
    572572
    … …  
    699699! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est
    700700  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
    701   ! calculee en deux itérations, une en supposant qu'il n'y a pas de glace et l'autre
    702   ! en ajoutant la glace (ancien schéma d'Arnaud Jam).
     701  ! calculee en deux it�rations, une en supposant qu'il n'y a pas de glace et l'autre
     702  ! en ajoutant la glace (ancien sch�ma d'Arnaud Jam).
    703703! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est
    704704  ! fonction de la temperature de l'environnement et la temperature de l'ascendance est
    … …  
    715715! ==================================================================
    716716SUBROUTINE cv_thermo(iflag_con)
    717   IMPLICIT NONE
     717  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     718          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     719          , R_ecc, R_peri, R_incl                                      &
     720          , RA, RG, R1SA                                         &
     721          , RSIGMA                                                     &
     722          , R, RMD, RMV, RD, RV, RCPD                    &
     723          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     724          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     725          , RCW, RCS                                                 &
     726          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     727          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     728          , RALPD, RBETD, RGAMD
     729IMPLICIT NONE
    718730
    719731  ! -------------------------------------------------------------
    … …  
    721733  ! -------------------------------------------------------------
    722734
    723   include "YOMCST.h"
     735
    724736  include "cvthermo.h"
    725737

  • LMDZ6/trunk/libf/phylmd/cvltr.f90

    r5268 r5274  
    1313  USE dimphy
    1414  USE infotrac_phy, ONLY : nbtr
    15   IMPLICIT NONE
     15  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     16          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     17          , R_ecc, R_peri, R_incl                                      &
     18          , RA, RG, R1SA                                         &
     19          , RSIGMA                                                     &
     20          , R, RMD, RMV, RD, RV, RCPD                    &
     21          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     22          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     23          , RCW, RCS                                                 &
     24          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     25          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     26          , RALPD, RBETD, RGAMD
     27IMPLICIT NONE
    1628!=====================================================================
    1729! Objet : convection des traceurs / KE
    … …  
    2032!=====================================================================
    2133
    22   include "YOMCST.h"
     34
    2335  include "YOECUMF.h"
    2436  include "conema3.h"
    … …  
    4961  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: sij        ! fraction dair de lenv
    5062  REAL,DIMENSION(klon,klev),INTENT(IN)      :: wght_cvfd  ! weights of the layers feeding convection
    51   REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij       ! contenu en eau condensée spécifique/conc deau condensée massique
     63  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: elij       ! contenu en eau condens�e sp�cifique/conc deau condens�e massique
    5264  REAL,DIMENSION(klon,klev,klev),INTENT(IN) :: epmlmMm    ! eau condensee precipitee dans mel masse dair sat
    5365  REAL,DIMENSION(klon,klev),INTENT(IN)      :: eplaMm    ! eau condensee precipitee dans aa masse dair sat
    5466
    55   REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw        ! contenu en eau condensée dans lasc adiab
     67  REAL,DIMENSION(klon,klev),INTENT(IN)      :: clw        ! contenu en eau condens�e dans lasc adiab
    5668  REAL,DIMENSION(klon),INTENT(IN)           :: sigd
    5769  INTEGER,DIMENSION(klon),INTENT(IN)        :: icb,inb
    … …  
    8092
    8193! RomP ! les variables sont nettoyees des valeurs aberrantes
    82   REAL,DIMENSION(klon,klev)         :: Pa, Pm  ! pluie AA et mélanges, var temporaire
     94  REAL,DIMENSION(klon,klev)         :: Pa, Pm  ! pluie AA et m�langes, var temporaire
    8395  REAL,DIMENSION(klon,klev)         :: pmflxs,pmflxr ! pmflxrIN,pmflxsIN sans valeur aberante
    8496  REAL,DIMENSION(klon,klev)         :: mp            ! flux de masse
    … …  
    155167! On prend la moyenne des precip entre le niveau i+1 et i
    156168! I=3/4* (P(1+1)+P(i))/2 / (sigd*r*rho_l)
    157 !  1000kg/m3= densité de l'eau
     169!  1000kg/m3= densit� de l'eau
    158170! 0.75e-3 = 3/4 /1000
    159 ! Par la suite, I est tout le temps multiplié par sig_d pour avoir l'impaction sur la surface de la maille
    160 ! on le néglige ici pour simplifier le code
     171! Par la suite, I est tout le temps multipli� par sig_d pour avoir l'impaction sur la surface de la maille
     172! on le n�glige ici pour simplifier le code
    161173  do j=1,klev-1
    162174   do i=1,klon
    … …  
    201213  END DO
    202214
    203 ! suppression des valeurs très faibles (~1e-320)
     215! suppression des valeurs tr�s faibles (~1e-320)
    204216! multiplication de levaporation pour lavoir par unite de temps
    205217! et par unite de surface de la maille
    … …  
    468480     kappa(i,j)=1.
    469481     if(j.eq.1) then
    470        qDi(i,j,it)=qDi(i,j+1,it) !orig tr(i,j,it)   ! mp(1)=0 donc tout vient de la couche supérieure
     482       qDi(i,j,it)=qDi(i,j+1,it) !orig tr(i,j,it)   ! mp(1)=0 donc tout vient de la couche sup�rieure
    471483     elseif(mp(i,j+1).gt.mp(i,j).and.mp(i,j+1).gt.1.e-10) then
    472484       qDi(i,j,it)=qDi(i,j+1,it)

  • LMDZ6/trunk/libf/phylmd/cvltr_noscav.f90

    r5268 r5274  
    55  USE dimphy
    66  USE infotrac_phy, ONLY : nbtr
    7   IMPLICIT NONE
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19IMPLICIT NONE
    820!=====================================================================
    921! Objet : convection des traceurs / KE
    1022! Auteurs: M-A Filiberti and J-Y Grandpeix
    1123!=====================================================================
    12   include "YOMCST.h"
     24
    1325  include "YOECUMF.h"
    1426

  • LMDZ6/trunk/libf/phylmd/cvltr_scav.f90

    r5268 r5274  
    1414  USE dimphy
    1515  USE infotrac_phy, ONLY : nbtr
    16   IMPLICIT NONE
     16  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     17          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     18          , R_ecc, R_peri, R_incl                                      &
     19          , RA, RG, R1SA                                         &
     20          , RSIGMA                                                     &
     21          , R, RMD, RMV, RD, RV, RCPD                    &
     22          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     23          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     24          , RCW, RCS                                                 &
     25          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     26          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     27          , RALPD, RBETD, RGAMD
     28IMPLICIT NONE
    1729  !=====================================================================
    1830  ! Objet : convection des traceurs / KE
    … …  
    2133  !=====================================================================
    2234
    23   include "YOMCST.h"
     35
    2436  include "YOECUMF.h"
    2537  include "conema3.h"

  • LMDZ6/trunk/libf/phylmd/cvltr_spl.f90

    r5268 r5274  
    1414  USE dimphy
    1515  USE infotrac_phy, ONLY : nbtr
    16   IMPLICIT NONE
     16  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     17          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     18          , R_ecc, R_peri, R_incl                                      &
     19          , RA, RG, R1SA                                         &
     20          , RSIGMA                                                     &
     21          , R, RMD, RMV, RD, RV, RCPD                    &
     22          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     23          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     24          , RCW, RCS                                                 &
     25          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     26          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     27          , RALPD, RBETD, RGAMD
     28IMPLICIT NONE
    1729!=====================================================================
    1830! Objet : convection des traceurs / KE
    … …  
    2133!=====================================================================
    2234
    23   include "YOMCST.h"
     35
    2436  include "YOECUMF.h"
    2537  include "conema3.h"

  • LMDZ6/trunk/libf/phylmd/cvltrorig.f90

    r5268 r5274  
    55  USE dimphy
    66  USE infotrac_phy, ONLY : nbtr
    7   IMPLICIT NONE
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19IMPLICIT NONE
    820!=====================================================================
    921! Objet : convection des traceurs / KE
    1022! Auteurs: M-A Filiberti and J-Y Grandpeix
    1123!=====================================================================
    12   include "YOMCST.h"
     24
    1325  include "YOECUMF.h"
    1426

  • LMDZ6/trunk/libf/phylmd/diagphy.f90

    r5268 r5274  
    4848
    4949  USE dimphy
    50   IMPLICIT NONE
    51 
    52   include "YOMCST.h"
     50  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     51          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     52          , R_ecc, R_peri, R_incl                                      &
     53          , RA, RG, R1SA                                         &
     54          , RSIGMA                                                     &
     55          , R, RMD, RMV, RD, RV, RCPD                    &
     56          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     57          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     58          , RCW, RCS                                                 &
     59          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     60          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     61          , RALPD, RBETD, RGAMD
     62IMPLICIT NONE
     63
     64
    5365  include "YOETHF.h"
    5466
    … …  
    205217
    206218  USE dimphy
    207   IMPLICIT NONE
    208 
    209   include "YOMCST.h"
     219  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     220          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     221          , R_ecc, R_peri, R_incl                                      &
     222          , RA, RG, R1SA                                         &
     223          , RSIGMA                                                     &
     224          , R, RMD, RMV, RD, RV, RCPD                    &
     225          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     226          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     227          , RCW, RCS                                                 &
     228          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     229          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     230          , RALPD, RBETD, RGAMD
     231IMPLICIT NONE
     232
     233
    210234  include "YOETHF.h"
    211235

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5272 r5274  
    13521352!   sans WTG rajouter une advection horizontale
    13531353!----------------------------------------------------------------------
    1354         implicit none
    1355 INCLUDE "YOMCST.h"
     1354        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1355          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1356          , R_ecc, R_peri, R_incl                                      &
     1357          , RA, RG, R1SA                                         &
     1358          , RSIGMA                                                     &
     1359          , R, RMD, RMV, RD, RV, RCPD                    &
     1360          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1361          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1362          , RCW, RCS                                                 &
     1363          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1364          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1365          , RALPD, RBETD, RGAMD
     1366implicit none
     1367
    13561368!        argument
    13571369        integer llm
    … …  
    14261438!   sans WTG rajouter une advection horizontale
    14271439!----------------------------------------------------------------------
    1428         implicit none
    1429 INCLUDE "YOMCST.h"
     1440        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1441          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1442          , R_ecc, R_peri, R_incl                                      &
     1443          , RA, RG, R1SA                                         &
     1444          , RSIGMA                                                     &
     1445          , R, RMD, RMV, RD, RV, RCPD                    &
     1446          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1447          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1448          , RCW, RCS                                                 &
     1449          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1450          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1451          , RALPD, RBETD, RGAMD
     1452implicit none
     1453
    14301454!        argument
    14311455        integer llm,nqtot
    … …  
    15071531  USE dimphy
    15081532
    1509   implicit none
     1533  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1534          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1535          , R_ecc, R_peri, R_incl                                      &
     1536          , RA, RG, R1SA                                         &
     1537          , RSIGMA                                                     &
     1538          , R, RMD, RMV, RD, RV, RCPD                    &
     1539          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1540          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1541          , RCW, RCS                                                 &
     1542          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1543          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1544          , RALPD, RBETD, RGAMD
     1545implicit none
    15101546
    15111547! ========================================================
    … …  
    15261562! Declaration des constantes et des fonctions thermodynamiques
    15271563!
    1528 include "YOMCST.h"
     1564
    15291565include "YOETHF.h"
    15301566!
    … …  
    15901626  USE dimphy
    15911627
    1592   implicit none
     1628  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1629          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1630          , R_ecc, R_peri, R_incl                                      &
     1631          , RA, RG, R1SA                                         &
     1632          , RSIGMA                                                     &
     1633          , R, RMD, RMV, RD, RV, RCPD                    &
     1634          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1635          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1636          , RCW, RCS                                                 &
     1637          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1638          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1639          , RALPD, RBETD, RGAMD
     1640implicit none
    15931641
    15941642! ========================================================
    … …  
    16201668! Declaration des constantes et des fonctions thermodynamiques
    16211669!
    1622 include "YOMCST.h"
     1670
    16231671include "YOETHF.h"
    16241672!
    … …  
    17471795
    17481796       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1797USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1798          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1799          , R_ecc, R_peri, R_incl                                      &
     1800          , RA, RG, R1SA                                         &
     1801          , RSIGMA                                                     &
     1802          , R, RMD, RMV, RD, RV, RCPD                    &
     1803          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1804          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1805          , RCW, RCS                                                 &
     1806          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1807          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1808          , RALPD, RBETD, RGAMD
    17491809implicit none
    17501810
    1751 INCLUDE "YOMCST.h"
     1811
    17521812
    17531813

  • LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

    r5271 r5274  
    66     &       Ts,imp_fcg,ts_fcg,Tp_fcg,Turb_fcg)                                 
    77!
    8         implicit none
    9  
     8        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20implicit none
     21
    1022!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    1123! cette routine permet d obtenir u_convg,v_convg,ht,hq et ainsi de
    … …  
    1325!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    1426
    15       INCLUDE "YOMCST.h"
     27
    1628
    1729      INTEGER klev

  • LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.f90

    r5271 r5274  
    932932
    933933    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     934USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     935          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     936          , R_ecc, R_peri, R_incl                                      &
     937          , RA, RG, R1SA                                         &
     938          , RSIGMA                                                     &
     939          , R, RMD, RMV, RD, RV, RCPD                    &
     940          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     941          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     942          , RCW, RCS                                                 &
     943          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     944          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     945          , RALPD, RBETD, RGAMD
    934946implicit none
    935947
    936     INCLUDE "YOMCST.h"
     948
    937949
    938950

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5271 r5274  
    14631463     &             ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof   &
    14641464     &             ,ufa_prof,vfa_prof)
    1465         implicit none
     1465        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1466          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1467          , R_ecc, R_peri, R_incl                                      &
     1468          , RA, RG, R1SA                                         &
     1469          , RSIGMA                                                     &
     1470          , R, RMD, RMV, RD, RV, RCPD                    &
     1471          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1472          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1473          , RCW, RCS                                                 &
     1474          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1475          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1476          , RALPD, RBETD, RGAMD
     1477      implicit none
    14661478
    14671479!---------------------------------------------------------------------------------------
    … …  
    15431555     &'day,annee_ref,day_ini_astex,timeit,it_astex1,it_astex2,SST:',       &
    15441556     &day,annee_ref,day_ini_astex,timeit/86400.,it_astex1,                 &
    1545      &it_astex2,div_prof,ts_prof,ug_prof,vg_prof,ufa_prof,vfa_prof 
     1557     &it_astex2,div_prof,ts_prof,ug_prof,vg_prof,ufa_prof,vfa_prof
    15461558
    15471559        return
    … …  
    18151827! Time interpolation of a 2D field to the timestep corresponding to day
    18161828!
    1817 ! day: current julian day 
     1829! day: current julian day
    18181830! day1: first day of the simulation
    18191831! nt_gabls4: total nb of data in the forcing (e.g. 37 for gabls4)
    … …  
    21482160        close(ilesfile)
    21492161
    2150 ! Vertical coordinates half levels for eta-coordinates (plev = alpha + beta * psurf) 
     2162! Vertical coordinates half levels for eta-coordinates (plev = alpha + beta * psurf)
    21512163       IF(nlev_max.EQ.19) THEN
    21522164       open (ifile,file='proh.inp.19',status='old',iostat=ierr)
    … …  
    22502262           stop 'vg'
    22512263         endif
    2252      
     2264
    22532265      ierr=nf90_inq_varid(nid,"wls",var3didin(9))
    22542266         if(ierr/=nf90_noerr) then
    … …  
    22822294!dimensions lecture
    22832295!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
    2284  
     2296
    22852297         ierr = NF90_GET_VAR(nid,var3didin(1),zz)
    22862298         if(ierr/=nf90_noerr) then
    … …  
    23032315         endif
    23042316!          write(*,*)'lecture qt ok',qt
    2305  
     2317
    23062318         ierr = NF90_GET_VAR(nid,var3didin(4),u)
    23072319         if(ierr/=nf90_noerr) then
    … …  
    23742386!          write(*,*)'lecture thl_rad ok',thl_rad
    23752387
    2376          return 
     2388         return
    23772389         end subroutine read_fire
    23782390!=====================================================================
    … …  
    23872399            nf90_inq_dimid,nf90_inquire_dimension
    23882400
    2389       implicit none
    2390       INCLUDE "YOMCST.h"
     2401      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2402          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2403          , R_ecc, R_peri, R_incl                                      &
     2404          , RA, RG, R1SA                                         &
     2405          , RSIGMA                                                     &
     2406          , R, RMD, RMV, RD, RV, RCPD                    &
     2407          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2408          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2409          , RCW, RCS                                                 &
     2410          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2411          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2412          , RALPD, RBETD, RGAMD
     2413implicit none
     2414
    23912415
    23922416      integer ntime,nlevel
    … …  
    24712495           stop 'lhf'
    24722496         endif
    2473      
     2497
    24742498      ierr=nf90_inq_varid(nid,"lwup",var3didin(4))
    24752499         if(ierr/=nf90_noerr) then
    … …  
    25512575!dimensions lecture
    25522576!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
    2553  
     2577
    25542578         ierr = NF90_GET_VAR(nid,var3didin(1),zz)
    25552579         if(ierr/=nf90_noerr) then
    … …  
    25582582         endif
    25592583!          write(*,*)'lecture zz ok',zz
    2560  
     2584
    25612585         ierr = NF90_GET_VAR(nid,var3didin(11),pres)
    25622586         if(ierr/=nf90_noerr) then
    … …  
    25822606         endif
    25832607!          write(*,*)'lecture qv ok',qv
    2584  
     2608
    25852609         ierr = NF90_GET_VAR(nid,var3didin(14),u)
    25862610         if(ierr/=nf90_noerr) then
    … …  
    27092733!          write(*,*)'lecture omega ok',omega
    27102734
    2711          return 
     2735         return
    27122736         end subroutine read_dice
    27132737!=====================================================================
    … …  
    27172741!program reading initial profils and forcings of the Gabls4 case study
    27182742
     2743      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2744          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2745          , R_ecc, R_peri, R_incl                                      &
     2746          , RA, RG, R1SA                                         &
     2747          , RSIGMA                                                     &
     2748          , R, RMD, RMV, RD, RV, RCPD                    &
     2749          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2750          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2751          , RCW, RCS                                                 &
     2752          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2753          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2754          , RALPD, RBETD, RGAMD
    27192755      USE netcdf, ONLY: nf90_open,nf90_nowrite,nf90_noerr,nf90_strerror,nf90_inq_varid,nf90_get_var,&
    27202756            nf90_inq_dimid,nf90_inquire_dimension
    … …  
    27272763      real*8 time(ntime)
    27282764
    2729 !  ATTENTION: visiblement quand on lit gabls4_driver.nc on recupere les donnees 
     2765!  ATTENTION: visiblement quand on lit gabls4_driver.nc on recupere les donnees
    27302766! dans un ordre inverse par rapport a la convention LMDZ
    27312767! ==> il faut tout inverser  (MPL 20141024)
    … …  
    28462882!dimensions lecture
    28472883!      call catchaxis(nid,ntime,nlevel,time,z,ierr)
    2848  
     2884
    28492885         ierr = NF90_GET_VAR(nid,var3didin(1),zz_i)
    28502886         if(ierr/=nf90_noerr) then
    … …  
    28522888            stop "getvarup"
    28532889         endif
    2854  
     2890
    28552891         ierr = NF90_GET_VAR(nid,var3didin(2),depth_sn)
    28562892         if(ierr/=nf90_noerr) then
    … …  
    28582894            stop "getvarup"
    28592895         endif
    2860  
     2896
    28612897         ierr = NF90_GET_VAR(nid,var3didin(3),ug_i)
    28622898         if(ierr/=nf90_noerr) then
    … …  
    28642900            stop "getvarup"
    28652901         endif
    2866  
     2902
    28672903         ierr = NF90_GET_VAR(nid,var3didin(4),vg_i)
    28682904         if(ierr/=nf90_noerr) then
    … …  
    28702906            stop "getvarup"
    28712907         endif
    2872  
     2908
    28732909         ierr = NF90_GET_VAR(nid,var3didin(5),pf_i)
    28742910         if(ierr/=nf90_noerr) then
    … …  
    28942930            stop "getvarup"
    28952931         endif
    2896  
     2932
    28972933         ierr = NF90_GET_VAR(nid,var3didin(9),u_i)
    28982934         if(ierr/=nf90_noerr) then
    … …  
    29002936            stop "getvarup"
    29012937         endif
    2902  
     2938
    29032939         ierr = NF90_GET_VAR(nid,var3didin(10),v_i)
    29042940         if(ierr/=nf90_noerr) then
    … …  
    29062942            stop "getvarup"
    29072943         endif
    2908  
     2944
    29092945         ierr = NF90_GET_VAR(nid,var3didin(11),hadvt_i)
    29102946         if(ierr/=nf90_noerr) then
    … …  
    29122948            stop "getvarup"
    29132949         endif
    2914  
     2950
    29152951         ierr = NF90_GET_VAR(nid,var3didin(12),hadvq_i)
    29162952         if(ierr/=nf90_noerr) then
    … …  
    29182954            stop "getvarup"
    29192955         endif
    2920  
     2956
    29212957         ierr = NF90_GET_VAR(nid,var3didin(14),tsnow)
    29222958         if(ierr/=nf90_noerr) then
    … …  
    29242960            stop "getvarup"
    29252961         endif
    2926  
     2962
    29272963         ierr = NF90_GET_VAR(nid,var3didin(15),snow_dens)
    29282964         if(ierr/=nf90_noerr) then
    … …  
    29522988           hadvq(k,:)=hadvq_i(nlevel+1-k,:)
    29532989         enddo
    2954          return 
     2990         return
    29552991 end subroutine read_gabls4
    29562992!=====================================================================
    29572993
    2958 !     Reads CIRC input files     
     2994!     Reads CIRC input files
    29592995
    29602996      SUBROUTINE read_circ(nlev_circ,cf,lwp,iwp,reliq,reice,t,z,p,pm,h2o,o3,sza)
    2961      
     2997
    29622998      parameter (ncm_1=49180)
    2963       INCLUDE "YOMCST.h"
    29642999
    29653000      real albsfc(ncm_1), albsfc_w(ncm_1)
    … …  
    29853020      open (15, file='cloud_input_case.txt', status='old')
    29863021      open (16, file='sfcalbedo_input_case.txt', status='old')
    2987      
     3022
    29883023!     Read scalar information
    29893024      do iskip=1,5
    … …  
    30183053         pm(il)=pm(il)*100.
    30193054      enddo
    3020 303   format (i8, 2f9.2, 10(2x,e13.7))     
     3055303   format (i8, 2f9.2, 10(2x,e13.7))
    30213056      close(13)
    3022      
     3057
    30233058!     Read aerosol layer information
    30243059      do iskip=1,3
    … …  
    30333068304   format (i8, f9.5, 2f8.3)
    30343069      close(14)
    3035      
     3070
    30363071!     Read cloud information
    30373072      do iskip=1,3
    … …  
    30573092306   format(f10.1, 2f12.5, f14.8)
    30583093      close(16)
    3059  
    3060       return 
     3094
     3095      return
    30613096      end subroutine read_circ
    30623097!=====================================================================
    3063 !     Reads RTMIP input files     
     3098!     Reads RTMIP input files
    30643099
    30653100      SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3)
    3066      
    3067       INCLUDE "YOMCST.h"
     3101
    30683102
    30693103      real t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5273 r5274  
    5050   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5151   USE dimsoil_mod_h, ONLY: nsoilmx
     52USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     53          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     54          , R_ecc, R_peri, R_incl                                      &
     55          , RA, RG, R1SA                                         &
     56          , RSIGMA                                                     &
     57          , R, RMD, RMV, RD, RV, RCPD                    &
     58          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     59          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     60          , RCW, RCS                                                 &
     61          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     62          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     63          , RALPD, RBETD, RGAMD
    5264implicit none
    5365
    54       INCLUDE "YOMCST.h"
     66
    5567!!      INCLUDE "control.h"
    5668      INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

    r5273 r5274  
    4646   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4747   USE dimsoil_mod_h, ONLY: nsoilmx
     48USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     49          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     50          , R_ecc, R_peri, R_incl                                      &
     51          , RA, RG, R1SA                                         &
     52          , RSIGMA                                                     &
     53          , R, RMD, RMV, RD, RV, RCPD                    &
     54          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     55          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     56          , RCW, RCS                                                 &
     57          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     58          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     59          , RALPD, RBETD, RGAMD
    4860implicit none
    4961
    50       INCLUDE "YOMCST.h"
     62
    5163!!      INCLUDE "control.h"
    5264      INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/ecumev6_flux.f90

    r5268 r5274  
    102102!
    103103!USE MODI_ABOR1_SFX
    104 !
     104USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     105          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     106          , R_ecc, R_peri, R_incl                                      &
     107          , RA, RG, R1SA                                         &
     108          , RSIGMA                                                     &
     109          , R, RMD, RMV, RD, RV, RCPD                    &
     110          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     111          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     112          , RCW, RCS                                                 &
     113          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     114          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     115          , RALPD, RBETD, RGAMD
    105116IMPLICIT NONE
    106117!
    … …  
    245256REAL    :: qsat_seawater2,qsat_seawater
    246257
    247 INCLUDE "YOMCST.h"
    248258INCLUDE "clesphys.h"
    249259

  • LMDZ6/trunk/libf/phylmd/ener_conserv.f90

    r5268 r5274  
    3131
    3232
     33USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     34          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     35          , R_ecc, R_peri, R_incl                                      &
     36          , RA, RG, R1SA                                         &
     37          , RSIGMA                                                     &
     38          , R, RMD, RMV, RD, RV, RCPD                    &
     39          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     40          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     41          , RCW, RCS                                                 &
     42          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     43          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     44          , RALPD, RBETD, RGAMD
    3345IMPLICIT none
    34 INCLUDE "YOMCST.h"
     46
    3547INCLUDE "YOETHF.h"
    3648INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/evappot.f90

    r5268 r5274  
    22       &    t_seri,q_seri,u_seri,v_seri,evap_pot)
    33
     4USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     6          , R_ecc, R_peri, R_incl                                      &
     7          , RA, RG, R1SA                                         &
     8          , RSIGMA                                                     &
     9          , R, RMD, RMV, RD, RV, RCPD                    &
     10          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     11          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     12          , RCW, RCS                                                 &
     13          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     14          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     15          , RALPD, RBETD, RGAMD
    416IMPLICIT NONE
    517
    6 INCLUDE "YOMCST.h"
     18
    719INCLUDE "YOETHF.h"
    820INCLUDE "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/fisrtilp_tr.f90

    r5268 r5274  
    1111  USE dimphy
    1212  USE print_control_mod, ONLY: lunout
    13   IMPLICIT NONE
     13  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     14          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     15          , R_ecc, R_peri, R_incl                                      &
     16          , RA, RG, R1SA                                         &
     17          , RSIGMA                                                     &
     18          , R, RMD, RMV, RD, RV, RCPD                    &
     19          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     20          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     21          , RCW, RCS                                                 &
     22          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     23          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     24          , RALPD, RBETD, RGAMD
     25IMPLICIT NONE
    1426  ! ======================================================================
    1527  ! Auteur(s): Z.X. Li (LMD/CNRS)
    … …  
    1931  ! ======================================================================
    2032  ! ======================================================================
    21   include "YOMCST.h"
     33
    2234
    2335  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/flott_gwd_rando_m.f90

    r5271 r5274  
    1919
    2020    !ONLINE:
    21       use dimphy, only: klon, klev
     21      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
     33use dimphy, only: klon, klev
    2234      use assert_m, only: assert
    2335      USE ioipsl_getin_p_mod, ONLY : getin_p
    … …  
    2638      CHARACTER (LEN=80) :: abort_message
    2739
    28       include "YOMCST.h"
     40
    2941      include "clesphys.h"
    3042    ! OFFLINE:

  • LMDZ6/trunk/libf/phylmd/flxtr.f90

    r5268 r5274  
    55    paprs, kcbot, kctop, kdtop, x, dx)
    66  USE dimphy
    7   IMPLICIT NONE
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19IMPLICIT NONE
    820  ! =====================================================================
    921  ! Objet : Melange convectif de traceurs a partir des flux de masse
    … …  
    2537  ! =====================================================================
    2638
    27   include "YOMCST.h"
     39
    2840  include "YOECUMF.h"
    2941

  • LMDZ6/trunk/libf/phylmd/fonte_neige_mod.F90

    r5217 r5274  
    246246#endif
    247247#endif
     248    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     249          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     250          , R_ecc, R_peri, R_incl                                      &
     251          , RA, RG, R1SA                                         &
     252          , RSIGMA                                                     &
     253          , R, RMD, RMV, RD, RV, RCPD                    &
     254          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     255          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     256          , RCW, RCS                                                 &
     257          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     258          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     259          , RALPD, RBETD, RGAMD
    248260       
    249261! Routine de traitement de la fonte de la neige dans le cas du traitement
    … …  
    266278!
    267279  INCLUDE "YOETHF.h"
    268   INCLUDE "YOMCST.h"
    269280  INCLUDE "FCTTRE.h"
    270281  INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/freinage.f90

    r5268 r5274  
    1010!    USE indice_sol_mod, only : nvm_orch
    1111
    12     IMPLICIT NONE
     12    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     13          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     14          , R_ecc, R_peri, R_incl                                      &
     15          , RA, RG, R1SA                                         &
     16          , RSIGMA                                                     &
     17          , R, RMD, RMV, RD, RV, RCPD                    &
     18          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     19          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     20          , RCW, RCS                                                 &
     21          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     22          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     23          , RALPD, RBETD, RGAMD
     24IMPLICIT NONE
    1325
    1426
    15     include "YOMCST.h"
     27
    1628    include "clesphys.h"
    1729    include "YOEGWD.h"

  • LMDZ6/trunk/libf/phylmd/geo2atm.f90

    r5268 r5274  
    66  USE mod_phys_lmdz_para
    77  USE mod_grid_phy_lmdz, only: grid_type, unstructured, regular_lonlat
    8   IMPLICIT NONE
    9   INCLUDE 'YOMCST.h'
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
     21
    1022  CHARACTER (len = 6)                :: clmodnam
    1123  CHARACTER (len = 20)               :: modname = 'geo2atm'

  • LMDZ6/trunk/libf/phylmd/hbtm2l.f90

    r5268 r5274  
    44SUBROUTINE hbtm2l(knon, paprs, pplay, t2m, t10m, q2m, q10m, ustar, flux_t, flux_q, u, v, t, q, pblh, therm, plcl, cape, &
    55    cin, eauliq, ctei, d_qt, d_thv, dlt_2, xhis, posint, omega, diagok)
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618  USE dimphy
    719  IMPLICIT NONE
    … …  
    2941  ! * re-ecriture complete Alain Mars 2012 dans LMDZ5V5           *
    3042  ! ***************************************************************
    31   include "YOMCST.h"
    3243  REAL rlvcp, reps
    3344  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/hbtm_mod.f90

    r5268 r5274  
    11module hbtm_mod
    22
    3   IMPLICIT NONE
     3  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     4          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     5          , R_ecc, R_peri, R_incl                                      &
     6          , RA, RG, R1SA                                         &
     7          , RSIGMA                                                     &
     8          , R, RMD, RMV, RD, RV, RCPD                    &
     9          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     10          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     11          , RCW, RCS                                                 &
     12          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     13          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     14          , RALPD, RBETD, RGAMD
     15    IMPLICIT NONE
    416
    517contains
    … …  
    4254
    4355
    44     include "YOMCST.h"
    4556    REAL rlvcp, reps
    4657    ! Arguments:

  • LMDZ6/trunk/libf/phylmd/hgardfou.F90

    r2399 r5274  
    77  USE indice_sol_mod, ONLY: nbsrf
    88  USE print_control_mod, ONLY: lunout
    9   IMPLICIT NONE
     9  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     10          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     11          , R_ecc, R_peri, R_incl                                      &
     12          , RA, RG, R1SA                                         &
     13          , RSIGMA                                                     &
     14          , R, RMD, RMV, RD, RV, RCPD                    &
     15          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     16          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     17          , RCW, RCS                                                 &
     18          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     19          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     20          , RALPD, RBETD, RGAMD
     21IMPLICIT NONE
    1022  ! ======================================================================
    1123  ! Verifier la temperature
    1224  ! ======================================================================
    13   include "YOMCST.h"
     25
    1426  REAL t(klon, klev), tsol(klon, nbsrf)
    1527  CHARACTER(len=*), intent(in):: text

  • LMDZ6/trunk/libf/phylmd/hines_gwd.f90

    r5268 r5274  
    1414
    1515  USE dimphy
    16   IMPLICIT NONE
     16  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     17          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     18          , R_ecc, R_peri, R_incl                                      &
     19          , RA, RG, R1SA                                         &
     20          , RSIGMA                                                     &
     21          , R, RMD, RMV, RD, RV, RCPD                    &
     22          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     23          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     24          , RCW, RCS                                                 &
     25          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     26          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     27          , RALPD, RBETD, RGAMD
     28IMPLICIT NONE
    1729
    1830  include "YOEGWD.h"
    19   include "YOMCST.h"
     31
    2032
    2133  INTEGER nazmth

  • LMDZ6/trunk/libf/phylmd/hydrol.f90

    r5268 r5274  
    99  USE indice_sol_mod
    1010
    11   IMPLICIT NONE
     11  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
     23IMPLICIT NONE
    1224  ! ======================================================================
    1325  ! Auteur(s): Z.X. Li (LMD/CNRS)
    … …  
    2537  ! snow: couverture neigeuse
    2638
    27   include "YOMCST.h"
     39
    2840
    2941  REAL chasno ! epaisseur du sol: 0.15 m

  • LMDZ6/trunk/libf/phylmd/inifis_mod.f90

    r5268 r5274  
    88  USE init_print_control_mod, ONLY : init_print_control
    99  USE print_control_mod, ONLY: lunout
    10   IMPLICIT NONE
     10  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     11          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     12          , R_ecc, R_peri, R_incl                                      &
     13          , RA, RG, R1SA                                         &
     14          , RSIGMA                                                     &
     15          , R, RMD, RMV, RD, RV, RCPD                    &
     16          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     17          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     18          , RCW, RCS                                                 &
     19          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     20          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     21          , RALPD, RBETD, RGAMD
     22IMPLICIT NONE
    1123
    12   include "YOMCST.h"
     24
    1325  REAL,INTENT(IN) :: prad, pg, pr, pcpp, punjours
    1426

  • LMDZ6/trunk/libf/phylmd/iniorbit.f90

    r5268 r5274  
    11SUBROUTINE iniorbit(paphelie, pperiheli, pyear_day, pperi_day, pobliq)
    2   IMPLICIT NONE
     2  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     3          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     4          , R_ecc, R_peri, R_incl                                      &
     5          , RA, RG, R1SA                                         &
     6          , RSIGMA                                                     &
     7          , R, RMD, RMV, RD, RV, RCPD                    &
     8          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     9          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     10          , RCW, RCS                                                 &
     11          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     12          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     13          , RALPD, RBETD, RGAMD
     14IMPLICIT NONE
    315
    416  ! =======================================================================
    … …  
    3547
    3648  include "planete.h"
    37   include "YOMCST.h"
     49
    3850
    3951  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/init_be.f90

    r5268 r5274  
    88  USE geometry_mod, ONLY : longitude, latitude
    99   
    10   IMPLICIT NONE
     10  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     11          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     12          , R_ecc, R_peri, R_incl                                      &
     13          , RA, RG, R1SA                                         &
     14          , RSIGMA                                                     &
     15          , R, RMD, RMV, RD, RV, RCPD                    &
     16          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     17          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     18          , RCW, RCS                                                 &
     19          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     20          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     21          , RALPD, RBETD, RGAMD
     22IMPLICIT NONE
    1123!=====================================================================
    12 ! Objet : prescription d'une source de Beryllium 7 
     24! Objet : prescription d'une source de Beryllium 7
    1325!         pour 19 niveaux verticaux
    1426!        (d'apres le diagramme de Lal and Peters, 1967)
    … …  
    1628!
    1729! written by : O. Coindreau (CEA/LDG) 05/2005
    18 ! last modified by : A. Jamelot (LMD/CEA)  04/03/2009 
     30! last modified by : A. Jamelot (LMD/CEA)  04/03/2009
    1931!=====================================================================
    2032
    21   INCLUDE "YOMCST.h"
     33
    2234  INCLUDE "YOECUMF.h"
    2335
    … …  
    6274  WRITE(*,*)'PASSAGE init_be ...'
    6375
    64 ! la source est maintenant définie independemment de la valeur de klev.
     76! la source est maintenant d�finie independemment de la valeur de klev.
    6577!!! Source actuellement definie pour klev = 19 et klev >= 39
    6678!!  IF (klev /= 19 .AND. klev<39) CALL abort_physic("init_be","Source du be7 necessite klev=19 ou klev>=39",1)

  • LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_ts2.f90

    r5259 r5274  
    6868
    6969
    70   IMPLICIT NONE
     70  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     71          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     72          , R_ecc, R_peri, R_incl                                      &
     73          , RA, RG, R1SA                                         &
     74          , RSIGMA                                                     &
     75          , R, RMD, RMV, RD, RV, RCPD                    &
     76          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     77          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     78          , RCW, RCS                                                 &
     79          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     80          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     81          , RALPD, RBETD, RGAMD
     82IMPLICIT NONE
    7183
    7284
    … …  
    7486  ! +  ================
    7587
    76   INCLUDE "YOMCST.h"
     88
    7789  INCLUDE "YOETHF.h"
    7890  INCLUDE "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/iophys.F90

    r4593 r5274  
    119119      USE phys_cal_mod, ONLY : calend
    120120
    121       IMPLICIT NONE
    122 
    123       include "YOMCST.h"
     121      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     122          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     123          , R_ecc, R_peri, R_incl                                      &
     124          , RA, RG, R1SA                                         &
     125          , RSIGMA                                                     &
     126          , R, RMD, RMV, RD, RV, RCPD                    &
     127          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     128          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     129          , RCW, RCS                                                 &
     130          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     131          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     132          , RALPD, RBETD, RGAMD
     133IMPLICIT NONE
     134
     135
    124136!=======================================================================
    125137!

  • LMDZ6/trunk/libf/phylmd/lmdz_cloudth.f90

    r5268 r5274  
    1515      use lmdz_cloudth_ini, only: iflag_cloudth_vert,iflag_ratqs
    1616
    17       IMPLICIT NONE
     17      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     18          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     19          , R_ecc, R_peri, R_incl                                      &
     20          , RA, RG, R1SA                                         &
     21          , RSIGMA                                                     &
     22          , R, RMD, RMV, RD, RV, RCPD                    &
     23          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     24          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     25          , RCW, RCS                                                 &
     26          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     27          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     28          , RALPD, RBETD, RGAMD
     29IMPLICIT NONE
    1830
    1931
    … …  
    2537
    2638
    27       INCLUDE "YOMCST.h"
     39
    2840      INCLUDE "YOETHF.h"
    2941      INCLUDE "FCTTRE.h"
    … …  
    267279      use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
    268280
    269       IMPLICIT NONE
    270 
    271       INCLUDE "YOMCST.h"
     281      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     282          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     283          , R_ecc, R_peri, R_incl                                      &
     284          , RA, RG, R1SA                                         &
     285          , RSIGMA                                                     &
     286          , R, RMD, RMV, RD, RV, RCPD                    &
     287          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     288          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     289          , RCW, RCS                                                 &
     290          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     291          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     292          , RALPD, RBETD, RGAMD
     293IMPLICIT NONE
     294
     295
    272296      INCLUDE "YOETHF.h"
    273297      INCLUDE "FCTTRE.h"
    … …  
    588612      use lmdz_cloudth_ini, only: iflag_cloudth_vert
    589613
    590       IMPLICIT NONE
     614      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     615          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     616          , R_ecc, R_peri, R_incl                                      &
     617          , RA, RG, R1SA                                         &
     618          , RSIGMA                                                     &
     619          , R, RMD, RMV, RD, RV, RCPD                    &
     620          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     621          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     622          , RCW, RCS                                                 &
     623          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     624          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     625          , RALPD, RBETD, RGAMD
     626IMPLICIT NONE
    591627
    592628
    … …  
    598634
    599635
    600       INCLUDE "YOMCST.h"
     636
    601637      INCLUDE "YOETHF.h"
    602638      INCLUDE "FCTTRE.h"
    … …  
    822858      use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
    823859
    824       IMPLICIT NONE
    825 
    826 
    827 
    828       INCLUDE "YOMCST.h"
     860      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     861          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     862          , R_ecc, R_peri, R_incl                                      &
     863          , RA, RG, R1SA                                         &
     864          , RSIGMA                                                     &
     865          , R, RMD, RMV, RD, RV, RCPD                    &
     866          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     867          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     868          , RCW, RCS                                                 &
     869          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     870          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     871          , RALPD, RBETD, RGAMD
     872IMPLICIT NONE
     873
     874
     875
     876
    829877      INCLUDE "YOETHF.h"
    830878      INCLUDE "FCTTRE.h"
    … …  
    12501298      use lmdz_cloudth_ini, only: iflag_cloudth_vert
    12511299
    1252       IMPLICIT NONE
    1253 
    1254 
    1255       INCLUDE "YOMCST.h"
     1300      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1301          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1302          , R_ecc, R_peri, R_incl                                      &
     1303          , RA, RG, R1SA                                         &
     1304          , RSIGMA                                                     &
     1305          , R, RMD, RMV, RD, RV, RCPD                    &
     1306          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1307          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1308          , RCW, RCS                                                 &
     1309          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1310          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1311          , RALPD, RBETD, RGAMD
     1312IMPLICIT NONE
     1313
     1314
     1315
    12561316      INCLUDE "YOETHF.h"
    12571317      INCLUDE "FCTTRE.h"
    … …  
    21402200    use phys_state_var_mod, ONLY : fm_therm, detr_therm, entr_therm
    21412201
    2142     IMPLICIT none
    2143 
    2144     INCLUDE "YOMCST.h"
     2202    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2203          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2204          , R_ecc, R_peri, R_incl                                      &
     2205          , RA, RG, R1SA                                         &
     2206          , RSIGMA                                                     &
     2207          , R, RMD, RMV, RD, RV, RCPD                    &
     2208          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2209          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2210          , RCW, RCS                                                 &
     2211          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2212          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2213          , RALPD, RBETD, RGAMD
     2214IMPLICIT none
     2215
     2216
    21452217
    21462218    INTEGER, INTENT(IN) :: ind1,ind2, klev           ! horizontal and vertical indices and dimensions

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.f90

    r5268 r5274  
    1515
    1616  !
     17  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     18          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     19          , R_ecc, R_peri, R_incl                                      &
     20          , RA, RG, R1SA                                         &
     21          , RSIGMA                                                     &
     22          , R, RMD, RMV, RD, RV, RCPD                    &
     23          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     24          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     25          , RCW, RCS                                                 &
     26          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     27          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     28          , RALPD, RBETD, RGAMD
    1729  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    1830  USE lmdz_cloudth, only : cloudth, cloudth_v3, cloudth_v6
    1931
    2032  USE lmdz_lscp_ini, ONLY: prt_level, lunout
    21   USE lmdz_lscp_ini, ONLY : fl_cor_ebil 
     33  USE lmdz_lscp_ini, ONLY : fl_cor_ebil
    2234  USE lmdz_lscp_ini, ONLY: iflag_t_glace,t_glace_min, t_glace_max, exposant_glace
    2335  USE lmdz_lscp_ini, ONLY : seuil_neb, rain_int_min, iflag_evap_prec, iflag_oldbug_fisrtilp,a_tr_sca
    24   USE lmdz_lscp_ini, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol 
     36  USE lmdz_lscp_ini, ONLY: iflag_cloudth_vert, iflag_rain_incloud_vol
    2537  USE lmdz_lscp_ini, ONLY: coef_eva, ffallv_lsc, ffallv_con
    2638  USE lmdz_lscp_ini, ONLY: cld_tau_lsc, cld_tau_con, cld_lc_lsc, cld_lc_con
    27   USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf 
     39  USE lmdz_lscp_ini, ONLY: reevap_ice, iflag_bergeron, iflag_fisrtilp_qsat, iflag_pdf
    2840
    2941
    … …  
    4052  ! P0> Thermalisation des precipitations venant de la couche du dessus
    4153  ! P1> Evaporation de la precipitation (qui vient du niveau k+1)
    42   ! P2> Formation du nuage (en k) 
     54  ! P2> Formation du nuage (en k)
    4355  ! P2.A.0> Calcul des grandeurs nuageuses une pdf en creneau
    44   ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour 
     56  ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour
    4557  ! les valeurs de T et Q initiales
    4658  ! P2.A.2> Prise en compte du couplage entre eau condensee et T.
    … …  
    5062  ! P3> Formation de la precipitation (en k)
    5163  !======================================================================
    52   ! JLD: 
     64  ! JLD:
    5365  ! * Routine probablement fausse (au moins incoherente) si thermcep = .false.
    54   ! * fl_cor_ebil doit etre > 0 ; 
     66  ! * fl_cor_ebil doit etre > 0 ;
    5567  !   fl_cor_ebil= 0 pour reproduire anciens bugs
    5668  !======================================================================
    57   include "YOMCST.h"
    5869  include "YOETHF.h"
    5970  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_tools.f90

    r5268 r5274  
    519519
    520520
    521     IMPLICIT NONE
    522 
    523     include "YOMCST.h"
     521    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     522          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     523          , R_ecc, R_peri, R_incl                                      &
     524          , RA, RG, R1SA                                         &
     525          , RSIGMA                                                     &
     526          , R, RMD, RMV, RD, RV, RCPD                    &
     527          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     528          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     529          , RCW, RCS                                                 &
     530          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     531          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     532          , RALPD, RBETD, RGAMD
     533IMPLICIT NONE
     534
     535
    524536    include "YOETHF.h"
    525537    include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.f90

    r5268 r5274  
    1919     &)
    2020
     21      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
    2133      USE indice_sol_mod
    2234      USE lmdz_thermcell_main, ONLY : thermcell_tke_transport
    … …  
    2941!   Nicolas Rochetin et Jean-Yves Grandpeix
    3042!         pour la fermeture stochastique. 2012
    31 !   Frédéric Hourdin :
     43!   Fr�d�ric Hourdin :
    3244!         netoyage informatique. 2022
    33 !   
     45!
    3446!=======================================================================
    3547!-----------------------------------------------------------------------
    … …  
    3749!   -------------
    3850
    39       INCLUDE "YOMCST.h"
    4051      INCLUDE "YOETHF.h"
    4152      INCLUDE "FCTTRE.h"
    … …  
    8192      INTEGER ig,k,l
    8293      integer nsrf
    83       real rhobarz0(ngrid)                    ! Densité au LCL
     94      real rhobarz0(ngrid)                    ! Densit� au LCL
    8495      logical ok_lcl(ngrid)                   ! Existence du LCL des thermiques
    8596      integer klcl(ngrid)                     ! Niveau du LCL
    8697      real interp(ngrid)                      ! Coef d'interpolation pour le LCL
    8798!--Triggering
    88       real, parameter :: su_cst=4e4              ! Surface unite: celle d'un updraft élémentaire
     99      real, parameter :: su_cst=4e4              ! Surface unite: celle d'un updraft �l�mentaire
    89100      real, parameter :: hcoef=1             ! Coefficient directeur pour le calcul de s2
    90       real, parameter :: hmincoef=0.3        ! Coefficient directeur pour l'ordonnée à l'origine pour le calcul de s2
    91       real, parameter :: eps1=0.3            ! Fraction de surface occupée par la population 1 : eps1=n1*s1/(fraca0*Sd)
    92       real, dimension(ngrid) :: hmin         ! Ordonnée à l'origine pour le calcul de s2
     101      real, parameter :: hmincoef=0.3        ! Coefficient directeur pour l'ordonn�e � l'origine pour le calcul de s2
     102      real, parameter :: eps1=0.3            ! Fraction de surface occup�e par la population 1 : eps1=n1*s1/(fraca0*Sd)
     103      real, dimension(ngrid) :: hmin         ! Ordonn�e � l'origine pour le calcul de s2
    93104      real, dimension(ngrid) :: zmax_moy     ! Hauteur moyenne des thermiques : zmax_moy = zlcl + 0.33 (zmax-zlcl)
    94105      real, parameter :: zmax_moy_coef=0.33
    … …  
    100111      real, dimension(ngrid,nlay) :: pbl_tke_max       ! Profil de TKE moyenne
    101112      real, dimension(ngrid) :: pbl_tke_max0           ! TKE moyenne au LCL
    102       real, dimension(ngrid,nlay) :: w_ls              ! Vitesse verticale grande échelle (m/s)
    103       real, parameter :: coef_m=1.            ! On considère un rendement pour alp_bl_fluct_m
    104       real, parameter :: coef_tke=1.          ! On considère un rendement pour alp_bl_fluct_tke
     113      real, dimension(ngrid,nlay) :: w_ls              ! Vitesse verticale grande �chelle (m/s)
     114      real, parameter :: coef_m=1.            ! On consid�re un rendement pour alp_bl_fluct_m
     115      real, parameter :: coef_tke=1.          ! On consid�re un rendement pour alp_bl_fluct_tke
    105116      real :: zdp
    106117      real, dimension(ngrid) :: alp_int,dp_int
    … …  
    171182!!jyg fin
    172183
    173 !------------Calcul des propriétés du thermique au LCL
     184!------------Calcul des propri�t�s du thermique au LCL
    174185  IF ( (iflag_trig_bl.ge.1) .or. (iflag_clos_bl.ge.1) ) THEN
    175186
    … …  
    198209   enddo
    199210
    200 !-----Calcul de la TKE transportée par les thermiques : therm_tke_max
     211!-----Calcul de la TKE transport�e par les thermiques : therm_tke_max
    201212   call thermcell_tke_transport(ngrid,nlay,ptimestep,fm0,entr0,  &  ! in
    202213  &           rg,pplev,therm_tke_max)                               ! out
    203214!   print *,' thermcell_tke_transport -> '   !!jyg
    204215
    205 !-----Calcul des profils verticaux de TKE hors thermiques : env_tke_max, et de la vitesse verticale grande échelle : W_ls
     216!-----Calcul des profils verticaux de TKE hors thermiques : env_tke_max, et de la vitesse verticale grande �chelle : W_ls
    206217   do l=1,nlay
    207218    do ig=1,ngrid
    208      pbl_tke_max(ig,l)=fraca(ig,l)*therm_tke_max(ig,l)+(1.-fraca(ig,l))*env_tke_max(ig,l)         !  Recalcul de TKE moyenne aprés transport de TKE_TH
    209      env_tke_max(ig,l)=(pbl_tke_max(ig,l)-fraca(ig,l)*therm_tke_max(ig,l))/(1.-fraca(ig,l))       !  Recalcul de TKE dans  l'environnement aprés transport de TKE_TH
    210      w_ls(ig,l)=-1.*omega(ig,l)/(RG*rhobarz(ig,l))                                                !  Vitesse verticale de grande échelle
     219     pbl_tke_max(ig,l)=fraca(ig,l)*therm_tke_max(ig,l)+(1.-fraca(ig,l))*env_tke_max(ig,l)         !  Recalcul de TKE moyenne apr�s transport de TKE_TH
     220     env_tke_max(ig,l)=(pbl_tke_max(ig,l)-fraca(ig,l)*therm_tke_max(ig,l))/(1.-fraca(ig,l))       !  Recalcul de TKE dans  l'environnement apr�s transport de TKE_TH
     221     w_ls(ig,l)=-1.*omega(ig,l)/(RG*rhobarz(ig,l))                                                !  Vitesse verticale de grande �chelle
    211222    enddo
    212223   enddo
    … …  
    253264
    254265
    255 !-----Epaisseur du nuage (depth) et détermination de la queue du spectre de panaches (n2,s2) et du panache le plus gros (s_max)
     266!-----Epaisseur du nuage (depth) et d�termination de la queue du spectre de panaches (n2,s2) et du panache le plus gros (s_max)
    256267   do ig=1,ngrid
    257268     zmax_moy(ig)=zlcl(ig)+zmax_moy_coef*(zmax(ig)-zlcl(ig))
    … …  
    328339  enddo
    329340
    330 !-----Sécurité ALP infinie
     341!-----S�curit� ALP infinie
    331342  do ig=1,ngrid
    332343   if (fraca0(ig).gt.0.98) alp_bl_stat(ig)=2.

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_old.F90

    r4590 r5274  
    66    fraca, wa_moy, r_aspect, l_mix, w2di, tho)
    77
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
    820  USE dimphy
    921  USE write_field_phy
    … …  
    1729  ! de "thermiques" explicitement representes
    1830
    19   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    20 
    21   ! le thermique est supposé homogène et dissipé par mélange avec
    22   ! son environnement. la longueur l_mix contrôle l'efficacité du
    23   ! mélange
    24 
    25   ! Le calcul du transport des différentes espèces se fait en prenant
     31  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     32
     33  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     34  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     35  ! m�lange
     36
     37  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    2638  ! en compte:
    2739  ! 1. un flux de masse montant
    … …  
    3648  ! -------------
    3749
    38   include "YOMCST.h"
    3950
    4051  ! arguments:
    … …  
    434445  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    435446  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    436   ! d'une couche est égale à la hauteur de la couche alimentante.
     447  ! d'une couche est �gale � la hauteur de la couche alimentante.
    437448  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    438449  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    470481  ! print*,'10 OK convect8'
    471482  ! print*,'WA2 ',wa_moy
    472   ! calcul de la fraction de la maille concernée par l'ascendance en tenant
     483  ! calcul de la fraction de la maille concern�e par l'ascendance en tenant
    473484  ! compte de l'epluchage du thermique.
    474485
    … …  
    719730    , r_aspect, l_mix, w2di, tho)
    720731
     732  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     733          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     734          , R_ecc, R_peri, R_incl                                      &
     735          , RA, RG, R1SA                                         &
     736          , RSIGMA                                                     &
     737          , R, RMD, RMV, RD, RV, RCPD                    &
     738          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     739          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     740          , RCW, RCS                                                 &
     741          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     742          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     743          , RALPD, RBETD, RGAMD
    721744  USE dimphy
    722745  IMPLICIT NONE
    … …  
    727750  ! de "thermiques" explicitement representes
    728751
    729   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    730 
    731   ! le thermique est supposé homogène et dissipé par mélange avec
    732   ! son environnement. la longueur l_mix contrôle l'efficacité du
    733   ! mélange
    734 
    735   ! Le calcul du transport des différentes espèces se fait en prenant
     752  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     753
     754  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     755  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     756  ! m�lange
     757
     758  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    736759  ! en compte:
    737760  ! 1. un flux de masse montant
    … …  
    746769  ! -------------
    747770
    748   include "YOMCST.h"
    749771  include "YOETHF.h"
    750772  include "FCTTRE.h"
    … …  
    953975  END DO
    954976
    955   ! on met le first a true pour le premier passage de la journée
     977  ! on met le first a true pour le premier passage de la journ�e
    956978  DO ig = 1, klon
    957979    test(ig) = 0
    … …  
    13241346    END DO
    13251347  END DO
    1326   ! Calcul de l'excès de température du à la diffusion turbulente
     1348  ! Calcul de l'exc�s de temp�rature du � la diffusion turbulente
    13271349  DO ig = 1, ngrid
    13281350    DO l = 1, klev
    … …  
    13421364          zw2(ig,l)<1E-10) THEN
    13431365        ! AM
    1344         ! test:on rajoute un excès de T dans couche alim
     1366        ! test:on rajoute un exc�s de T dans couche alim
    13451367        ! ztla(ig,l)=zthl(ig,l)+dtheta(ig,l)
    13461368        ztla(ig, l) = zthl(ig, l)
    1347         ! test: on rajoute un excès de q dans la couche alim
     1369        ! test: on rajoute un exc�s de q dans la couche alim
    13481370        ! zqta(ig,l)=po(ig,l)+0.001
    13491371        zqta(ig, l) = po(ig, l)
    … …  
    14371459          ! if (((f_star(ig,l+1)+detr_star(ig,l)).gt.1.e-10)) then
    14381460          ! AM on melange Tl et qt du thermique
    1439           ! on rajoute un excès de T dans la couche alim
     1461          ! on rajoute un exc�s de T dans la couche alim
    14401462          ! if (l.lt.lentr(ig)) then
    14411463          ! ztla(ig,l)=(f_star(ig,l)*ztla(ig,l-1)+
    … …  
    14481470          ! s                    /(f_star(ig,l+1))
    14491471          ! endif
    1450           ! on rajoute un excès de q dans la couche alim
     1472          ! on rajoute un exc�s de q dans la couche alim
    14511473          ! if (l.lt.lentr(ig)) then
    14521474          ! zqta(ig,l)=(f_star(ig,l)*zqta(ig,l-1)+
    … …  
    16891711  ! enddo
    16901712  ! enddo
    1691   ! calcul du détrainement
     1713  ! calcul du d�trainement
    16921714  DO ig = 1, klon
    16931715    DO k = 1, klev
    … …  
    19161938  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    19171939  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    1918   ! d'une couche est égale à la hauteur de la couche alimentante.
     1940  ! d'une couche est �gale � la hauteur de la couche alimentante.
    19191941  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    19201942  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    19601982  ! print*,'10 OK convect8'
    19611983  ! print*,'WA2 ',wa_moy
    1962   ! cal1cul de la fraction de la maille concernée par l'ascendance en tenant
     1984  ! cal1cul de la fraction de la maille concern�e par l'ascendance en tenant
    19631985  ! compte de l'epluchage du thermique.
    19641986
    … …  
    23202342    , r_aspect, l_mix, w2di, tho)
    23212343
     2344  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2345          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2346          , R_ecc, R_peri, R_incl                                      &
     2347          , RA, RG, R1SA                                         &
     2348          , RSIGMA                                                     &
     2349          , R, RMD, RMV, RD, RV, RCPD                    &
     2350          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2351          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2352          , RCW, RCS                                                 &
     2353          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2354          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2355          , RALPD, RBETD, RGAMD
    23222356  USE dimphy
    23232357  IMPLICIT NONE
    … …  
    23282362  ! de "thermiques" explicitement representes
    23292363
    2330   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    2331 
    2332   ! le thermique est supposé homogène et dissipé par mélange avec
    2333   ! son environnement. la longueur l_mix contrôle l'efficacité du
    2334   ! mélange
    2335 
    2336   ! Le calcul du transport des différentes espèces se fait en prenant
     2364  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     2365
     2366  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     2367  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     2368  ! m�lange
     2369
     2370  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    23372371  ! en compte:
    23382372  ! 1. un flux de masse montant
    … …  
    23472381  ! -------------
    23482382
    2349   include "YOMCST.h"
    23502383  include "YOETHF.h"
    23512384  include "FCTTRE.h"
    … …  
    29632996  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    29642997  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    2965   ! d'une couche est égale à la hauteur de la couche alimentante.
     2998  ! d'une couche est �gale � la hauteur de la couche alimentante.
    29662999  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    29673000  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    29983031  ! print*,'10 OK convect8'
    29993032  ! print*,'WA2 ',wa_moy
    3000   ! calcul de la fraction de la maille concernée par l'ascendance en tenant
     3033  ! calcul de la fraction de la maille concern�e par l'ascendance en tenant
    30013034  ! compte de l'epluchage du thermique.
    30023035
    … …  
    32513284    , r_aspect, l_mix, w2di, tho)
    32523285
     3286  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     3287          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     3288          , R_ecc, R_peri, R_incl                                      &
     3289          , RA, RG, R1SA                                         &
     3290          , RSIGMA                                                     &
     3291          , R, RMD, RMV, RD, RV, RCPD                    &
     3292          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     3293          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     3294          , RCW, RCS                                                 &
     3295          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     3296          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     3297          , RALPD, RBETD, RGAMD
    32533298  USE dimphy
    32543299  IMPLICIT NONE
    … …  
    32593304  ! de "thermiques" explicitement representes
    32603305
    3261   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    3262 
    3263   ! le thermique est supposé homogène et dissipé par mélange avec
    3264   ! son environnement. la longueur l_mix contrôle l'efficacité du
    3265   ! mélange
    3266 
    3267   ! Le calcul du transport des différentes espèces se fait en prenant
     3306  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     3307
     3308  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     3309  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     3310  ! m�lange
     3311
     3312  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    32683313  ! en compte:
    32693314  ! 1. un flux de masse montant
    … …  
    32783323  ! -------------
    32793324
    3280   include "YOMCST.h"
    32813325
    32823326  ! arguments:
    … …  
    37413785  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    37423786  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    3743   ! d'une couche est égale à la hauteur de la couche alimentante.
     3787  ! d'une couche est �gale � la hauteur de la couche alimentante.
    37443788  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    37453789  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    37793823  ! print*,'10 OK convect8'
    37803824  ! print*,'WA2 ',wa_moy
    3781   ! calcul de la fraction de la maille concernée par l'ascendance en tenant
     3825  ! calcul de la fraction de la maille concern�e par l'ascendance en tenant
    37823826  ! compte de l'epluchage du thermique.
    37833827
    … …  
    41264170
    41274171SUBROUTINE dqthermcell(ngrid, nlay, ptimestep, fm, entr, masse, q, dq, qa)
     4172  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     4173          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     4174          , R_ecc, R_peri, R_incl                                      &
     4175          , RA, RG, R1SA                                         &
     4176          , RSIGMA                                                     &
     4177          , R, RMD, RMV, RD, RV, RCPD                    &
     4178          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     4179          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     4180          , RCW, RCS                                                 &
     4181          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     4182          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     4183          , RALPD, RBETD, RGAMD
    41284184  USE dimphy
    41294185  IMPLICIT NONE
    … …  
    42704326    DO ig = 1, ngrid
    42714327      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
    4272         ! On itère sur la valeur du coeff de freinage.
     4328        ! On it�re sur la valeur du coeff de freinage.
    42734329        ! gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
    42744330        gamma0 = masse(ig, k)*sqrt(0.5*(fraca(ig,k+1)+fraca(ig, &
    42754331          k)))*0.5/larga(ig)
    42764332        ! gamma0=0.
    4277         ! la première fois on multiplie le coefficient de freinage
     4333        ! la premi�re fois on multiplie le coefficient de freinage
    42784334        ! par le module du vent dans la couche en dessous.
    42794335        dua = ua(ig, k-1) - u(ig, k-1)
    … …  
    44514507    DO ig = 1, ngrid
    44524508      IF ((fm(ig,k+1)+detr(ig,k))*ptimestep>1.E-5*masse(ig,k)) THEN
    4453         ! On itère sur la valeur du coeff de freinage.
     4509        ! On it�re sur la valeur du coeff de freinage.
    44544510        ! gamma0=rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k))
    44554511        gamma0 = masse(ig, k)*sqrt(0.5*(fraca(ig,k+1)+fraca(ig, &
    … …  
    44604516        zf = 0.
    44614517        zf2 = 1./(1.-zf)
    4462         ! la première fois on multiplie le coefficient de freinage
     4518        ! la premi�re fois on multiplie le coefficient de freinage
    44634519        ! par le module du vent dans la couche en dessous.
    44644520        dua = ua(ig, k-1) - u(ig, k-1)
    … …  
    45214577
    45224578  USE dimphy
     4579  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     4580          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     4581          , R_ecc, R_peri, R_incl                                      &
     4582          , RA, RG, R1SA                                         &
     4583          , RSIGMA                                                     &
     4584          , R, RMD, RMV, RD, RV, RCPD                    &
     4585          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     4586          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     4587          , RCW, RCS                                                 &
     4588          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     4589          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     4590          , RALPD, RBETD, RGAMD
    45234591  IMPLICIT NONE
    45244592
    … …  
    45284596  ! de "thermiques" explicitement representes
    45294597
    4530   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    4531 
    4532   ! le thermique est supposé homogène et dissipé par mélange avec
    4533   ! son environnement. la longueur l_mix contrôle l'efficacité du
    4534   ! mélange
    4535 
    4536   ! Le calcul du transport des différentes espèces se fait en prenant
     4598  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     4599
     4600  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     4601  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     4602  ! m�lange
     4603
     4604  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    45374605  ! en compte:
    45384606  ! 1. un flux de masse montant
    … …  
    45474615  ! -------------
    45484616
    4549   include "YOMCST.h"
    45504617
    45514618  ! arguments:
    … …  
    50235090  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    50245091  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    5025   ! d'une couche est égale à la hauteur de la couche alimentante.
     5092  ! d'une couche est �gale � la hauteur de la couche alimentante.
    50265093  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    50275094  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    50685135  ! print*,'10 OK convect8'
    50695136  ! print*,'WA2 ',wa_moy
    5070   ! calcul de la fraction de la maille concernée par l'ascendance en tenant
     5137  ! calcul de la fraction de la maille concern�e par l'ascendance en tenant
    50715138  ! compte de l'epluchage du thermique.
    50725139
    … …  
    53505417    , r_aspect, l_mix, w2di, tho)
    53515418
     5419  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     5420          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     5421          , R_ecc, R_peri, R_incl                                      &
     5422          , RA, RG, R1SA                                         &
     5423          , RSIGMA                                                     &
     5424          , R, RMD, RMV, RD, RV, RCPD                    &
     5425          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     5426          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     5427          , RCW, RCS                                                 &
     5428          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     5429          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     5430          , RALPD, RBETD, RGAMD
    53525431  USE dimphy
    53535432  IMPLICIT NONE
    … …  
    53585437  ! de "thermiques" explicitement representes
    53595438
    5360   ! Réécriture à partir d'un listing papier à Habas, le 14/02/00
    5361 
    5362   ! le thermique est supposé homogène et dissipé par mélange avec
    5363   ! son environnement. la longueur l_mix contrôle l'efficacité du
    5364   ! mélange
    5365 
    5366   ! Le calcul du transport des différentes espèces se fait en prenant
     5439  ! R��criture � partir d'un listing papier � Habas, le 14/02/00
     5440
     5441  ! le thermique est suppos� homog�ne et dissip� par m�lange avec
     5442  ! son environnement. la longueur l_mix contr�le l'efficacit� du
     5443  ! m�lange
     5444
     5445  ! Le calcul du transport des diff�rentes esp�ces se fait en prenant
    53675446  ! en compte:
    53685447  ! 1. un flux de masse montant
    … …  
    53775456  ! -------------
    53785457
    5379   include "YOMCST.h"
    53805458
    53815459  ! arguments:
    … …  
    56775755    END IF
    56785756  END DO
    5679   ! détermination du lalim correspondant
     5757  ! d�termination du lalim correspondant
    56805758  DO k = 1, klev - 1
    56815759    DO ig = 1, ngrid
    … …  
    58695947    ! write(8,*)zmax(ig),lmax(ig),lentr(ig),lmin(ig)
    58705948  END DO
    5871   ! on stope après les calculs de zmax et wmax
     5949  ! on stope apr�s les calculs de zmax et wmax
    58725950  RETURN
    58735951
    58745952  ! print*,'avant fermeture'
    58755953  ! Fermeture,determination de f
    5876   ! Attention! entrainement normalisé ou pas?
     5954  ! Attention! entrainement normalis� ou pas?
    58775955  DO ig = 1, ngrid
    58785956    entr_star2(ig) = 0.
    … …  
    58995977  END DO
    59005978  ! print*,'apres fermeture'
    5901   ! on stoppe après la fermeture
     5979  ! on stoppe apr�s la fermeture
    59025980  RETURN
    59035981  ! Calcul de l'entrainement
    … …  
    59075985    END DO
    59085986  END DO
    5909   ! on stoppe après le calcul de entr
     5987  ! on stoppe apr�s le calcul de entr
    59105988  ! RETURN
    59115989  ! CR:test pour entrainer moins que la masse
    … …  
    59376015  ! calcul de la largeur de chaque ascendance dans le cas conservatif.
    59386016  ! dans ce cas simple, on suppose que la largeur de l'ascendance provenant
    5939   ! d'une couche est égale à la hauteur de la couche alimentante.
     6017  ! d'une couche est �gale � la hauteur de la couche alimentante.
    59406018  ! La vitesse maximale dans l'ascendance est aussi prise comme estimation
    59416019  ! de la vitesse d'entrainement horizontal dans la couche alimentante.
    … …  
    59826060  ! print*,'10 OK convect8'
    59836061  ! print*,'WA2 ',wa_moy
    5984   ! calcul de la fraction de la maille concernée par l'ascendance en tenant
     6062  ! calcul de la fraction de la maille concern�e par l'ascendance en tenant
    59856063  ! compte de l'epluchage du thermique.
    59866064
    … …  
    63376415
    63386416  USE dimphy
    6339   IMPLICIT NONE
    6340 
    6341   include "YOMCST.h"
     6417  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6418          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     6419          , R_ecc, R_peri, R_incl                                      &
     6420          , RA, RG, R1SA                                         &
     6421          , RSIGMA                                                     &
     6422          , R, RMD, RMV, RD, RV, RCPD                    &
     6423          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     6424          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     6425          , RCW, RCS                                                 &
     6426          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     6427          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     6428          , RALPD, RBETD, RGAMD
     6429IMPLICIT NONE
     6430
     6431
    63426432
    63436433  INTEGER ngrid, nlay

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.f90

    r5268 r5274  
    33
    44subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
     5USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517implicit none
    618
    7   INCLUDE "YOMCST.h"
     19
    820  INCLUDE "YOETHF.h"
    921  INCLUDE "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/lsc_scav.f90

    r5268 r5274  
    1212  USE infotrac_phy,ONLY : nbtr
    1313  USE iophy
    14   IMPLICIT NONE
     14  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     15          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     16          , R_ecc, R_peri, R_incl                                      &
     17          , RA, RG, R1SA                                         &
     18          , RSIGMA                                                     &
     19          , R, RMD, RMV, RD, RV, RCPD                    &
     20          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     21          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     22          , RCW, RCS                                                 &
     23          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     24          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     25          , RALPD, RBETD, RGAMD
     26IMPLICIT NONE
    1527!=====================================================================
    1628! Objet : depot humide (lessivage et evaporation) de traceurs
    … …  
    2133
    2234  include "chem.h"
    23   include "YOMCST.h"
     35
    2436  include "YOECUMF.h"
    2537

  • LMDZ6/trunk/libf/phylmd/macv2sp.f90

    r5268 r5274  
    2020  !!USE YOMCST, ONLY : RD, RG
    2121  !
    22   IMPLICIT NONE
     22  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     23          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     24          , R_ecc, R_peri, R_incl                                      &
     25          , RA, RG, R1SA                                         &
     26          , RSIGMA                                                     &
     27          , R, RMD, RMV, RD, RV, RCPD                    &
     28          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     29          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     30          , RCW, RCS                                                 &
     31          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     32          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     33          , RALPD, RBETD, RGAMD
     34IMPLICIT NONE
    2335  !
    24   include "YOMCST.h"
     36
    2537  !
    2638  REAL,DIMENSION(klon),INTENT(IN)        :: pphis   ! Geopotentiel de surface

  • LMDZ6/trunk/libf/phylmd/methox.f90

    r5268 r5274  
    6363 & RALPHA3,  RLOGPPH 
    6464
     65USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     66          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     67          , R_ecc, R_peri, R_incl                                      &
     68          , RA, RG, R1SA                                         &
     69          , RSIGMA                                                     &
     70          , R, RMD, RMV, RD, RV, RCPD                    &
     71          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     72          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     73          , RCW, RCS                                                 &
     74          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     75          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     76          , RALPD, RBETD, RGAMD
    6577IMPLICIT NONE
    6678
    67 INCLUDE "YOMCST.h"
     79
    6880
    6981INTEGER,INTENT(IN)    :: KLON

  • LMDZ6/trunk/libf/phylmd/moyglo_aire.f90

    r5268 r5274  
    44SUBROUTINE moyglo_pondaire(nhori, champ, aire, ok_msk, msk, moyglo)
    55
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618  USE dimphy
    719  IMPLICIT NONE
    … …  
    6274SUBROUTINE moyglo_pondaima(nhori, nvert, champ, aire, pbord, moyglo)
    6375  USE dimphy
     76  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     77        , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     78        , R_ecc, R_peri, R_incl                                      &
     79        , RA, RG, R1SA                                         &
     80        , RSIGMA                                                     &
     81        , R, RMD, RMV, RD, RV, RCPD                    &
     82        , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     83        , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     84        , RCW, RCS                                                 &
     85        , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     86        , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     87        , RALPD, RBETD, RGAMD
    6488  IMPLICIT NONE
    6589  ! ==================================================================
    … …  
    7296
    7397  ! ==================================================================
    74   include "YOMCST.h"
    7598  INTEGER i, k, nhori, nvert
    7699  REAL champ(klon, klev), aire(klon)
    … …  
    105128SUBROUTINE moyglo_pondmass(nhori, nvert, champ, aire, pbord, moyglo)
    106129  USE dimphy
     130  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     131        , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     132        , R_ecc, R_peri, R_incl                                      &
     133        , RA, RG, R1SA                                         &
     134        , RSIGMA                                                     &
     135        , R, RMD, RMV, RD, RV, RCPD                    &
     136        , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     137        , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     138        , RCW, RCS                                                 &
     139        , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     140        , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     141        , RALPD, RBETD, RGAMD
    107142  IMPLICIT NONE
    108143  ! ==================================================================
    … …  
    115150
    116151  ! ==================================================================
    117   include "YOMCST.h"
    118152  INTEGER i, k, nhori, nvert
    119153  REAL champ(klon, klev), aire(klon)

  • LMDZ6/trunk/libf/phylmd/nflxtr.f90

    r5268 r5274  
    44SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,pplay,paprs,x,dx)
    55  USE dimphy
    6   IMPLICIT NONE
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
     18IMPLICIT NONE
    719!=====================================================================
    8 ! Objet : Melange convectif de traceurs a partir des flux de masse 
     20! Objet : Melange convectif de traceurs a partir des flux de masse
    921! Date : 13/12/1996 -- 13/01/97
    1022! Auteur: O. Boucher (LOA) sur inspiration de Z. X. Li (LMD),
    1123!         Brinkop et Sausen (1996) et Boucher et al. (1996).
    12 ! ATTENTION : meme si cette routine se veut la plus generale possible, 
    13 !             elle a herite de certaines notations et conventions du 
     24! ATTENTION : meme si cette routine se veut la plus generale possible,
     25!             elle a herite de certaines notations et conventions du
    1426!             schema de Tiedtke (1993).
    1527! 1. En particulier, les couches sont numerotees de haut en bas !!!
    1628!    Ceci est valable pour les flux
    1729!    mais pas pour les entrees x, pplay, paprs !!!!
    18 ! 2. pmfu est positif, pmfd est negatif 
    19 ! 3. Tous les flux d'entrainements et de detrainements sont positifs 
    20 !    contrairement au schema de Tiedtke d'ou les changements de signe!!!! 
     30! 2. pmfu est positif, pmfd est negatif
     31! 3. Tous les flux d'entrainements et de detrainements sont positifs
     32!    contrairement au schema de Tiedtke d'ou les changements de signe!!!!
    2133!=====================================================================
    2234!
    23   include "YOMCST.h"
     35
    2436  include "YOECUMF.h"
    2537

  • LMDZ6/trunk/libf/phylmd/nonlocal.f90

    r5268 r5274  
    66    pcfh, pcfm, cgh, cgq)
    77  USE dimphy
    8   IMPLICIT NONE
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
    921  ! ======================================================================
    1022  ! Laurent Li (LMD/CNRS), le 30 septembre 1998
    … …  
    2032  ! model. J. of Climate, vol. 6, 1825-1842.
    2133  ! ======================================================================
    22   include "YOMCST.h"
     34
    2335
    2436  ! Arguments:

  • LMDZ6/trunk/libf/phylmd/nuage.f90

    r5268 r5274  
    44    pct, pctlwp, ok_aie, mass_solu_aero, mass_solu_aero_pi, bl95_b0, bl95_b1, distcltop, &
    55    temp_cltop, cldtaupi, re, fl)
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618  USE dimphy
    719  USE lmdz_lscp_tools, only: icefrac_lscp
    … …  
    3850  ! ======================================================================
    3951
    40   include "YOMCST.h"
    4152  include "nuage.h" ! JBM 3/14
    4253  include "clesphys.h"
    … …  
    260271SUBROUTINE diagcld1(paprs, pplay, rain, snow, kbot, ktop, diafra, dialiq)
    261272  USE dimphy
    262   IMPLICIT NONE
     273  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     274          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     275          , R_ecc, R_peri, R_incl                                      &
     276          , RA, RG, R1SA                                         &
     277          , RSIGMA                                                     &
     278          , R, RMD, RMV, RD, RV, RCPD                    &
     279          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     280          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     281          , RCW, RCS                                                 &
     282          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     283          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     284          , RALPD, RBETD, RGAMD
     285IMPLICIT NONE
    263286
    264287  ! Laurent Li (LMD/CNRS), le 12 octobre 1998
    … …  
    269292  ! ces nuages. Je dois avouer que c'est une frustration.
    270293
    271   include "YOMCST.h"
     294
    272295
    273296  ! Arguments d'entree:
    … …  
    342365SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq)
    343366  USE dimphy
    344   IMPLICIT NONE
    345 
    346   include "YOMCST.h"
     367  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     368          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     369          , R_ecc, R_peri, R_incl                                      &
     370          , RA, RG, R1SA                                         &
     371          , RSIGMA                                                     &
     372          , R, RMD, RMV, RD, RV, RCPD                    &
     373          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     374          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     375          , RCW, RCS                                                 &
     376          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     377          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     378          , RALPD, RBETD, RGAMD
     379IMPLICIT NONE
     380
     381
    347382
    348383  ! Arguments d'entree:

  • LMDZ6/trunk/libf/phylmd/ocean_cpl_mod.f90

    r5268 r5274  
    6767    USE indice_sol_mod
    6868    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    69     USE cpl_mod, ONLY : gath2cpl, cpl_receive_ocean_fields, &
     69    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     70          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     71          , R_ecc, R_peri, R_incl                                      &
     72          , RA, RG, R1SA                                         &
     73          , RSIGMA                                                     &
     74          , R, RMD, RMV, RD, RV, RCPD                    &
     75          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     76          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     77          , RCW, RCS                                                 &
     78          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     79          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     80          , RALPD, RBETD, RGAMD
     81USE cpl_mod, ONLY : gath2cpl, cpl_receive_ocean_fields, &
    7082         cpl_send_ocean_fields
    7183    use config_ocean_skin_m, only: activate_ocean_skin
    7284
    73     INCLUDE "YOMCST.h"
     85
    7486    INCLUDE "clesphys.h"
    7587!   
    … …  
    254266! some fields to the coupler.
    255267!   
    256     USE dimphy,           ONLY : klon
     268    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     269          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     270          , R_ecc, R_peri, R_incl                                      &
     271          , RA, RG, R1SA                                         &
     272          , RSIGMA                                                     &
     273          , R, RMD, RMV, RD, RV, RCPD                    &
     274          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     275          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     276          , RCW, RCS                                                 &
     277          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     278          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     279          , RALPD, RBETD, RGAMD
     280USE dimphy,           ONLY : klon
    257281    USE cpl_mod
    258282    USE calcul_fluxs_mod
    … …  
    260284    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    261285
    262     INCLUDE "YOMCST.h"
     286
    263287    INCLUDE "clesphys.h"
    264288

  • LMDZ6/trunk/libf/phylmd/ocean_forced_mod.F90

    r5273 r5274  
    5050#endif
    5151#endif
    52 
    53     INCLUDE "YOMCST.h"
     52    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     53          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     54          , R_ecc, R_peri, R_incl                                      &
     55          , RA, RG, R1SA                                         &
     56          , RSIGMA                                                     &
     57          , R, RMD, RMV, RD, RV, RCPD                    &
     58          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     59          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     60          , RCW, RCS                                                 &
     61          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     62          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     63          , RALPD, RBETD, RGAMD
    5464    INCLUDE "clesphys.h"
    5565    INCLUDE "flux_arp.h"
    … …  
    276286#endif
    277287#endif
    278     USE dimsoil_mod_h, ONLY: nsoilmx
     288    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     289          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     290          , R_ecc, R_peri, R_incl                                      &
     291          , RA, RG, R1SA                                         &
     292          , RSIGMA                                                     &
     293          , R, RMD, RMV, RD, RV, RCPD                    &
     294          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     295          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     296          , RCW, RCS                                                 &
     297          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     298          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     299          , RALPD, RBETD, RGAMD
     300USE dimsoil_mod_h, ONLY: nsoilmx
    279301
    280302!   INCLUDE "indicesol.h"
    281     INCLUDE "YOMCST.h"
     303
    282304    INCLUDE "clesphys.h"
    283305    INCLUDE "flux_arp.h"

  • LMDZ6/trunk/libf/phylmd/ocean_slab_mod.f90

    r5268 r5274  
    682682       tsurf_new, dflux_s, dflux_l, swnet)
    683683
    684    USE calcul_fluxs_mod
    685 
    686    INCLUDE "YOMCST.h"
     684   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     685          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     686          , R_ecc, R_peri, R_incl                                      &
     687          , RA, RG, R1SA                                         &
     688          , RSIGMA                                                     &
     689          , R, RMD, RMV, RD, RV, RCPD                    &
     690          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     691          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     692          , RCW, RCS                                                 &
     693          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     694          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     695          , RALPD, RBETD, RGAMD
     696USE calcul_fluxs_mod
     697
     698
    687699   INCLUDE "clesphys.h"
    688700

  • LMDZ6/trunk/libf/phylmd/orbite.f90

    r5268 r5274  
    44! ======================================================================
    55SUBROUTINE orbite(xjour, longi, dist)
    6   IMPLICIT NONE
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
     18IMPLICIT NONE
    719  ! ======================================================================
    820  ! Auteur(s): Z.X. Li (LMD/CNRS) (adapte du GCM du LMD) date: 19930818
    … …  
    1830  REAL xjour, longi, dist
    1931  ! ======================================================================
    20   include "YOMCST.h"
     32
    2133
    2234  ! -- Variables dynamiques locales
    … …  
    4860SUBROUTINE angle(longi, lati, frac, muzero)
    4961  USE dimphy
    50   IMPLICIT NONE
     62  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     63          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     64          , R_ecc, R_peri, R_incl                                      &
     65          , RA, RG, R1SA                                         &
     66          , RSIGMA                                                     &
     67          , R, RMD, RMV, RD, RV, RCPD                    &
     68          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     69          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     70          , RCW, RCS                                                 &
     71          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     72          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     73          , RALPD, RBETD, RGAMD
     74IMPLICIT NONE
    5175  ! ======================================================================
    5276  ! Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    6589  REAL longi
    6690  REAL lati(klon), frac(klon), muzero(klon)
    67   include "YOMCST.h"
     91
    6892  REAL lat, omega, lon_sun, lat_sun
    6993  REAL pi_local, incl
    … …  
    104128SUBROUTINE zenang(longi, gmtime, pdtrad1, pdtrad2, lat, long, pmu0, frac)
    105129  USE dimphy
    106   IMPLICIT NONE
     130  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     131          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     132          , R_ecc, R_peri, R_incl                                      &
     133          , RA, RG, R1SA                                         &
     134          , RSIGMA                                                     &
     135          , R, RMD, RMV, RD, RV, RCPD                    &
     136          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     137          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     138          , RCW, RCS                                                 &
     139          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     140          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     141          , RALPD, RBETD, RGAMD
     142IMPLICIT NONE
    107143  ! =============================================================
    108144  ! Auteur : O. Boucher (LMD/CNRS)
    … …  
    114150  ! fournit des moyennes de pmu0 et non des valeurs
    115151  ! instantanees, du coup frac prend toutes les valeurs
    116   ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et 
     152  ! entre 0 et 1. La routine integre entre gmtime+pdtrad1 et
    117153  ! gmtime+pdtrad2 avec pdtrad1 et pdtrad2 exprimes en secondes.
    118154  ! Date   : premiere version le 13 decembre 1994
    … …  
    131167  ! frac-----OUTPUT: ensoleillement moyen entre gmtime+pdtrad1 et gmtime+pdtrad2
    132168  ! ================================================================
    133   include "YOMCST.h"
     169
    134170  ! ================================================================
    135171  REAL, INTENT (IN) :: longi, gmtime, pdtrad1, pdtrad2
    … …  
    236272SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract)
    237273  USE dimphy
    238   IMPLICIT NONE
     274  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     275          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     276          , R_ecc, R_peri, R_incl                                      &
     277          , RA, RG, R1SA                                         &
     278          , RSIGMA                                                     &
     279          , R, RMD, RMV, RD, RV, RCPD                    &
     280          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     281          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     282          , RCW, RCS                                                 &
     283          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     284          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     285          , RALPD, RBETD, RGAMD
     286IMPLICIT NONE
    239287
    240288  ! Auteur(s): Z.X. Li (LMD/ENS)
    … …  
    253301
    254302  ! ====================================================================
    255   include "YOMCST.h"
     303
    256304  ! ====================================================================
    257305  REAL longi, gmtime

  • LMDZ6/trunk/libf/phylmd/orografi.f90

    r5268 r5274  
    77
    88  USE dimphy
    9   IMPLICIT NONE
     9  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     10          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     11          , R_ecc, R_peri, R_incl                                      &
     12          , RA, RG, R1SA                                         &
     13          , RSIGMA                                                     &
     14          , R, RMD, RMV, RD, RV, RCPD                    &
     15          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     16          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     17          , RCW, RCS                                                 &
     18          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     19          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     20          , RALPD, RBETD, RGAMD
     21IMPLICIT NONE
    1022  ! ======================================================================
    1123  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
    … …  
    2436  ! d_v-----output-R-increment de la vitesse v
    2537  ! ======================================================================
    26   include "YOMCST.h"
     38
    2739
    2840  ! ARGUMENTS
    … …  
    119131    , pulow, pvlow, pvom, pvol, pte)
    120132
     133  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     134          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     135          , R_ecc, R_peri, R_incl                                      &
     136          , RA, RG, R1SA                                         &
     137          , RSIGMA                                                     &
     138          , R, RMD, RMV, RD, RV, RCPD                    &
     139          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     140          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     141          , RCW, RCS                                                 &
     142          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     143          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     144          , RALPD, RBETD, RGAMD
    121145  USE dimphy
    122146  IMPLICIT NONE
    … …  
    169193
    170194
    171   include "YOMCST.h"
    172195  include "YOEGWD.h"
    173196  ! -----------------------------------------------------------------------
    … …  
    397420  ! -----------------------------------------------------------------------
    398421  USE dimphy
    399   IMPLICIT NONE
    400 
    401 
    402   include "YOMCST.h"
     422  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     423          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     424          , R_ecc, R_peri, R_incl                                      &
     425          , RA, RG, R1SA                                         &
     426          , RSIGMA                                                     &
     427          , R, RMD, RMV, RD, RV, RCPD                    &
     428          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     429          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     430          , RCW, RCS                                                 &
     431          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     432          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     433          , RALPD, RBETD, RGAMD
     434IMPLICIT NONE
     435
     436
     437
    403438  include "YOEGWD.h"
    404439
    … …  
    842877  ! -----------------------------------------------------------------------
    843878  USE dimphy
    844   IMPLICIT NONE
    845   include "YOMCST.h"
     879  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     880          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     881          , R_ecc, R_peri, R_incl                                      &
     882          , RA, RG, R1SA                                         &
     883          , RSIGMA                                                     &
     884          , R, RMD, RMV, RD, RV, RCPD                    &
     885          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     886          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     887          , RCW, RCS                                                 &
     888          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     889          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     890          , RALPD, RBETD, RGAMD
     891IMPLICIT NONE
     892
    846893  include "YOEGWD.h"
    847894
    … …  
    9671014  ! -----------------------------------------------------------------------
    9681015  USE dimphy
    969   IMPLICIT NONE
    970 
    971 
    972 
    973 
    974   include "YOMCST.h"
     1016  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1017          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1018          , R_ecc, R_peri, R_incl                                      &
     1019          , RA, RG, R1SA                                         &
     1020          , RSIGMA                                                     &
     1021          , R, RMD, RMV, RD, RV, RCPD                    &
     1022          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1023          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1024          , RCW, RCS                                                 &
     1025          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1026          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1027          , RALPD, RBETD, RGAMD
     1028IMPLICIT NONE
     1029
     1030
     1031
     1032
     1033
    9751034  include "YOEGWD.h"
    9761035
    … …  
    11821241
    11831242  USE dimphy
    1184   IMPLICIT NONE
     1243  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1244          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1245          , R_ecc, R_peri, R_incl                                      &
     1246          , RA, RG, R1SA                                         &
     1247          , RSIGMA                                                     &
     1248          , R, RMD, RMV, RD, RV, RCPD                    &
     1249          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1250          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1251          , RCW, RCS                                                 &
     1252          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1253          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1254          , RALPD, RBETD, RGAMD
     1255IMPLICIT NONE
    11851256  ! ======================================================================
    11861257  ! Auteur(s): F.Lott (LMD/CNRS) date: 19950201
    … …  
    11991270  ! d_v-----output-R-increment de la vitesse v
    12001271  ! ======================================================================
    1201   include "YOMCST.h"
     1272
    12021273
    12031274  ! ARGUMENTS
    … …  
    13091380
    13101381  USE dimphy
    1311   IMPLICIT NONE
    1312 
    1313 
    1314   include "YOMCST.h"
     1382  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1383          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1384          , R_ecc, R_peri, R_incl                                      &
     1385          , RA, RG, R1SA                                         &
     1386          , RSIGMA                                                     &
     1387          , R, RMD, RMV, RD, RV, RCPD                    &
     1388          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1389          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1390          , RCW, RCS                                                 &
     1391          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1392          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1393          , RALPD, RBETD, RGAMD
     1394IMPLICIT NONE
     1395
     1396
     1397
    13151398  include "YOEGWD.h"
    13161399  ! -----------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/orografi_strato.f90

    r5268 r5274  
    33    pustr, pvstr, d_t, d_u, d_v)
    44
     5  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517  USE dimphy
    618  IMPLICIT NONE
    … …  
    6274
    6375  ! ======================================================================
    64   include "YOMCST.h"
    6576  include "YOEGWD.h"
    6677
    … …  
    159170    , pulow, pvlow, pvom, pvol, pte)
    160171
     172  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     173          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     174          , R_ecc, R_peri, R_incl                                      &
     175          , RA, RG, R1SA                                         &
     176          , RSIGMA                                                     &
     177          , R, RMD, RMV, RD, RV, RCPD                    &
     178          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     179          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     180          , RCW, RCS                                                 &
     181          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     182          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     183          , RALPD, RBETD, RGAMD
    161184  USE dimphy
    162185  IMPLICIT NONE
    … …  
    239262
    240263
    241   include "YOMCST.h"
    242264  include "YOEGWD.h"
    243265
    … …  
    544566  ! -----------------------------------------------------------------------
    545567  USE dimphy
    546   IMPLICIT NONE
    547 
    548 
    549   include "YOMCST.h"
     568  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     569          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     570          , R_ecc, R_peri, R_incl                                      &
     571          , RA, RG, R1SA                                         &
     572          , RSIGMA                                                     &
     573          , R, RMD, RMV, RD, RV, RCPD                    &
     574          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     575          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     576          , RCW, RCS                                                 &
     577          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     578          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     579          , RALPD, RBETD, RGAMD
     580IMPLICIT NONE
     581
     582
     583
    550584  include "YOEGWD.h"
    551585
    … …  
    9971031  ! -----------------------------------------------------------------------
    9981032  USE dimphy
    999   IMPLICIT NONE
    1000 
    1001   include "YOMCST.h"
     1033  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1034          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1035          , R_ecc, R_peri, R_incl                                      &
     1036          , RA, RG, R1SA                                         &
     1037          , RSIGMA                                                     &
     1038          , R, RMD, RMV, RD, RV, RCPD                    &
     1039          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1040          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1041          , RCW, RCS                                                 &
     1042          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1043          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1044          , RALPD, RBETD, RGAMD
     1045IMPLICIT NONE
     1046
     1047
    10021048  include "YOEGWD.h"
    10031049
    … …  
    11141160
    11151161  USE dimphy
    1116   IMPLICIT NONE
    1117 
    1118   include "YOMCST.h"
     1162  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1163          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1164          , R_ecc, R_peri, R_incl                                      &
     1165          , RA, RG, R1SA                                         &
     1166          , RSIGMA                                                     &
     1167          , R, RMD, RMV, RD, RV, RCPD                    &
     1168          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1169          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1170          , RCW, RCS                                                 &
     1171          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1172          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1173          , RALPD, RBETD, RGAMD
     1174IMPLICIT NONE
     1175
     1176
    11191177  include "YOEGWD.h"
    11201178
    … …  
    12901348    pvlow, pustr, pvstr, d_t, d_u, d_v)
    12911349
     1350  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1351          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1352          , R_ecc, R_peri, R_incl                                      &
     1353          , RA, RG, R1SA                                         &
     1354          , RSIGMA                                                     &
     1355          , R, RMD, RMV, RD, RV, RCPD                    &
     1356          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1357          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1358          , RCW, RCS                                                 &
     1359          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1360          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1361          , RALPD, RBETD, RGAMD
    12921362  USE dimphy
    12931363  IMPLICIT NONE
    … …  
    13501420  ! ======================================================================
    13511421
    1352   include "YOMCST.h"
    13531422  include "YOEGWD.h"
    13541423
    … …  
    15051574
    15061575  USE dimphy
    1507   IMPLICIT NONE
    1508 
    1509 
    1510   include "YOMCST.h"
     1576  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1577          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1578          , R_ecc, R_peri, R_incl                                      &
     1579          , RA, RG, R1SA                                         &
     1580          , RSIGMA                                                     &
     1581          , R, RMD, RMV, RD, RV, RCPD                    &
     1582          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1583          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1584          , RCW, RCS                                                 &
     1585          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1586          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1587          , RALPD, RBETD, RGAMD
     1588IMPLICIT NONE
     1589
     1590
     1591
    15111592  include "YOEGWD.h"
    15121593  ! -----------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/paramlmdz_phy_mod.F90

    r2590 r5274  
    1717    USE mod_phys_lmdz_transfert_para, ONLY: gather, bcast
    1818
    19     IMPLICIT NONE
     19    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     20          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     21          , R_ecc, R_peri, R_incl                                      &
     22          , RA, RG, R1SA                                         &
     23          , RSIGMA                                                     &
     24          , R, RMD, RMV, RD, RV, RCPD                    &
     25          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     26          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     27          , RCW, RCS                                                 &
     28          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     29          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     30          , RALPD, RBETD, RGAMD
     31IMPLICIT NONE
    2032
    2133    include "clesphys.h"
    22     include "YOMCST.h"
     34
    2335
    2436    REAL, INTENT(OUT)    :: dtime
    … …  
    154166#endif
    155167
    156     IMPLICIT NONE
     168    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     169          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     170          , R_ecc, R_peri, R_incl                                      &
     171          , RA, RG, R1SA                                         &
     172          , RSIGMA                                                     &
     173          , R, RMD, RMV, RD, RV, RCPD                    &
     174          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     175          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     176          , RCW, RCS                                                 &
     177          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     178          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     179          , RALPD, RBETD, RGAMD
     180IMPLICIT NONE
    157181
    158182    include "clesphys.h"
    159     include "YOMCST.h"
     183
    160184
    161185    INTEGER, INTENT(IN) :: itap, nid_ctesGCM

  • LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

    r5273 r5274  
    416416    USE dimsoil_mod_h, ONLY: nsoilmx
    417417
    418     IMPLICIT NONE
    419     INCLUDE "YOMCST.h"
     418    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     419          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     420          , R_ecc, R_peri, R_incl                                      &
     421          , RA, RG, R1SA                                         &
     422          , RSIGMA                                                     &
     423          , R, RMD, RMV, RD, RV, RCPD                    &
     424          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     425          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     426          , RCW, RCS                                                 &
     427          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     428          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     429          , RALPD, RBETD, RGAMD
     430IMPLICIT NONE
     431
    420432    INCLUDE "YOETHF.h"
    421433    INCLUDE "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/phyaqua_mod.f90

    r5273 r5274  
    3939    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    4040    USE dimsoil_mod_h, ONLY: nsoilmx
    41     IMPLICIT NONE
    42 
    43     include "YOMCST.h"
     41    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     42          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     43          , R_ecc, R_peri, R_incl                                      &
     44          , RA, RG, R1SA                                         &
     45          , RSIGMA                                                     &
     46          , R, RMD, RMV, RD, RV, RCPD                    &
     47          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     48          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     49          , RCW, RCS                                                 &
     50          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     51          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     52          , RALPD, RBETD, RGAMD
     53IMPLICIT NONE
     54
     55
    4456    include "clesphys.h"
    4557
    … …  
    395407  ! ====================================================================
    396408  SUBROUTINE zenang_an(cycle_diurne, gmtime, rlat, rlon, rmu0, fract)
     409    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     410          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     411          , R_ecc, R_peri, R_incl                                      &
     412          , RA, RG, R1SA                                         &
     413          , RSIGMA                                                     &
     414          , R, RMD, RMV, RD, RV, RCPD                    &
     415          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     416          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     417          , RCW, RCS                                                 &
     418          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     419          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     420          , RALPD, RBETD, RGAMD
    397421    USE dimphy
    398422    IMPLICIT NONE
    … …  
    428452    ! frac-----OUTPUT: ensoleillement moyen entre gmtime et gmtime+pdtrad
    429453    ! ================================================================
    430     include "YOMCST.h"
    431454    ! ================================================================
    432455    LOGICAL cycle_diurne

  • LMDZ6/trunk/libf/phylmd/phyetat0_mod.f90

    r5273 r5274  
    4646
    4747
    48   IMPLICIT none
     48  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     49          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     50          , R_ecc, R_peri, R_incl                                      &
     51          , RA, RG, R1SA                                         &
     52          , RSIGMA                                                     &
     53          , R, RMD, RMV, RD, RV, RCPD                    &
     54          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     55          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     56          , RCW, RCS                                                 &
     57          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     58          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     59          , RALPD, RBETD, RGAMD
     60IMPLICIT none
    4961  !======================================================================
    5062  ! Auteur(s) Z.X. Li (LMD/CNRS) date: 19930818
    … …  
    5466  include "alpale.h"
    5567  include "compbl.h"
    56   include "YOMCST.h"
     68
    5769  !======================================================================
    5870  CHARACTER*(*) fichnom

  • LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

    r5252 r5274  
    5959    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    6060
    61     IMPLICIT NONE
     61    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     62          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     63          , R_ecc, R_peri, R_incl                                      &
     64          , RA, RG, R1SA                                         &
     65          , RSIGMA                                                     &
     66          , R, RMD, RMV, RD, RV, RCPD                    &
     67          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     68          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     69          , RCW, RCS                                                 &
     70          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     71          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     72          , RALPD, RBETD, RGAMD
     73IMPLICIT NONE
    6274    include "clesphys.h"
    63     include "YOMCST.h"
     75
    6476
    6577    ! ug Nouveaux arguments n\'ecessaires au histwrite_mod:

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r5267 r5274  
    476476    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    477477
    478     IMPLICIT NONE
     478    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     479          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     480          , R_ecc, R_peri, R_incl                                      &
     481          , RA, RG, R1SA                                         &
     482          , RSIGMA                                                     &
     483          , R, RMD, RMV, RD, RV, RCPD                    &
     484          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     485          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     486          , RCW, RCS                                                 &
     487          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     488          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     489          , RALPD, RBETD, RGAMD
     490IMPLICIT NONE
    479491
    480492    INCLUDE "clesphys.h"
    481493    INCLUDE "alpale.h"
    482494    INCLUDE "compbl.h"
    483     INCLUDE "YOMCST.h"
     495
    484496
    485497    ! Input

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5273 r5274  
    358358       reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
    359359       USE output_physiqex_mod, ONLY: output_physiqex
    360 
     360       USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     361          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     362          , R_ecc, R_peri, R_incl                                      &
     363          , RA, RG, R1SA                                         &
     364          , RSIGMA                                                     &
     365          , R, RMD, RMV, RD, RV, RCPD                    &
     366          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     367          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     368          , RCW, RCS                                                 &
     369          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     370          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     371          , RALPD, RBETD, RGAMD
    361372
    362373    IMPLICIT NONE
    … …  
    11711182                 ! the ozone fields, old method.
    11721183
    1173     include "YOMCST.h"
    11741184    include "YOETHF.h"
    11751185    include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/phytrac_mod.f90

    r5268 r5274  
    151151    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    152152
    153     IMPLICIT NONE
    154 
    155     INCLUDE "YOMCST.h"
     153    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     154          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     155          , R_ecc, R_peri, R_incl                                      &
     156          , RA, RG, R1SA                                         &
     157          , RSIGMA                                                     &
     158          , R, RMD, RMV, RD, RV, RCPD                    &
     159          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     160          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     161          , RCW, RCS                                                 &
     162          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     163          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     164          , RALPD, RBETD, RGAMD
     165IMPLICIT NONE
     166
     167
    156168    INCLUDE "clesphys.h"
    157169    !==========================================================================

  • LMDZ6/trunk/libf/phylmd/pppmer.f90

    r5268 r5274  
    6464!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
    6565
    66   IMPLICIT NONE
     66  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     67          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     68          , R_ecc, R_peri, R_incl                                      &
     69          , RA, RG, R1SA                                         &
     70          , RSIGMA                                                     &
     71          , R, RMD, RMV, RD, RV, RCPD                    &
     72          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     73          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     74          , RCW, RCS                                                 &
     75          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     76          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     77          , RALPD, RBETD, RGAMD
     78IMPLICIT NONE
    6779
    68 include "YOMCST.h"
     80
    6981!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA
    7082!IM INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART

  • LMDZ6/trunk/libf/phylmd/qcheck.f90

    r5268 r5274  
    11FUNCTION qcheck(klon,klev,paprs,q,ql,aire)
    2   IMPLICIT none
     2  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     3          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     4          , R_ecc, R_peri, R_incl                                      &
     5          , RA, RG, R1SA                                         &
     6          , RSIGMA                                                     &
     7          , R, RMD, RMV, RD, RV, RCPD                    &
     8          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     9          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     10          , RCW, RCS                                                 &
     11          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     12          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     13          , RALPD, RBETD, RGAMD
     14IMPLICIT none
    315  !
    416  ! Calculer et imprimer l'eau totale. A utiliser pour verifier
    517  ! la conservation de l'eau
    618  !
    7   include "YOMCST.h"
     19
    820  INTEGER,INTENT(IN) :: klon,klev
    921  REAL,INTENT(IN) :: paprs(klon,klev+1), q(klon,klev), ql(klon,klev)

  • LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

    r5268 r5274  
    77  USE dimphy
    88  USE print_control_mod, ONLY: lunout
    9   IMPLICIT NONE
    10 
    11   include "YOMCST.h"
     9  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     10          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     11          , R_ecc, R_peri, R_incl                                      &
     12          , RA, RG, R1SA                                         &
     13          , RSIGMA                                                     &
     14          , R, RMD, RMV, RD, RV, RCPD                    &
     15          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     16          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     17          , RCW, RCS                                                 &
     18          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     19          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     20          , RALPD, RBETD, RGAMD
     21IMPLICIT NONE
     22
     23
    1224
    1325  ! ------------------------------------------------------------------
    … …  
    313325  USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
    314326    rtdumg, rth2o, rtumg
    315   IMPLICIT NONE
     327  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     328          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     329          , R_ecc, R_peri, R_incl                                      &
     330          , RA, RG, R1SA                                         &
     331          , RSIGMA                                                     &
     332          , R, RMD, RMV, RD, RV, RCPD                    &
     333          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     334          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     335          , RCW, RCS                                                 &
     336          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     337          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     338          , RALPD, RBETD, RGAMD
     339IMPLICIT NONE
    316340  include "radepsi.h"
    317341  include "radopt.h"
    318   include "YOMCST.h"
     342
    319343
    320344  ! * ARGUMENTS:
    … …  
    21242148  USE dimphy
    21252149  USE print_control_mod, ONLY: lunout
    2126   IMPLICIT NONE
     2150  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2151          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2152          , R_ecc, R_peri, R_incl                                      &
     2153          , RA, RG, R1SA                                         &
     2154          , RSIGMA                                                     &
     2155          , R, RMD, RMV, RD, RV, RCPD                    &
     2156          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2157          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2158          , RCW, RCS                                                 &
     2159          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2160          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2161          , RALPD, RBETD, RGAMD
     2162IMPLICIT NONE
    21272163  include "raddimlw.h"
    2128   include "YOMCST.h"
     2164
    21292165
    21302166  ! -----------------------------------------------------------------------
    … …  
    23152351  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
    23162352
    2317   IMPLICIT NONE
     2353  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2354          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2355          , R_ecc, R_peri, R_incl                                      &
     2356          , RA, RG, R1SA                                         &
     2357          , RSIGMA                                                     &
     2358          , R, RMD, RMV, RD, RV, RCPD                    &
     2359          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2360          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2361          , RCW, RCS                                                 &
     2362          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2363          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2364          , RALPD, RBETD, RGAMD
     2365IMPLICIT NONE
    23182366  include "raddimlw.h"
    2319   include "YOMCST.h"
     2367
    23202368  include "radepsi.h"
    23212369  include "radopt.h"
    … …  
    26782726    pfluc, pbint, pbsui, pcts, pcntrb)
    26792727  USE dimphy
    2680   IMPLICIT NONE
     2728  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2729          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     2730          , R_ecc, R_peri, R_incl                                      &
     2731          , RA, RG, R1SA                                         &
     2732          , RSIGMA                                                     &
     2733          , R, RMD, RMV, RD, RV, RCPD                    &
     2734          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     2735          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     2736          , RCW, RCS                                                 &
     2737          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     2738          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     2739          , RALPD, RBETD, RGAMD
     2740IMPLICIT NONE
    26812741  include "raddimlw.h"
    2682   include "YOMCST.h"
     2742
    26832743
    26842744  ! PURPOSE.
    … …  
    45404600    pgbtop, pcntrb, pcts, pfluc)
    45414601  USE dimphy
    4542   IMPLICIT NONE
     4602  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     4603          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     4604          , R_ecc, R_peri, R_incl                                      &
     4605          , RA, RG, R1SA                                         &
     4606          , RSIGMA                                                     &
     4607          , R, RMD, RMV, RD, RV, RCPD                    &
     4608          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     4609          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     4610          , RCW, RCS                                                 &
     4611          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     4612          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     4613          , RALPD, RBETD, RGAMD
     4614IMPLICIT NONE
    45434615  include "raddimlw.h"
    4544   include "YOMCST.h"
     4616
    45454617
    45464618  ! -----------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r5252 r5274  
    8686    USE interface_lmdz_ecrad
    8787#endif
     88    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     89          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     90          , R_ecc, R_peri, R_incl                                      &
     91          , RA, RG, R1SA                                         &
     92          , RSIGMA                                                     &
     93          , R, RMD, RMV, RD, RV, RCPD                    &
     94          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     95          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     96          , RCW, RCS                                                 &
     97          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     98          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     99          , RALPD, RBETD, RGAMD
    88100
    89101    !======================================================================
    … …  
    191203    ! ==============
    192204    include "YOETHF.h"
    193     include "YOMCST.h"
    194205    include "clesphys.h"
    195206

  • LMDZ6/trunk/libf/phylmd/readaerosol_interp.f90

    r5268 r5274  
    2323  USE print_control_mod, ONLY: lunout
    2424
    25   IMPLICIT NONE
    26 
    27   INCLUDE "YOMCST.h"
     25  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     26          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     27          , R_ecc, R_peri, R_incl                                      &
     28          , RA, RG, R1SA                                         &
     29          , RSIGMA                                                     &
     30          , R, RMD, RMV, RD, RV, RCPD                    &
     31          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     32          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     33          , RCW, RCS                                                 &
     34          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     35          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     36          , RALPD, RBETD, RGAMD
     37IMPLICIT NONE
     38
     39
    2840  INCLUDE "chem.h"     
    2941  INCLUDE "clesphys.h"

  • LMDZ6/trunk/libf/phylmd/readaerosolstrato.f90

    r5268 r5274  
    1717    USE print_control_mod, ONLY: prt_level,lunout
    1818    USE lmdz_xios
    19     implicit none
    20 
    21     include "YOMCST.h"
     19    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     20          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     21          , R_ecc, R_peri, R_incl                                      &
     22          , RA, RG, R1SA                                         &
     23          , RSIGMA                                                     &
     24          , R, RMD, RMV, RD, RV, RCPD                    &
     25          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     26          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     27          , RCW, RCS                                                 &
     28          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     29          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     30          , RALPD, RBETD, RGAMD
     31implicit none
     32
     33
    2234
    2335! Variable input

  • LMDZ6/trunk/libf/phylmd/readchlorophyll.f90

    r5268 r5274  
    1717    USE print_control_mod, ONLY: prt_level,lunout
    1818
    19     IMPLICIT NONE
     19    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     20          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     21          , R_ecc, R_peri, R_incl                                      &
     22          , RA, RG, R1SA                                         &
     23          , RSIGMA                                                     &
     24          , R, RMD, RMV, RD, RV, RCPD                    &
     25          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     26          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     27          , RCW, RCS                                                 &
     28          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     29          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     30          , RALPD, RBETD, RGAMD
     31IMPLICIT NONE
    2032
    21     INCLUDE "YOMCST.h"
     33
    2234
    2335! Variable input

  • LMDZ6/trunk/libf/phylmd/reevap.f90

    r5268 r5274  
    55    USE add_phys_tend_mod, only : fl_cor_ebil
    66   
    7     IMPLICIT none
     7    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19IMPLICIT none
    820    !>======================================================================
    921
    … …  
    1628
    1729    !--------Stochastic Boundary Layer Triggering: ALE_BL--------
    18     !---Propri\'et\'es du thermiques au LCL 
    19     include "YOMCST.h"
     30    !---Propri\'et\'es du thermiques au LCL
     31
    2032    include "YOETHF.h"
    2133    include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmd/regr_pr_time_av_m.f90

    r5268 r5274  
    128128  USE phys_cal_mod,                 ONLY: calend, year_len, days_elapsed, jH_cur
    129129  USE geometry_mod,                 ONLY: ind_cell_glo
     130  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     131          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     132          , R_ecc, R_peri, R_incl                                      &
     133          , RA, RG, R1SA                                         &
     134          , RSIGMA                                                     &
     135          , R, RMD, RMV, RD, RV, RCPD                    &
     136          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     137          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     138          , RCW, RCS                                                 &
     139          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     140          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     141          , RALPD, RBETD, RGAMD
    130142!-------------------------------------------------------------------------------
    131143! Arguments:
    … …  
    148160! Local variables:
    149161  include "clesphys.h"
    150   include "YOMCST.h"
     162
    151163  CHARACTER(LEN=80)  :: sub
    152164  CHARACTER(LEN=320) :: str

  • LMDZ6/trunk/libf/phylmd/screenc_mod.f90

    r5268 r5274  
    1919                         ustar, testar, qstar, okri, ri1, &
    2020                         pref, delu, delte, delq, s_pblh, prain, tsol, pat1)
    21       IMPLICIT NONE
    22 !-----------------------------------------------------------------------
    23 !
    24 ! Objet : calcul "correcteur" des anomalies du vent, de la temperature
    25 !         potentielle et de l'humidite relative au niveau de reference zref et
    26 !         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q)
     21      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     22          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     23          , R_ecc, R_peri, R_incl                                      &
     24          , RA, RG, R1SA                                         &
     25          , RSIGMA                                                     &
     26          , R, RMD, RMV, RD, RV, RCPD                    &
     27          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     28          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     29          , RCW, RCS                                                 &
     30          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     31          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     32          , RALPD, RBETD, RGAMD
     33IMPLICIT NONE
     34!-----------------------------------------------------------------------
     35!
     36! Objet : calcul "correcteur" des anomalies du vent, de la temperature
     37!         potentielle et de l'humidite relative au niveau de reference zref et
     38!         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q)
    2739!         a partir des equations de Louis.
    2840!
    … …  
    4759! testar--input-R- facteur d'echelle pour la temperature potentielle
    4860! qstar---input-R- facteur d'echelle pour l'humidite relative
    49 ! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce 
     61! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce
    5062!                  et zref par rapport au Ri entre la sfce et la 1ere couche
    51 ! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche 
     63! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche
    5264!
    5365! pref----input-R- pression au niveau de reference
    … …  
    5769!
    5870      INTEGER, intent(in) :: klon, knon, nsrf
    59       LOGICAL, intent(in) :: zxli, okri 
     71      LOGICAL, intent(in) :: zxli, okri
    6072      REAL, dimension(klon), intent(in) :: speed, temp, q_zref
    6173      REAL, intent(in) :: zref
    … …  
    6375      REAL, dimension(klon), intent(in) :: qsurf, psol
    6476      REAL, dimension(klon), intent(inout):: z0m, z0h
    65       REAL, dimension(klon), intent(in) :: ustar, testar, qstar, ri1   
    66 
    67       REAL, dimension(klon), intent(inout) :: s_pblh   
    68       REAL, dimension(klon), intent(in) :: prain   
    69       REAL, dimension(klon), intent(in) :: tsol   
    70       REAL, DIMENSION(klon), INTENT(IN)    :: pat1 !pression premier lev     
    71 !
    72       REAL, dimension(klon), intent(out) :: pref, delu, delte, delq 
    73 !-----------------------------------------------------------------------
    74       include "YOMCST.h"
     77      REAL, dimension(klon), intent(in) :: ustar, testar, qstar, ri1
     78
     79      REAL, dimension(klon), intent(inout) :: s_pblh
     80      REAL, dimension(klon), intent(in) :: prain
     81      REAL, dimension(klon), intent(in) :: tsol
     82      REAL, DIMENSION(klon), INTENT(IN)    :: pat1 !pression premier lev
     83!
     84      REAL, dimension(klon), intent(out) :: pref, delu, delte, delq
     85!-----------------------------------------------------------------------
     86
    7587      include "flux_arp.h"
    7688!
    … …  
    122134                         ri1, iri1, &
    123135                         pref, delm, delh, zri1, s_pblh, prain, tsol, pat1)
    124       IMPLICIT NONE
    125 !-----------------------------------------------------------------------
    126 !
    127 ! Objet : calcul "correcteur" des anomalies du vent, de la temperature
    128 !         potentielle et de l'humidite relative au niveau de reference zref et
    129 !         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q)
     136      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     137          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     138          , R_ecc, R_peri, R_incl                                      &
     139          , RA, RG, R1SA                                         &
     140          , RSIGMA                                                     &
     141          , R, RMD, RMV, RD, RV, RCPD                    &
     142          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     143          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     144          , RCW, RCS                                                 &
     145          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     146          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     147          , RALPD, RBETD, RGAMD
     148IMPLICIT NONE
     149!-----------------------------------------------------------------------
     150!
     151! Objet : calcul "correcteur" des anomalies du vent, de la temperature
     152!         potentielle et de l'humidite relative au niveau de reference zref et
     153!         par rapport au 1er niveau (pour u) ou a la surface (pour theta et q)
    130154!         a partir des equations de Louis.
    131155!
    … …  
    150174! testar--input-R- facteur d'echelle pour la temperature potentielle
    151175! qstar---input-R- facteur d'echelle pour l'humidite relative
    152 ! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce 
     176! okri----input-L- TRUE si on veut tester le nb. Richardson entre la sfce
    153177!                  et zref par rapport au Ri entre la sfce et la 1ere couche
    154 ! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche 
     178! ri1-----input-R- nb. Richardson entre la surface et la 1ere couche
    155179!
    156180! pref----input-R- pression au niveau de reference
    … …  
    160184!
    161185      INTEGER, intent(in) :: klon, knon, nsrf
    162       LOGICAL, intent(in) :: zxli, okri 
     186      LOGICAL, intent(in) :: zxli, okri
    163187      REAL, dimension(klon), intent(in) :: speed, temp, q_zref
    164188      REAL, intent(in) :: zref
    165189      REAL, dimension(klon), intent(in) :: ts, qsurf, psol
    166190      REAL, dimension(klon), intent(inout) :: z0m, z0h
    167       REAL, dimension(klon), intent(in) :: cdrm, cdrh, ri1         
    168       REAL, dimension(klon), intent(inout) :: s_pblh   
    169       REAL, dimension(klon), intent(in) :: prain   
    170       REAL, dimension(klon), intent(in) :: tsol   
    171       REAL, DIMENSION(klon), INTENT(IN) :: pat1 !pression premier lev     
     191      REAL, dimension(klon), intent(in) :: cdrm, cdrh, ri1
     192      REAL, dimension(klon), intent(inout) :: s_pblh
     193      REAL, dimension(klon), intent(in) :: prain
     194      REAL, dimension(klon), intent(in) :: tsol
     195      REAL, DIMENSION(klon), INTENT(IN) :: pat1 !pression premier lev
    172196      INTEGER, INTENT(IN)  :: iri1 ! Richardson de la 1ere couche
    173197!
    174198      REAL, dimension(klon), intent(out) :: pref, delm, delh, zri1
    175 !171220     REAL, dimension(klon) :: cdram, cdrah, zri1 
     199!171220     REAL, dimension(klon) :: cdram, cdrah, zri1
    176200      REAL, dimension(klon) :: cdram, cdrah
    177201!-----------------------------------------------------------------------
    178       include "YOMCST.h"
     202
    179203      include "flux_arp.h"
    180204!

  • LMDZ6/trunk/libf/phylmd/simu_airs.f90

    r5268 r5274  
    11361136        USE m_simu_airs
    11371137
    1138         IMPLICIT NONE
    1139 
    1140         include "YOMCST.h"
     1138        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1139          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1140          , R_ecc, R_peri, R_incl                                      &
     1141          , RA, RG, R1SA                                         &
     1142          , RSIGMA                                                     &
     1143          , R, RMD, RMV, RD, RV, RCPD                    &
     1144          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1145          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1146          , RCW, RCS                                                 &
     1147          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1148          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1149          , RALPD, RBETD, RGAMD
     1150IMPLICIT NONE
     1151
     1152
    11411153
    11421154        INTEGER,intent(in) :: itap

  • LMDZ6/trunk/libf/phylmd/soil.f90

    r5273 r5274  
    55     lon, lat, ptsoil, pcapcal, pfluxgrd)
    66 
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
    719  USE dimphy
    820  USE mod_phys_lmdz_para
    … …  
    4355!             with F0 = A + B (Ts(t))
    4456!                 Capcal = B*dt
    45 !           
     57!
    4658!   Interface:
    4759!   ----------
    … …  
    5971!   pcapcal(klon)        surfacic specific heat (W*m-2*s*K-1)
    6072!   pfluxgrd(klon)       surface diffusive flux from ground (Wm-2)
    61 !   
     73!
    6274!=======================================================================
    63   INCLUDE "YOMCST.h"
    6475  INCLUDE "comsoil.h"
    6576!-----------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/solarlong.f90

    r5268 r5274  
    44  USE print_control_mod, ONLY: lunout
    55
    6   IMPLICIT NONE
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
     18IMPLICIT NONE
    719
    820  ! =======================================================================
    … …  
    4658
    4759  include "planete.h"
    48   include "YOMCST.h"
     60
    4961
    5062  ! arguments:

  • LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90

    r5268 r5274  
    55! of temperature, specific humidity and wind at a reference level
    66!
    7   USE cdrag_mod
     7  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     8          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     9          , R_ecc, R_peri, R_incl                                      &
     10          , RA, RG, R1SA                                         &
     11          , RSIGMA                                                     &
     12          , R, RMD, RMV, RD, RV, RCPD                    &
     13          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     14          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     15          , RCW, RCS                                                 &
     16          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     17          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     18          , RALPD, RBETD, RGAMD
     19      USE cdrag_mod
    820  USE screenp_mod
    921  USE screenc_mod
    … …  
    2335!-------------------------------------------------------------------------
    2436!
    25 ! Objet : calcul de la temperature et l'humidite relative a 2m et du 
     37! Objet : calcul de la temperature et l'humidite relative a 2m et du
    2638!         module du vent a 10m a partir des relations de Dyer-Businger et
    2739!         des equations de Louis.
    2840!
    29 ! Reference : Hess, Colman et McAvaney (1995)       
     41! Reference : Hess, Colman et McAvaney (1995)
    3042!
    3143! I. Musat, 01.07.2002
    … …  
    7284!-------------------------------------------------------------------------
    7385      include "flux_arp.h"
    74       include "YOMCST.h"
    7586!IM PLUS
    7687      include "YOETHF.h"
    … …  
    319330                           n2mout)
    320331!
     332      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     333          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     334          , R_ecc, R_peri, R_incl                                      &
     335          , RA, RG, R1SA                                         &
     336          , RSIGMA                                                     &
     337          , R, RMD, RMV, RD, RV, RCPD                    &
     338          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     339          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     340          , RCW, RCS                                                 &
     341          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     342          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     343          , RALPD, RBETD, RGAMD
    321344      USE ioipsl_getin_p_mod, ONLY : getin_p
    322345      IMPLICIT NONE
    323346!-------------------------------------------------------------------------
    324347!
    325 ! Objet : calcul de la temperature et l'humidite relative a 2m et du 
     348! Objet : calcul de la temperature et l'humidite relative a 2m et du
    326349!         module du vent a 10m a partir des relations de Dyer-Businger et
    327350!         des equations de Louis.
    328351!
    329 ! Reference : Hess, Colman et McAvaney (1995)       
     352! Reference : Hess, Colman et McAvaney (1995)
    330353!
    331354! I. Musat, 01.07.2002
    … …  
    381404!-------------------------------------------------------------------------
    382405      include "flux_arp.h"
    383       include "YOMCST.h"
    384406!IM PLUS
    385407      include "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/stratocu_if.f90

    r5268 r5274  
    44  USE indice_sol_mod
    55
     6USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618IMPLICIT NONE
    719
    … …  
    2739    REAL, DIMENSION(klon, 4), INTENT(IN)   ::  pctsrf
    2840    REAL, DIMENSION(klon, klev), INTENT(IN)   :: t
    29    
     41
    3042    REAL, DIMENSION(klon), INTENT(OUT)  :: weak_inversion
    3143!
    … …  
    4254    REAL dthmin(klon), zdthdp
    4355
    44     INCLUDE "YOMCST.h"
     56
    4557
    4658!

  • LMDZ6/trunk/libf/phylmd/stratosphere_mask.f90

    r5268 r5274  
    3737USE print_control_mod, ONLY: lunout, prt_level
    3838
     39USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     40          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     41          , R_ecc, R_peri, R_incl                                      &
     42          , RA, RG, R1SA                                         &
     43          , RSIGMA                                                     &
     44          , R, RMD, RMV, RD, RV, RCPD                    &
     45          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     46          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     47          , RCW, RCS                                                 &
     48          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     49          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     50          , RALPD, RBETD, RGAMD
    3951IMPLICIT NONE
    4052
    41 INCLUDE "YOMCST.h"
     53
    4254
    4355REAL, INTENT(IN)                       :: missing_val ! missing value, also XIOS
    … …  
    111123! reference: Reichler, T., M. Dameris, and R. Sausen (GRL, 10.1029/2003GL018240, 2003)
    112124
     125USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     126          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     127          , R_ecc, R_peri, R_incl                                      &
     128          , RA, RG, R1SA                                         &
     129          , RSIGMA                                                     &
     130          , R, RMD, RMV, RD, RV, RCPD                    &
     131          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     132          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     133          , RCW, RCS                                                 &
     134          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     135          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     136          , RALPD, RBETD, RGAMD
    113137implicit none
    114138
    115 include "YOMCST.h"
     139
    116140
    117141integer,intent(in)              :: level

  • LMDZ6/trunk/libf/phylmd/suphel.f90

    r5268 r5274  
    44SUBROUTINE suphel
    55
    6   IMPLICIT NONE
    7 
    8   include "YOMCST.h"
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
     18IMPLICIT NONE
     19
     20
    921  include "YOETHF.h"
    1022  ! IM cf. JLD

  • LMDZ6/trunk/libf/phylmd/surf_land_bucket_mod.F90

    r5273 r5274  
    4444#endif
    4545#endif
     46    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     47          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     48          , R_ecc, R_peri, R_incl                                      &
     49          , RA, RG, R1SA                                         &
     50          , RSIGMA                                                     &
     51          , R, RMD, RMV, RD, RV, RCPD                    &
     52          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     53          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     54          , RCW, RCS                                                 &
     55          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     56          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     57          , RALPD, RBETD, RGAMD
    4658    USE dimsoil_mod_h, ONLY: nsoilmx
    4759!****************************************************************************************
    48 ! Bucket calculations for surface. 
     60! Bucket calculations for surface.
    4961!
    5062    INCLUDE "clesphys.h"
    51     INCLUDE "YOMCST.h"
    5263
    5364! Input variables 

  • LMDZ6/trunk/libf/phylmd/surf_land_mod.F90

    r5273 r5274  
    7373#endif
    7474
    75     USE print_control_mod, ONLY: lunout
     75    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     76          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     77          , R_ecc, R_peri, R_incl                                      &
     78          , RA, RG, R1SA                                         &
     79          , RSIGMA                                                     &
     80          , R, RMD, RMV, RD, RV, RCPD                    &
     81          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     82          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     83          , RCW, RCS                                                 &
     84          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     85          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     86          , RALPD, RBETD, RGAMD
     87USE print_control_mod, ONLY: lunout
    7688    USE dimsoil_mod_h, ONLY: nsoilmx
    77     INCLUDE "YOMCST.h"
     89
    7890    INCLUDE "clesphys.h"
    7991    INCLUDE "dimpft.h"

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

    r4894 r5274  
    6161    USE time_phylmdz_mod, ONLY: itau_phy
    6262#endif
     63    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     64          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     65          , R_ecc, R_peri, R_incl                                      &
     66          , RA, RG, R1SA                                         &
     67          , RSIGMA                                                     &
     68          , R, RMD, RMV, RD, RV, RCPD                    &
     69          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     70          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     71          , RCW, RCS                                                 &
     72          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     73          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     74          , RALPD, RBETD, RGAMD
    6375!   
    6476! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    113125!   qsurf        air moisture at surface
    114126!
    115     INCLUDE "YOMCST.h"
    116127    INCLUDE "dimpft.h"
    117128!
    … …  
    254265       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
    255266!ym          ALLOCATE(albedo_keep(klon))
    256 !ym bizarre que non alloué en knon precedement
     267!ym bizarre que non allou� en knon precedement
    257268          ALLOCATE(albedo_keep(knon))
    258269          ALLOCATE(zlev(knon))

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nofrein_mod.F90

    r4894 r5274  
    6060    USE time_phylmdz_mod, ONLY: itau_phy
    6161#endif
     62    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     63          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     64          , R_ecc, R_peri, R_incl                                      &
     65          , RA, RG, R1SA                                         &
     66          , RSIGMA                                                     &
     67          , R, RMD, RMV, RD, RV, RCPD                    &
     68          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     69          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     70          , RCW, RCS                                                 &
     71          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     72          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     73          , RALPD, RBETD, RGAMD
    6274!   
    6375! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    113125!   qsurf        air moisture at surface
    114126!
    115     INCLUDE "YOMCST.h"
    116127    INCLUDE "dimpft.h"
    117128    INCLUDE "compbl.h"
    … …  
    242253       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
    243254!ym          ALLOCATE(albedo_keep(klon))
    244 !ym bizarre que non alloué en knon precedement
     255!ym bizarre que non allou� en knon precedement
    245256          ALLOCATE(albedo_keep(knon))
    246257          ALLOCATE(zlev(knon))

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90

    r4894 r5274  
    5757    USE time_phylmdz_mod, ONLY: itau_phy
    5858#endif
     59    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     60          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     61          , R_ecc, R_peri, R_incl                                      &
     62          , RA, RG, R1SA                                         &
     63          , RSIGMA                                                     &
     64          , R, RMD, RMV, RD, RV, RCPD                    &
     65          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     66          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     67          , RCW, RCS                                                 &
     68          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     69          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     70          , RALPD, RBETD, RGAMD
    5971!   
    6072! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    109121!   qsurf        air moisture at surface
    110122!
    111     INCLUDE "YOMCST.h"
    112123    INCLUDE "dimpft.h"
    113124!
    … …  
    247258       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
    248259!ym          ALLOCATE(albedo_keep(klon))
    249 !ym bizarre que non alloué en knon precedement
     260!ym bizarre que non allou� en knon precedement
    250261          ALLOCATE(albedo_keep(knon))
    251262          ALLOCATE(zlev(knon))

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90

    r4894 r5274  
    106106    USE time_phylmdz_mod, ONLY: itau_phy
    107107#endif
    108     IMPLICIT NONE
    109 
    110     INCLUDE "YOMCST.h"
     108    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     109          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     110          , R_ecc, R_peri, R_incl                                      &
     111          , RA, RG, R1SA                                         &
     112          , RSIGMA                                                     &
     113          , R, RMD, RMV, RD, RV, RCPD                    &
     114          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     115          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     116          , RCW, RCS                                                 &
     117          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     118          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     119          , RALPD, RBETD, RGAMD
     120IMPLICIT NONE
     121
     122
    111123    INCLUDE "dimpft.h" 
    112124!

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

    r4894 r5274  
    5656    USE time_phylmdz_mod, ONLY: itau_phy
    5757#endif
     58    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     59          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     60          , R_ecc, R_peri, R_incl                                      &
     61          , RA, RG, R1SA                                         &
     62          , RSIGMA                                                     &
     63          , R, RMD, RMV, RD, RV, RCPD                    &
     64          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     65          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     66          , RCW, RCS                                                 &
     67          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     68          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     69          , RALPD, RBETD, RGAMD
    5870!   
    5971! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    109121!   qsurf        air moisture at surface
    110122!
    111     INCLUDE "YOMCST.h"
    112123    INCLUDE "dimpft.h"
    113124
    … …  
    233244       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
    234245!ym          ALLOCATE(albedo_keep(klon))
    235 !ym bizarre que non alloué en knon precedement
     246!ym bizarre que non allou� en knon precedement
    236247          ALLOCATE(albedo_keep(knon))
    237248          ALLOCATE(zlev(knon))

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90

    r4894 r5274  
    5858    USE time_phylmdz_mod, ONLY: itau_phy
    5959#endif
     60    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     61          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     62          , R_ecc, R_peri, R_incl                                      &
     63          , RA, RG, R1SA                                         &
     64          , RSIGMA                                                     &
     65          , R, RMD, RMV, RD, RV, RCPD                    &
     66          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     67          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     68          , RCW, RCS                                                 &
     69          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     70          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     71          , RALPD, RBETD, RGAMD
    6072!   
    6173! Cette routine sert d'interface entre le modele atmospherique et le
    … …  
    111123!   qsurf        air moisture at surface
    112124!
    113     INCLUDE "YOMCST.h"
    114     INCLUDE "dimpft.h" 
     125    INCLUDE "dimpft.h"
    115126    INCLUDE "compbl.h"
    116127!
    … …  
    237248       IF ( .NOT. ALLOCATED(albedo_keep)) THEN
    238249!ym          ALLOCATE(albedo_keep(klon))
    239 !ym bizarre que non alloué en knon precedement
     250!ym bizarre que non allou� en knon precedement
    240251          ALLOCATE(albedo_keep(knon))
    241252          ALLOCATE(zlev(knon))

  • LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

    r5273 r5274  
    4949 
    5050!FC
    51     USE ioipsl_getin_p_mod, ONLY : getin_p
     51    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     52          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     53          , R_ecc, R_peri, R_incl                                      &
     54          , RA, RG, R1SA                                         &
     55          , RSIGMA                                                     &
     56          , R, RMD, RMV, RD, RV, RCPD                    &
     57          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     58          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     59          , RCW, RCS                                                 &
     60          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     61          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     62          , RALPD, RBETD, RGAMD
     63USE ioipsl_getin_p_mod, ONLY : getin_p
    5264    USE lmdz_blowing_snow_ini, ONLY : c_esalt_bs, zeta_bs, pbst_bs, prt_bs, rhoice_bs, rhohard_bs
    5365    USE lmdz_blowing_snow_ini, ONLY : rhofresh_bs, tau_eqsalt_bs, tau_dens0_bs, tau_densmin_bs
    … …  
    5971
    6072!    INCLUDE "indicesol.h"
    61     INCLUDE "YOMCST.h"
     73
    6274    INCLUDE "clesphys.h"
    6375

  • LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

    r5022 r5274  
    4343#endif
    4444#endif
    45     USE limit_read_mod
     45    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     46          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     47          , R_ecc, R_peri, R_incl                                      &
     48          , RA, RG, R1SA                                         &
     49          , RSIGMA                                                     &
     50          , R, RMD, RMV, RD, RV, RCPD                    &
     51          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     52          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     53          , RCW, RCS                                                 &
     54          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     55          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     56          , RALPD, RBETD, RGAMD
     57USE limit_read_mod
    4658    USE config_ocean_skin_m, ONLY: activate_ocean_skin
    4759    !
    48     ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 
    49     ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 
    50     ! done in here because they are identical for the different modes of ocean. 
    51 
    52 
    53     INCLUDE "YOMCST.h"
     60    ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force,
     61    ! slab or couple). The calculations of albedo and rugosity for the ocean surface are
     62    ! done in here because they are identical for the different modes of ocean.
     63
     64
     65
    5466
    5567    include "clesphys.h"
    … …  
    142154
    143155    REAL, intent(out):: tkt(:) ! (knon)
    144     ! épaisseur (m) de la couche de diffusion thermique (microlayer)
     156    ! �paisseur (m) de la couche de diffusion thermique (microlayer)
    145157    ! cool skin thickness
    146158
    147159    REAL, intent(out):: tks(:) ! (knon)
    148     ! épaisseur (m) de la couche de diffusion de masse (microlayer)
     160    ! �paisseur (m) de la couche de diffusion de masse (microlayer)
    149161
    150162    REAL, intent(out):: taur(:) ! (knon)

  • LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90

    r5273 r5274  
    3737  USE infotrac_phy, ONLY : ntiso,niso
    3838#endif
    39   USE dimsoil_mod_h, ONLY: nsoilmx
    40 
    41 !
    42 ! This subroutine will make a call to ocean_XXX_ice according to the ocean mode (force,
     39  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     40          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     41          , R_ecc, R_peri, R_incl                                      &
     42          , RA, RG, R1SA                                         &
     43          , RSIGMA                                                     &
     44          , R, RMD, RMV, RD, RV, RCPD                    &
     45          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     46          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     47          , RCW, RCS                                                 &
     48          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     49          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     50          , RALPD, RBETD, RGAMD
     51USE dimsoil_mod_h, ONLY: nsoilmx
     52
     53!
     54! This subroutine will make a call to ocean_XXX_ice according to the ocean mode (force,
    4355! slab or couple). The calculation of rugosity for the sea-ice surface is also done
    4456! in here because it is the same calculation for the different modes of ocean.
    … …  
    4658    INCLUDE "clesphys.h"
    4759
    48     INCLUDE "YOMCST.h"
     60
    4961    ! for rd and retv
    5062

  • LMDZ6/trunk/libf/phylmd/sw_aeroAR4.f90

    r5268 r5274  
    2424  USE print_control_mod, ONLY: lunout
    2525  USE aero_mod, ONLY : naero_grp
    26   IMPLICIT NONE
    27 
    28   INCLUDE "YOMCST.h"
     26  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     27          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     28          , R_ecc, R_peri, R_incl                                      &
     29          , RA, RG, R1SA                                         &
     30          , RSIGMA                                                     &
     31          , R, RMD, RMV, RD, RV, RCPD                    &
     32          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     33          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     34          , RCW, RCS                                                 &
     35          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     36          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     37          , RALPD, RBETD, RGAMD
     38IMPLICIT NONE
     39
     40
    2941  INCLUDE "clesphys.h"
    3042  !

  • LMDZ6/trunk/libf/phylmd/tend_to_tke.f90

    r5268 r5274  
    3737 USE indice_sol_mod, ONLY: nbsrf
    3838
     39USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     40          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     41          , R_ecc, R_peri, R_incl                                      &
     42          , RA, RG, R1SA                                         &
     43          , RSIGMA                                                     &
     44          , R, RMD, RMV, RD, RV, RCPD                    &
     45          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     46          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     47          , RCW, RCS                                                 &
     48          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     49          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     50          , RALPD, RBETD, RGAMD
    3951IMPLICIT NONE
    40 INCLUDE "YOMCST.h"
     52
    4153
    4254! Declarations

  • LMDZ6/trunk/libf/phylmd/tilft43.f90

    r5268 r5274  
    33
    44SUBROUTINE tlift43(p, t, q, qs, gz, icb, nk, tvp, tpk, clw, nd, nl, kk)
     5  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     7          , R_ecc, R_peri, R_incl                                      &
     8          , RA, RG, R1SA                                         &
     9          , RSIGMA                                                     &
     10          , R, RMD, RMV, RD, RV, RCPD                    &
     11          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     12          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     13          , RCW, RCS                                                 &
     14          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     15          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     16          , RALPD, RBETD, RGAMD
    517  IMPLICIT NONE
    618  REAL gz(nd), tpk(nd), clw(nd), p(nd)
    … …  
    921  REAL cpd, cpv,  cl, g, rowl, gravity, cpvmcl, eps, epsi
    1022  REAL ah0, cpp, cpinv, tg, qg, alv, s, ahg, tc, denom, es
    11   INTEGER i, nst, nsb, j 
     23  INTEGER i, nst, nsb, j
    1224  ! ***   ASSIGN VALUES OF THERMODYNAMIC CONSTANTS     ***
    1325
    … …  
    2234  ! !      ROWL=1000.0
    2335  ! ajouts:
    24   include "YOMCST.h"
    2536  cpd = rcpd
    2637  cpv = rcpv

  • LMDZ6/trunk/libf/phylmd/time_phylmdz_mod.f90

    r5268 r5274  
    3838  USE ioipsl_getin_p_mod, ONLY : getin_p
    3939  USE phys_cal_mod, ONLY: phys_cal_init
    40   IMPLICIT NONE
    41   INCLUDE 'YOMCST.h'
    42     INTEGER, INTENT(IN) :: annee_ref_ 
    43     INTEGER, INTENT(IN) :: day_ref_   
    44     INTEGER, INTENT(IN) :: day_ini_   
    45     REAL,    INTENT(IN) :: start_time_
    46     INTEGER, INTENT(IN) :: ndays_     
    47     REAL,    INTENT(IN) :: pdtphys_   
    48    
     40  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     41          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     42          , R_ecc, R_peri, R_incl                                      &
     43          , RA, RG, R1SA                                         &
     44          , RSIGMA                                                     &
     45          , R, RMD, RMV, RD, RV, RCPD                    &
     46          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     47          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     48          , RCW, RCS                                                 &
     49          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     50          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     51          , RALPD, RBETD, RGAMD
     52IMPLICIT NONE
     53
     54    INTEGER, INTENT(IN) :: annee_ref_
     55    INTEGER, INTENT(IN) :: day_ref_
     56    INTEGER, INTENT(IN) :: day_ini_
     57    REAL,    INTENT(IN) :: start_time_
     58    INTEGER, INTENT(IN) :: ndays_
     59    REAL,    INTENT(IN) :: pdtphys_
     60
    4961    annee_ref    = annee_ref_
    5062    day_ref      = day_ref_
    … …  
    5365    ndays        = ndays_
    5466    pdtphys      = pdtphys_
    55    
     67
    5668    ! Initialize module variable not inherited from dynamics
    5769    day_step_phy = NINT(rday/pdtphys)
    5870    day_end  = day_ini + ndays
    59  
     71
    6072    raz_date = 0
    6173    CALL getin_p('raz_date', raz_date)
    6274
    6375    current_time=0.
    64    
     76
    6577    CALL phys_cal_init(annee_ref,day_ref)
    66    
     78
    6779  END SUBROUTINE init_time
    6880
    … …  
    7284    itau_phy=itau_phy_
    7385    IF (raz_date==1) itau_phy=0
    74    
     86
    7587    itaufin_phy=itau_phy+NINT(ndays/pdtphys)
    76    
     88
    7789  END SUBROUTINE init_iteration
    7890
    … …  
    8294  USE phys_cal_mod, ONLY: phys_cal_update
    8395  USE print_control_mod, ONLY: lunout
     96  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     97        , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     98        , R_ecc, R_peri, R_incl                                      &
     99        , RA, RG, R1SA                                         &
     100        , RSIGMA                                                     &
     101        , R, RMD, RMV, RD, RV, RCPD                    &
     102        , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     103        , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     104        , RCW, RCS                                                 &
     105        , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     106        , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     107        , RALPD, RBETD, RGAMD
    84108  IMPLICIT NONE
    85   INCLUDE 'YOMCST.h'
     109
    86110  REAL,INTENT(IN) :: pdtphys_
    87111  REAL            :: julian_date

  • LMDZ6/trunk/libf/phylmd/tlift.f90

    r5268 r5274  
    44SUBROUTINE tlift(p, t, rr, rs, gz, plcl, icb, nk, tvp, tpk, clw, nd, nl, &
    55    dtvpdt1, dtvpdq1)
     6  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     7          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     8          , R_ecc, R_peri, R_incl                                      &
     9          , RA, RG, R1SA                                         &
     10          , RSIGMA                                                     &
     11          , R, RMD, RMV, RD, RV, RCPD                    &
     12          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     13          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     14          , RCW, RCS                                                 &
     15          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     16          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     17          , RALPD, RBETD, RGAMD
    618  IMPLICIT NONE
    719  ! Argument NK ajoute (jyg) = Niveau de depart de la
    … …  
    5163  ! on utilise les constantes thermo du Centre Europeen: (SB)
    5264
    53   include "YOMCST.h"
    5465  gravity = rg !sb: Pr que gravite ne devienne pas humidite!
    5566

  • LMDZ6/trunk/libf/phylmd/tracco2i_mod.f90

    r5268 r5274  
    5050    USE indice_sol_mod, ONLY: nbsrf, is_ter, is_lic, is_oce, is_sic
    5151
    52     IMPLICIT NONE
     52    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     53          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     54          , R_ecc, R_peri, R_incl                                      &
     55          , RA, RG, R1SA                                         &
     56          , RSIGMA                                                     &
     57          , R, RMD, RMV, RD, RV, RCPD                    &
     58          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     59          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     60          , RCW, RCS                                                 &
     61          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     62          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     63          , RALPD, RBETD, RGAMD
     64IMPLICIT NONE
    5365
    5466    INCLUDE "clesphys.h"
    55     INCLUDE "YOMCST.h"
     67
    5668
    5769! Input argument
    … …  
    355367    USE carbon_cycle_mod, ONLY : fco2_ff, fco2_bb, fco2_land, fco2_ocean
    356368
    357     IMPLICIT NONE
    358 
    359     INCLUDE "YOMCST.h"
     369    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     370          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     371          , R_ecc, R_peri, R_incl                                      &
     372          , RA, RG, R1SA                                         &
     373          , RSIGMA                                                     &
     374          , R, RMD, RMV, RD, RV, RCPD                    &
     375          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     376          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     377          , RCW, RCS                                                 &
     378          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     379          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     380          , RALPD, RBETD, RGAMD
     381IMPLICIT NONE
     382
     383
    360384    LOGICAL,INTENT(IN) :: debutphy
    361385

  • LMDZ6/trunk/libf/phylmd/traclmdz_mod.f90

    r5268 r5274  
    309309       tr_seri, source, d_tr_cl,d_tr_dec, zmasse)               !RomP
    310310   
    311     USE dimphy
     311    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     312          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     313          , R_ecc, R_peri, R_incl                                      &
     314          , RA, RG, R1SA                                         &
     315          , RSIGMA                                                     &
     316          , R, RMD, RMV, RD, RV, RCPD                    &
     317          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     318          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     319          , RCW, RCS                                                 &
     320          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     321          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     322          , RALPD, RBETD, RGAMD
     323USE dimphy
    312324    USE infotrac_phy, ONLY: nbtr, pbl_flg
    313325    USE strings_mod,  ONLY: int2str
    … …  
    316328    USE indice_sol_mod
    317329
    318     INCLUDE "YOMCST.h"
     330
    319331
    320332!==========================================================================

  • LMDZ6/trunk/libf/phylmd/transp.f90

    r5268 r5274  
    66
    77  USE dimphy
    8   IMPLICIT NONE
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
    921  ! ======================================================================
    1022  ! Auteur(s): Z.X.Li (LMD/CNRS)
    … …  
    1325  ! ======================================================================
    1426
    15   include "YOMCST.h"
     27
    1628
    1729  !--inputs

  • LMDZ6/trunk/libf/phylmd/transp_lay.f90

    r5268 r5274  
    66
    77  USE dimphy
    8   IMPLICIT NONE
     8  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     9          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     10          , R_ecc, R_peri, R_incl                                      &
     11          , RA, RG, R1SA                                         &
     12          , RSIGMA                                                     &
     13          , R, RMD, RMV, RD, RV, RCPD                    &
     14          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     15          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     16          , RCW, RCS                                                 &
     17          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     18          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     19          , RALPD, RBETD, RGAMD
     20IMPLICIT NONE
    921  ! ======================================================================
    1022  ! Auteur(s): Z.X.Li (LMD/CNRS)
    … …  
    1325  ! ======================================================================
    1426
    15   include "YOMCST.h"
     27
    1628
    1729  REAL paprs(klon, klev+1), tsol(klon)

  • LMDZ6/trunk/libf/phylmd/tropopause_m.f90

    r5268 r5274  
    11MODULE tropopause_m
    22
    3   IMPLICIT NONE
     3  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     4          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     5          , R_ecc, R_peri, R_incl                                      &
     6          , RA, RG, R1SA                                         &
     7          , RSIGMA                                                     &
     8          , R, RMD, RMV, RD, RV, RCPD                    &
     9          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     10          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     11          , RCW, RCS                                                 &
     12          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     13          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     14          , RALPD, RBETD, RGAMD
     15IMPLICIT NONE
    416  PRIVATE
    517  PUBLIC :: dyn_tropopause
    … …  
    3244!-------------------------------------------------------------------------------
    3345! Local variables:
    34   include "YOMCST.h"
     46
    3547  REAL, PARAMETER :: DynPTrMin =8.E+3 !--- Thresholds for minimum and maximum
    3648  REAL, PARAMETER :: DynPTrMax =4.E+4 !    dynamical tropopause pressure (Pa).

  • LMDZ6/trunk/libf/phylmd/wx_pbl_mod.f90

    r5268 r5274  
    3131!
    3232
    33     USE wx_pbl_var_mod
     33    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     34          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     35          , R_ecc, R_peri, R_incl                                      &
     36          , RA, RG, R1SA                                         &
     37          , RSIGMA                                                     &
     38          , R, RMD, RMV, RD, RV, RCPD                    &
     39          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     40          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     41          , RCW, RCS                                                 &
     42          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     43          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     44          , RALPD, RBETD, RGAMD
     45USE wx_pbl_var_mod
    3446
    3547    USE print_control_mod, ONLY: prt_level,lunout
    3648    USE indice_sol_mod, ONLY: is_oce
    3749!
    38     INCLUDE "YOMCST.h"
     50
    3951    INCLUDE "FCTTRE.h"
    4052    INCLUDE "YOETHF.h"
    … …  
    168180!
    169181
    170     USE wx_pbl_var_mod
     182    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     183          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     184          , R_ecc, R_peri, R_incl                                      &
     185          , RA, RG, R1SA                                         &
     186          , RSIGMA                                                     &
     187          , R, RMD, RMV, RD, RV, RCPD                    &
     188          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     189          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     190          , RCW, RCS                                                 &
     191          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     192          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     193          , RALPD, RBETD, RGAMD
     194USE wx_pbl_var_mod
    171195
    172196    USE print_control_mod, ONLY: prt_level,lunout
    173197!
    174     INCLUDE "YOMCST.h"
     198
    175199    INCLUDE "FCTTRE.h"
    176200    INCLUDE "YOETHF.h"
    … …  
    568592!
    569593
    570     USE wx_pbl_var_mod
     594    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     595          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     596          , R_ecc, R_peri, R_incl                                      &
     597          , RA, RG, R1SA                                         &
     598          , RSIGMA                                                     &
     599          , R, RMD, RMV, RD, RV, RCPD                    &
     600          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     601          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     602          , RCW, RCS                                                 &
     603          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     604          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     605          , RALPD, RBETD, RGAMD
     606USE wx_pbl_var_mod
    571607
    572608    USE print_control_mod, ONLY: prt_level,lunout
    573609    USE indice_sol_mod, ONLY: is_oce
    574610!
    575     INCLUDE "YOMCST.h"
     611
    576612!
    577613    INTEGER,                      INTENT(IN)        :: knon    ! number of grid cells
    … …  
    723759!
    724760
    725     USE wx_pbl_var_mod
     761    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     762          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     763          , R_ecc, R_peri, R_incl                                      &
     764          , RA, RG, R1SA                                         &
     765          , RSIGMA                                                     &
     766          , R, RMD, RMV, RD, RV, RCPD                    &
     767          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     768          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     769          , RCW, RCS                                                 &
     770          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     771          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     772          , RALPD, RBETD, RGAMD
     773USE wx_pbl_var_mod
    726774
    727775    USE print_control_mod, ONLY: prt_level,lunout
    728776!
    729     INCLUDE "YOMCST.h"
     777
    730778    INCLUDE "FCTTRE.h"
    731779    INCLUDE "YOETHF.h"
    … …  
    9671015!
    9681016
    969     USE wx_pbl_var_mod
     1017    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     1018          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     1019          , R_ecc, R_peri, R_incl                                      &
     1020          , RA, RG, R1SA                                         &
     1021          , RSIGMA                                                     &
     1022          , R, RMD, RMV, RD, RV, RCPD                    &
     1023          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     1024          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     1025          , RCW, RCS                                                 &
     1026          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     1027          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     1028          , RALPD, RBETD, RGAMD
     1029USE wx_pbl_var_mod
    9701030
    9711031    USE print_control_mod, ONLY: prt_level,lunout
    9721032!
    973     INCLUDE "YOMCST.h"
     1033
    9741034    INCLUDE "FCTTRE.h"
    9751035    INCLUDE "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/wx_pbl_var_mod.f90

    r5268 r5274  
    315315                                 )
    316316!
    317     USE print_control_mod, ONLY: prt_level,lunout
     317    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     318          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     319          , R_ecc, R_peri, R_incl                                      &
     320          , RA, RG, R1SA                                         &
     321          , RSIGMA                                                     &
     322          , R, RMD, RMV, RD, RV, RCPD                    &
     323          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     324          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     325          , RCW, RCS                                                 &
     326          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     327          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     328          , RALPD, RBETD, RGAMD
     329USE print_control_mod, ONLY: prt_level,lunout
    318330    USE indice_sol_mod, ONLY: is_oce
    319331!
    320     INCLUDE "YOMCST.h"
     332
    321333    INCLUDE "FCTTRE.h"
    322334    INCLUDE "YOETHF.h"

  • LMDZ6/trunk/libf/phylmd/yamada_c.F90

    r4593 r5274  
    99      USE ioipsl_getin_p_mod, ONLY : getin_p
    1010
    11       IMPLICIT NONE
    12       INCLUDE "YOMCST.h"
     11      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     12          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
     13          , R_ecc, R_peri, R_incl                                      &
     14          , RA, RG, R1SA                                         &
     15          , RSIGMA                                                     &
     16          , R, RMD, RMV, RD, RV, RCPD                    &
     17          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
     18          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
     19          , RCW, RCS                                                 &
     20          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
     21          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
     22          , RALPD, RBETD, RGAMD
     23IMPLICIT NONE
     24
    1325!
    1426! timestep : pas de temps
Note: See TracChangeset for help on using the changeset viewer.