Ignore:
Timestamp:
Oct 28, 2024, 2:33:29 PM (9 months ago)
Author:
abarral
Message:

As discussed internally, remove generic ONLY: ... for new _mod_h modules

Location:
LMDZ6/trunk/libf/phylmd
Files:
176 edited

Legend:

Unmodified
Added
Removed

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

    r5274 r5285  
    1111  USE infotrac
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     13USE yomcst_mod_h
    2514IMPLICIT none
    2615  !

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

    r5274 r5285  
    33  USE dimphy
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     5USE yomcst_mod_h
    176IMPLICIT NONE
    187  !=====================================================================

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

    r5284 r5285  
    33  USE dimphy
    44  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     5USE yomcst_mod_h
    176  USE yoethf_mod_h
    187IMPLICIT NONE

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

    r5274 r5285  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    12           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     11USE paramet_mod_h
     12USE yomcst_mod_h
    2513IMPLICIT NONE
    2614

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

    r5274 r5285  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    12           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     11USE paramet_mod_h
     12USE yomcst_mod_h
    2513IMPLICIT NONE
    2614

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

    r5274 r5285  
    22  USE dimphy
    33USE geometry_mod , ONLY:cell_area
    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
     4  USE yomcst_mod_h
    165IMPLICIT NONE
    176

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

    r5274 r5285  
    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
     4  USE yomcst_mod_h
    165  USE dimphy
    176  USE dimensions_mod, ONLY: iim, jjm, llm, ndm

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

    r5274 r5285  
    66
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     8USE yomcst_mod_h
    209IMPLICIT NONE
    2110  !

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

    r5274 r5285  
    3232   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    3333  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    34 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    35           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     34USE paramet_mod_h
     35USE yomcst_mod_h
    4836IMPLICIT NONE
    4937

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

    r5274 r5285  
    1111
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    14           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     13USE paramet_mod_h
     14USE yomcst_mod_h
    2715IMPLICIT NONE
    2816

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

    r5274 r5285  
    1616   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    19           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    20 USE 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
     18USE paramet_mod_h
     19USE yomcst_mod_h
    3220IMPLICIT NONE
    3321

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

    r5274 r5285  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     11USE yomcst_mod_h
    2312IMPLICIT NONE
    2413  !

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

    r5274 r5285  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    13           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     12USE paramet_mod_h
     13USE yomcst_mod_h
    2614IMPLICIT NONE
    2715

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

    r5274 r5285  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    13           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     12USE paramet_mod_h
     13USE yomcst_mod_h
    2614IMPLICIT NONE
    2715

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

    r5274 r5285  
    44  USE dimphy
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     6USE yomcst_mod_h
    187IMPLICIT NONE
    198  !=====================================================================

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

    r5274 r5285  
    44  USE infotrac
    55  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     6USE yomcst_mod_h
    187IMPLICIT NONE
    198  !

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

    r5274 r5285  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     16USE yomcst_mod_h
    2817IMPLICIT NONE
    2918!=====================================================================

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

    r5274 r5285  
    1515  USE iophy
    1616  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     17USE yomcst_mod_h
    2918IMPLICIT NONE
    3019!=====================================================================

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

    r5274 r5285  
    66  USE indice_sol_mod
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     8USE yomcst_mod_h
    209IMPLICIT NONE
    2110  !

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

    r5284 r5285  
    395395
    396396    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    397 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    398           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    399           , R_ecc, R_peri, R_incl                                      &
    400           , RA, RG, R1SA                                         &
    401           , RSIGMA                                                     &
    402           , R, RMD, RMV, RD, RV, RCPD                    &
    403           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    404           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    405           , RCW, RCS                                                 &
    406           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    407           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    408           , RALPD, RBETD, RGAMD
     397USE yomcst_mod_h
    409398    USE clesphys_mod_h
    410399    USE iniprint_mod_h

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

    r5284 r5285  
    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
     796      USE yomcst_mod_h
    808797      USE mod_grid_phy_lmdz
    809798      USE mod_phys_lmdz_para
    … …  
    820809                              mth_cur, phys_cal_update
    821810      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    822       USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    823           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     811      USE paramet_mod_h
    824812      USE alpale_mod
    825813      USE yoethf_mod_h

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

    r5274 r5285  
    2121   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    2222  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    23 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    24           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     23USE paramet_mod_h
     24USE yomcst_mod_h
    3725IMPLICIT NONE
    3826

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

    r5272 r5285  
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    8           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     7USE paramet_mod_h
    98IMPLICIT NONE
    109  !

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

    r5272 r5285  
    2424
    2525  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    26 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    27           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     26USE paramet_mod_h
    2827IMPLICIT NONE
    2928

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

    r5272 r5285  
    1212       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    1313       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    15           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     14USE paramet_mod_h
    1615IMPLICIT NONE
    1716

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

    r5272 r5285  
    66   ! USE write_field_phy
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    9           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     8USE paramet_mod_h
    109IMPLICIT NONE
    1110

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

    r5274 r5285  
    66  USE dimphy
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     8USE yomcst_mod_h
    209IMPLICIT NONE
    2110  !

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

    r5274 r5285  
    1111   USE infotrac
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    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
     13USE yomcst_mod_h
    2514IMPLICIT NONE
    2615  !

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

    r5274 r5285  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    12           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    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
     11USE paramet_mod_h
     12USE yomcst_mod_h
    2513IMPLICIT NONE
    2614

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

    r5282 r5285  
    1414
    1515  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    16 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    17           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     16USE paramet_mod_h
    1817IMPLICIT NONE
    1918

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

    r5274 r5285  
    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
     25  USE yomcst_mod_h
    3726  USE dimphy, ONLY : klon,klev
    3827  USE aerophys

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

    r5274 r5285  
    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
     10  USE yomcst_mod_h
    2211  USE aerophys
    2312  USE infotrac_phy
    … …  
    342331  !
    343332
    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
     333  USE yomcst_mod_h
    356334  USE aerophys
    357335

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

    r5274 r5285  
    214214  SUBROUTINE strataer_ponde_init()
    215215
    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
     216    USE yomcst_mod_h
    228217USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
    229218    USE dimphy, ONLY: klon

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

    r5282 r5285  
    2222
    2323!  ONLINE:
    24     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    25           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    26           , R_ecc, R_peri, R_incl                                      &
    27           , RA, RG, R1SA                                         &
    28           , RSIGMA                                                     &
    29           , R, RMD, RMV, RD, RV, RCPD                    &
    30           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    31           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    32           , RCW, RCS                                                 &
    33           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    34           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    35           , RALPD, RBETD, RGAMD
     24    USE yomcst_mod_h
    3625use dimphy, only: klon, klev
    3726    use assert_m, only: assert

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

    r5282 r5285  
    109109USE 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 &
    110110  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    111 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    112           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    113           , R_ecc, R_peri, R_incl                                      &
    114           , RA, RG, R1SA                                         &
    115           , RSIGMA                                                     &
    116           , R, RMD, RMV, RD, RV, RCPD                    &
    117           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    118           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    119           , RCW, RCS                                                 &
    120           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    121           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    122           , RALPD, RBETD, RGAMD
     111USE yomcst_mod_h
    123112IMPLICIT none
    124113
    … …  
    522511USE 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 &
    523512  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
    524 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    525           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    526           , R_ecc, R_peri, R_incl                                      &
    527           , RA, RG, R1SA                                         &
    528           , RSIGMA                                                     &
    529           , R, RMD, RMV, RD, RV, RCPD                    &
    530           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    531           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    532           , RCW, RCS                                                 &
    533           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    534           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    535           , RALPD, RBETD, RGAMD
     513USE yomcst_mod_h
    536514IMPLICIT none
    537515
    … …  
    684662                    zh_qw_col, zh_ql_col, zh_qs_col, zh_qbs_col, zh_col)
    685663
    686 USE 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
     664USE yomcst_mod_h
    698665IMPLICIT none
    699666
    … …  
    776743   &  , rain_lsc, snow_lsc
    777744USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd
    778 USE 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
     745USE yomcst_mod_h
    790746IMPLICIT none
    791747

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

    r5274 r5285  
    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
     8  USE yomcst_mod_h
    209IMPLICIT NONE
    2110

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

    r5274 r5285  
    1717  !    a partir d'une sous-routine de Johannes Quaas pour les sulfates
    1818  !
    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
     19  USE yomcst_mod_h
    3120IMPLICIT NONE
    3221

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

    r5274 r5285  
    4949  ! Chemistry and Physics Discussions., 6, pp 8383-8419, 2006.
    5050  !
    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
     51  USE yomcst_mod_h
    6352IMPLICIT NONE
    6453

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

    r5274 r5285  
    44SUBROUTINE ajsec(paprs, pplay, t, q, limbas, d_t, d_q)
    55  USE dimphy
    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
     6  USE yomcst_mod_h
    187IMPLICIT NONE
    198  ! ======================================================================
    … …  
    168157SUBROUTINE ajsec_convv2(paprs, pplay, t, q, d_t, d_q)
    169158  USE dimphy
    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
     159  USE yomcst_mod_h
    182160IMPLICIT NONE
    183161  ! ======================================================================
    … …  
    329307SUBROUTINE ajsec_old(paprs, pplay, t, d_t)
    330308  USE dimphy
    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
     309  USE yomcst_mod_h
    343310IMPLICIT NONE
    344311  ! ======================================================================

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

    r5282 r5285  
    33
    44  USE clesphys_mod_h
    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
     5    USE yomcst_mod_h
    176IMPLICIT NONE
    187

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

    r5274 r5285  
    66  USE mod_phys_lmdz_para
    77  USE mod_grid_phy_lmdz, only: grid_type, unstructured, regular_lonlat
    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
     8  USE yomcst_mod_h
    209IMPLICIT NONE
    2110

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

    r5284 r5285  
    77         zrh2m_cor, zqsat2m_cor)
    88
    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
     9USE yomcst_mod_h
    2110USE yoethf_mod_h
    2211IMPLICIT NONE

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

    r5284 r5285  
    2020    USE indice_sol_mod
    2121    use sens_heat_rain_m, only: sens_heat_rain
    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
     22    USE yomcst_mod_h
    3423    USE yoethf_mod_h
    3524
    … …  
    300289
    301290    USE clesphys_mod_h
    302     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    303           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    304           , R_ecc, R_peri, R_incl                                      &
    305           , RA, RG, R1SA                                         &
    306           , RSIGMA                                                     &
    307           , R, RMD, RMV, RD, RV, RCPD                    &
    308           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    309           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    310           , RCW, RCS                                                 &
    311           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    312           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    313           , RALPD, RBETD, RGAMD
     291    USE yomcst_mod_h
    314292USE dimphy
    315293

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

    r5274 r5285  
    3030  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    3131  USE lmdz_wake, ONLY : wake
    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
     32  USE yomcst_mod_h
    4433IMPLICIT NONE
    4534  ! ======================================================================

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

    r5284 r5285  
    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
     31  USE yomcst_mod_h
    4332  USE clesphys_mod_h
    4433  USE yoethf_mod_h

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

    r5282 r5285  
    2727!
    2828
    29     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    30           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    31           , R_ecc, R_peri, R_incl                                      &
    32           , RA, RG, R1SA                                         &
    33           , RSIGMA                                                     &
    34           , R, RMD, RMV, RD, RV, RCPD                    &
    35           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    36           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    37           , RCW, RCS                                                 &
    38           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    39           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    40           , RALPD, RBETD, RGAMD
     29    USE yomcst_mod_h
    4130USE dimphy
    4231    USE surface_data, ONLY : type_ocean,version_ocean

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

    r5284 r5285  
    1111  USE indice_sol_mod
    1212
    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
     13  USE yomcst_mod_h
    2514  USE yoethf_mod_h
    2615IMPLICIT NONE

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

    r5274 r5285  
    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
     5  USE yomcst_mod_h
    176IMPLICIT NONE
    187  ! ***************************************************************

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

    r5278 r5285  
    4444! for the quantity X=[Q,H] in equation X(k) = C(k) + D(k)*X(k-1), where k is
    4545! the index of the vertical layer.
    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
     46   USE yomcst_mod_h
    5847! Input arguments
    5948!****************************************************************************************
    … …  
    262251! where X is H or Q, and k the vertical level k=1,klev
    263252!
    264 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    265           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    266           , R_ecc, R_peri, R_incl                                      &
    267           , RA, RG, R1SA                                         &
    268           , RSIGMA                                                     &
    269           , R, RMD, RMV, RD, RV, RCPD                    &
    270           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    271           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    272           , RCW, RCS                                                 &
    273           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    274           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    275           , RALPD, RBETD, RGAMD! Input arguments
     253USE yomcst_mod_h! Input arguments
    276254!****************************************************************************************
    277255    INTEGER, INTENT(IN)                      :: knon
    … …  
    349327! C and D are known from before and k is index of the vertical layer.
    350328!   
    351 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    352           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    353           , R_ecc, R_peri, R_incl                                      &
    354           , RA, RG, R1SA                                         &
    355           , RSIGMA                                                     &
    356           , R, RMD, RMV, RD, RV, RCPD                    &
    357           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    358           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    359           , RCW, RCS                                                 &
    360           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    361           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    362           , RALPD, RBETD, RGAMD
     329USE yomcst_mod_h
    363330! Input arguments
    364331!****************************************************************************************

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

    r5274 r5285  
    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 USE 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
     34USE yomcst_mod_h
    4635! Input arguments
    4736!****************************************************************************************
    … …  
    193182! Calculate the coefficients C and D in : X(k) = C(k) + D(k)*X(k-1)
    194183! where X is QQBS, and k the vertical level k=1,klev
    195 USE 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
     184USE yomcst_mod_h
    207185! Input arguments
    208186!****************************************************************************************
    … …  
    278256! C and D are known from before and k is index of the vertical layer.
    279257!   
    280 USE 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
     258USE yomcst_mod_h
    292259! Input arguments
    293260!****************************************************************************************

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

    r5274 r5285  
    8585!
    8686!
    87 USE 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
     87USE yomcst_mod_h
    9988! Input arguments
    10089!****************************************************************************************
    … …  
    209198!
    210199! Find the coefficients C and D in fonction of alfa, K and delp
    211 USE 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
     200USE yomcst_mod_h
    223201! Input arguments
    224202!****************************************************************************************
    … …  
    294272!
    295273!****************************************************************************************
    296 USE 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
     274USE yomcst_mod_h
    308275! Input arguments
    309276!****************************************************************************************

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

    r5274 r5285  
    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
     8  USE yomcst_mod_h
    209  IMPLICIT NONE
    2110!======================================================================

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

    r5274 r5285  
    1010  USE traclmdz_mod, ONLY : id_rn, id_pb
    1111  USE indice_sol_mod
    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
     12  USE yomcst_mod_h
    2413  IMPLICIT NONE
    2514!======================================================================

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

    r5282 r5285  
    102102!USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
    103103!USE PARKIND1  ,ONLY : JPRB
    104 USE 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
     104USE yomcst_mod_h
    116105IMPLICIT NONE
    117106!

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

    r5284 r5285  
    2020    USE indice_sol_mod
    2121    USE print_control_mod, ONLY: prt_level, lunout
    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
     22    USE yomcst_mod_h
    3423    USE yoethf_mod_h
    3524!
    … …  
    218207       pcfm, pcfh)
    219208   
    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
     209    USE yomcst_mod_h
    232210    USE dimphy
    233211    USE indice_sol_mod
    … …  
    519497       pcfm, pcfh)
    520498
    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
     499    USE yomcst_mod_h
    533500USE dimphy
    534501    USE indice_sol_mod

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

    r5284 r5285  
    1010      USE indice_sol_mod
    1111
    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
     12      USE yomcst_mod_h
    2413      USE yoethf_mod_h
    2514IMPLICIT none

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

    r5274 r5285  
    33
    44  USE dimphy
    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
     5  USE yomcst_mod_h
    176IMPLICIT NONE
    187

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

    r5284 r5285  
    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
     8  USE yomcst_mod_h
    209  USE yoethf_mod_h
    2110IMPLICIT NONE
    … …  
    149138SUBROUTINE cmfmca(deltat, p, dp, gz, tb, shb, cmfprt, cmfprs, cnt, cnb)
    150139  USE dimphy
    151   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    152           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    153           , R_ecc, R_peri, R_incl                                      &
    154           , RA, RG, R1SA                                         &
    155           , RSIGMA                                                     &
    156           , R, RMD, RMV, RD, RV, RCPD                    &
    157           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    158           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    159           , RCW, RCS                                                 &
    160           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    161           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    162           , RALPD, RBETD, RGAMD
     140  USE yomcst_mod_h
    163141  USE yoethf_mod_h
    164142  IMPLICIT NONE

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

    r5284 r5285  
    3535  USE phys_local_var_mod, ONLY: omega
    3636  USE print_control_mod, ONLY: prt_level, lunout
    37   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    38           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    39           , R_ecc, R_peri, R_incl                                      &
    40           , RA, RG, R1SA                                         &
    41           , RSIGMA                                                     &
    42           , R, RMD, RMV, RD, RV, RCPD                    &
    43           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    44           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    45           , RCW, RCS                                                 &
    46           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    47           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    48           , RALPD, RBETD, RGAMD
     37  USE yomcst_mod_h
    4938  USE conema3_mod_h
    5039  USE yoethf_mod_h

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

    r5284 r5285  
    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
     11  USE yomcst_mod_h
    2312  USE conema3_mod_h
    2413  USE yoethf_mod_h

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

    r5284 r5285  
    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
     11  USE yomcst_mod_h
    2312  USE yoethf_mod_h
    2413  IMPLICIT NONE

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

    r5284 r5285  
    2626USE alpale_mod
    2727    USE conema3_mod_h
    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
     28        USE yomcst_mod_h
    4029USE IOIPSL
    4130    USE surface_data

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

    r5284 r5285  
    77
    88  USE dimphy
    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
     9  USE yomcst_mod_h
    2110  USE yoethf_mod_h
    2211IMPLICIT NONE
    … …  
    219208USE yoethf_mod_h
    220209    USE dimphy
    221   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    222           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    223           , R_ecc, R_peri, R_incl                                      &
    224           , RA, RG, R1SA                                         &
    225           , RSIGMA                                                     &
    226           , R, RMD, RMV, RD, RV, RCPD                    &
    227           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    228           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    229           , RCW, RCS                                                 &
    230           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    231           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    232           , RALPD, RBETD, RGAMD
     210  USE yomcst_mod_h
    233211IMPLICIT NONE
    234212  ! ------------------------------------------------------------------
    … …  
    503481    pdmfup, pdpmel, plu, plude, klab, pen_u, pde_u, pen_d, pde_d)
    504482  USE dimphy
    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
     483  USE yomcst_mod_h
    517484  USE yoethf_mod_h
    518485IMPLICIT NONE
    … …  
    636603    klab)
    637604  USE dimphy
    638   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    639           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    640           , R_ecc, R_peri, R_incl                                      &
    641           , RA, RG, R1SA                                         &
    642           , RSIGMA                                                     &
    643           , R, RMD, RMV, RD, RV, RCPD                    &
    644           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    645           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    646           , RCW, RCS                                                 &
    647           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    648           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    649           , RALPD, RBETD, RGAMD
     605  USE yomcst_mod_h
    650606  USE yoethf_mod_h
    651607IMPLICIT NONE
    … …  
    729685USE yoethf_mod_h
    730686    USE dimphy
    731   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    732           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    733           , R_ecc, R_peri, R_incl                                      &
    734           , RA, RG, R1SA                                         &
    735           , RSIGMA                                                     &
    736           , R, RMD, RMV, RD, RV, RCPD                    &
    737           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    738           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    739           , RCW, RCS                                                 &
    740           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    741           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    742           , RALPD, RBETD, RGAMD
     687  USE yomcst_mod_h
    743688IMPLICIT NONE
    744689  ! ----------------------------------------------------------------------
    … …  
    1041986    USE dimphy
    1042987  USE print_control_mod, ONLY: prt_level
    1043   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1044           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1045           , R_ecc, R_peri, R_incl                                      &
    1046           , RA, RG, R1SA                                         &
    1047           , RSIGMA                                                     &
    1048           , R, RMD, RMV, RD, RV, RCPD                    &
    1049           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1050           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1051           , RCW, RCS                                                 &
    1052           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1053           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1054           , RALPD, RBETD, RGAMD
     988  USE yomcst_mod_h
    1055989IMPLICIT NONE
    1056990  ! ----------------------------------------------------------------------
    … …  
    12961230USE yoethf_mod_h
    12971231    USE dimphy
    1298   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1299           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1300           , R_ecc, R_peri, R_incl                                      &
    1301           , RA, RG, R1SA                                         &
    1302           , RSIGMA                                                     &
    1303           , R, RMD, RMV, RD, RV, RCPD                    &
    1304           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1305           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1306           , RCW, RCS                                                 &
    1307           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1308           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1309           , RALPD, RBETD, RGAMD
     1232  USE yomcst_mod_h
    13101233IMPLICIT NONE
    13111234  ! ----------------------------------------------------------------------
    … …  
    13701293USE yoethf_mod_h
    13711294    USE dimphy
    1372   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1373           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1374           , R_ecc, R_peri, R_incl                                      &
    1375           , RA, RG, R1SA                                         &
    1376           , RSIGMA                                                     &
    1377           , R, RMD, RMV, RD, RV, RCPD                    &
    1378           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1379           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1380           , RCW, RCS                                                 &
    1381           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1382           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1383           , RALPD, RBETD, RGAMD
     1295  USE yomcst_mod_h
    13841296IMPLICIT NONE
    13851297
    … …  
    14881400    pmfdq, pdmfdp, lddraf, pen_d, pde_d)
    14891401  USE dimphy
    1490   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1491           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1492           , R_ecc, R_peri, R_incl                                      &
    1493           , RA, RG, R1SA                                         &
    1494           , RSIGMA                                                     &
    1495           , R, RMD, RMV, RD, RV, RCPD                    &
    1496           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1497           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1498           , RCW, RCS                                                 &
    1499           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1500           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1501           , RALPD, RBETD, RGAMD
     1402  USE yomcst_mod_h
    15021403  USE yoethf_mod_h
    15031404IMPLICIT NONE
    … …  
    16131514SUBROUTINE flxadjtq(pp, pt, pq, ldflag, kcall)
    16141515  USE dimphy
    1615   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1616           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1617           , R_ecc, R_peri, R_incl                                      &
    1618           , RA, RG, R1SA                                         &
    1619           , RSIGMA                                                     &
    1620           , R, RMD, RMV, RD, RV, RCPD                    &
    1621           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1622           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1623           , RCW, RCS                                                 &
    1624           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1625           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1626           , RALPD, RBETD, RGAMD
     1516  USE yomcst_mod_h
    16271517  USE yoethf_mod_h
    16281518  IMPLICIT NONE

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

    r5284 r5285  
    55    ibas, itop)
    66  USE dimphy
    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
     7  USE yomcst_mod_h
    198  USE yoethf_mod_h
    209IMPLICIT NONE
    … …  
    10291    snow, ibas, itop)
    10392  USE dimphy
    104   USE 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
     93  USE yomcst_mod_h
    11694  USE yoethf_mod_h
    11795  IMPLICIT NONE
    … …  
    319297    d_ql, rneb, rain, snow, ibas, itop, accompli, imprim)
    320298  USE dimphy
    321   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    322           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    323           , R_ecc, R_peri, R_incl                                      &
    324           , RA, RG, R1SA                                         &
    325           , RSIGMA                                                     &
    326           , R, RMD, RMV, RD, RV, RCPD                    &
    327           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    328           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    329           , RCW, RCS                                                 &
    330           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    331           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    332           , RALPD, RBETD, RGAMD
     299  USE yomcst_mod_h
    333300  USE yoethf_mod_h
    334301IMPLICIT NONE
    … …  
    10791046    rain, snow, ibas, itop)
    10801047  USE dimphy
    1081   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1082           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1083           , R_ecc, R_peri, R_incl                                      &
    1084           , RA, RG, R1SA                                         &
    1085           , RSIGMA                                                     &
    1086           , R, RMD, RMV, RD, RV, RCPD                    &
    1087           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1088           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1089           , RCW, RCS                                                 &
    1090           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1091           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1092           , RALPD, RBETD, RGAMD
     1048  USE yomcst_mod_h
    10931049  USE yoethf_mod_h
    10941050IMPLICIT NONE
    … …  
    15981554END SUBROUTINE conkuo
    15991555SUBROUTINE kuofcl(pt, pq, pg, pp, ldcum, kcbot)
    1600   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1601           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1602           , R_ecc, R_peri, R_incl                                      &
    1603           , RA, RG, R1SA                                         &
    1604           , RSIGMA                                                     &
    1605           , R, RMD, RMV, RD, RV, RCPD                    &
    1606           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1607           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1608           , RCW, RCS                                                 &
    1609           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1610           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1611           , RALPD, RBETD, RGAMD
     1556  USE yomcst_mod_h
    16121557  USE dimphy
    16131558  USE yoethf_mod_h
    … …  
    17091654END SUBROUTINE kuofcl
    17101655SUBROUTINE adjtq(pp, pt, pq, ldflag, kcall)
    1711   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1712           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1713           , R_ecc, R_peri, R_incl                                      &
    1714           , RA, RG, R1SA                                         &
    1715           , RSIGMA                                                     &
    1716           , R, RMD, RMV, RD, RV, RCPD                    &
    1717           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1718           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1719           , RCW, RCS                                                 &
    1720           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1721           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1722           , RALPD, RBETD, RGAMD
     1656  USE yomcst_mod_h
    17231657  USE dimphy
    17241658  USE yoethf_mod_h
    … …  
    18281762    ibas, itop)
    18291763  USE dimphy
    1830   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1831           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1832           , R_ecc, R_peri, R_incl                                      &
    1833           , RA, RG, R1SA                                         &
    1834           , RSIGMA                                                     &
    1835           , R, RMD, RMV, RD, RV, RCPD                    &
    1836           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1837           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1838           , RCW, RCS                                                 &
    1839           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1840           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1841           , RALPD, RBETD, RGAMD
     1764  USE yomcst_mod_h
    18421765  USE yoethf_mod_h
    18431766IMPLICIT NONE
    … …  
    21252048    rain, snow, ibas, itop)
    21262049  USE dimphy
    2127   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2128           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2129           , R_ecc, R_peri, R_incl                                      &
    2130           , RA, RG, R1SA                                         &
    2131           , RSIGMA                                                     &
    2132           , R, RMD, RMV, RD, RV, RCPD                    &
    2133           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    2134           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    2135           , RCW, RCS                                                 &
    2136           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    2137           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2138           , RALPD, RBETD, RGAMD
     2050  USE yomcst_mod_h
    21392051  USE yoethf_mod_h
    21402052IMPLICIT NONE

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

    r5274 r5285  
    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
     17  USE yomcst_mod_h
    2918  USE dimphy
    3019  USE infotrac_phy, ONLY: nbtr

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

    r5274 r5285  
    408408! The new sea-ice-land-landice fraction is returned. The others fields
    409409! are stored in this module.
    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
     410    USE yomcst_mod_h
    422411USE surface_data
    423412    USE geometry_mod, ONLY : longitude_deg, latitude_deg

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

    r5274 r5285  
    7272!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
    7373
    74 USE 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
     74USE yomcst_mod_h
    8675IMPLICIT NONE
    8776

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

    r5276 r5285  
    1010  ! **************************************************************
    1111
    12   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    13           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     12  USE cvthermo_mod_h
    1413  IMPLICIT NONE
    1514

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

    r5276 r5285  
    1515  ! **************************************************************
    1616
    17   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    18           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    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
     17  USE cvthermo_mod_h
     18  USE yomcst_mod_h
    3119IMPLICIT NONE
    3220

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

    r5284 r5285  
    1111  ! **************************************************************
    1212
    13   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    14           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    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
     13  USE cvthermo_mod_h
     14  USE yomcst_mod_h
    2715  USE yoethf_mod_h
    2816IMPLICIT NONE

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

    r5284 r5285  
    1212  ! ****************************************************************
    1313
    14   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    15           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    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
     14  USE cvthermo_mod_h
     15  USE yomcst_mod_h
    2816  USE yoethf_mod_h
    2917IMPLICIT NONE

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

    r5283 r5285  
    77SUBROUTINE cv3_param(nd, k_upper, delt)
    88
    9   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    10           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     9  USE cvflag_mod_h
    1110  USE ioipsl_getin_p_mod, ONLY : getin_p
    1211  use mod_phys_lmdz_para
    … …  
    184183SUBROUTINE cv3_incrcount(len, nd, delt, sig)
    185184
    186 USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    187           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    188   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    189           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     185USE cvthermo_mod_h
     186  USE cvflag_mod_h
    190187  IMPLICIT NONE
    191188
    … …  
    227224SUBROUTINE cv3_prelim(len, nd, ndp1, t, q, p, ph, &
    228225                      lv, lf, cpn, tv, gz, h, hm, th)
    229   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    230           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     226  USE cvthermo_mod_h
    231227  IMPLICIT NONE
    232228
    … …  
    317313  USE add_phys_tend_mod, ONLY: fl_cor_ebil
    318314  USE print_control_mod, ONLY: prt_level
    319   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    320           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     315  USE cvthermo_mod_h
    321316  IMPLICIT NONE
    322317
    … …  
    609604SUBROUTINE cv3_undilute1(len, nd, t, qs, gz, plcl, p, icb, tnk, qnk, gznk, &
    610605                         tp, tvp, clw, icbs)
    611   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    612           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    613   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    614           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     606  USE cvthermo_mod_h
     607  USE cvflag_mod_h
    615608  IMPLICIT NONE
    616609
    … …  
    11441137                         frac_a, frac_s, qpreca, qta)
    11451138  USE print_control_mod, ONLY: prt_level
    1146   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    1147           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    1148   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    1149           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     1139  USE cvflag_mod_h
     1140  USE cvthermo_mod_h
    11501141  USE conema3_mod_h
    11511142  IMPLICIT NONE
    … …  
    20562047                       pbase, p, ph, tv, buoy, &
    20572048                       sig, w0, cape, m, iflag)
    2058   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    2059           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2060   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    2061           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     2049  USE cvthermo_mod_h
     2050  USE cvflag_mod_h
    20622051  IMPLICIT NONE
    20632052
    … …  
    23012290                      unk, vnk, hp, tv, tvp, ep, clw, m, sig, &
    23022291                      ment, qent, uent, vent, nent, sij, elij, ments, qents, traent)
    2303   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    2304           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    2305   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    2306           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     2292  USE cvflag_mod_h
     2293  USE cvthermo_mod_h
    23072294  IMPLICIT NONE
    23082295
    … …  
    27252712                     faci, b, sigd, &
    27262713                     wdtrainA, wdtrainS, wdtrainM)                                      ! RomP
    2727   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    2728           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    2729   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    2730           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     2714  USE cvthermo_mod_h
     2715  USE cvflag_mod_h
    27312716  USE print_control_mod, ONLY: prt_level, lunout
    27322717  IMPLICIT NONE
    … …  
    34743459      USE print_control_mod, ONLY: lunout, prt_level
    34753460    USE add_phys_tend_mod, only : fl_cor_ebil
    3476     USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    3477           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    3478     USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    3479           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     3461    USE cvflag_mod_h
     3462    USE cvthermo_mod_h
    34803463  IMPLICIT NONE
    34813464
    … …  
    49704953                      ep, Vprecip, elij, clw, epmlmMm, eplaMm, &
    49714954                      icb, inb)
    4972   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    4973           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    4974   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    4975           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     4955  USE cvthermo_mod_h
     4956  USE cvflag_mod_h
    49764957  IMPLICIT NONE
    49774958
    … …  
    51615142                 , epmax_diag)
    51625143USE conema3_mod_h
    5163             USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    5164           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    5165           USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    5166           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     5144            USE cvflag_mod_h
     5145          USE cvthermo_mod_h
    51675146        implicit none
    51685147

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

    r5283 r5285  
    2020
    2121USE conema3_mod_h
    22     USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    23           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     22    USE cvthermo_mod_h
    2423  USE print_control_mod, ONLY: prt_level, lunout
    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
     24  USE yomcst_mod_h
    3725IMPLICIT NONE
    3826

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

    r5283 r5285  
    1919
    2020USE conema3_mod_h
    21     USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    22           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    23   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    24           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     21    USE cvthermo_mod_h
     22  USE cvflag_mod_h
    2523  USE print_control_mod, ONLY: prt_level, lunout
    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
     24  USE yomcst_mod_h
    3825IMPLICIT NONE
    3926

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

    r5276 r5285  
    1313! **************************************************************
    1414
    15   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    16           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    17   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    18           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     15  USE cvthermo_mod_h
     16  USE cvflag_mod_h
    1917  USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level
    2018  USE ioipsl_getin_p_mod, ONLY: getin_p

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

    r5283 r5285  
    684684SUBROUTINE cv_flag(iflag_ice_thermo)
    685685
    686   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    687           , clmci, eps, epsi, epsim1, ginv, hrd, grav
    688   USE cvflag_mod_h, ONLY: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    689           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     686  USE cvthermo_mod_h
     687  USE cvflag_mod_h
    690688  USE ioipsl_getin_p_mod, ONLY : getin_p
    691689
    … …  
    720718! ==================================================================
    721719SUBROUTINE cv_thermo(iflag_con)
    722   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    723           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    724           , R_ecc, R_peri, R_incl                                      &
    725           , RA, RG, R1SA                                         &
    726           , RSIGMA                                                     &
    727           , R, RMD, RMV, RD, RV, RCPD                    &
    728           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    729           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    730           , RCW, RCS                                                 &
    731           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    732           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    733           , RALPD, RBETD, RGAMD
    734   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    735           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     720  USE yomcst_mod_h
     721  USE cvthermo_mod_h
    736722IMPLICIT NONE
    737723

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

    r5276 r5285  
    33
    44SUBROUTINE cv_param(nd)
    5   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    6           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     5  USE cvthermo_mod_h
    76  IMPLICIT NONE
    87
    … …  
    7776
    7877SUBROUTINE cv_prelim(len, nd, ndp1, t, q, p, ph, lv, cpn, tv, gz, h, hm)
    79   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    80           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     78  USE cvthermo_mod_h
    8179  IMPLICIT NONE
    8280
    … …  
    257255SUBROUTINE cv_undilute1(len, nd, t, q, qs, gz, p, nk, icb, icbmax, tp, tvp, &
    258256    clw)
    259   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    260           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     257  USE cvthermo_mod_h
    261258  IMPLICIT NONE
    262259
    … …  
    485482SUBROUTINE cv_undilute2(nloc, ncum, nd, icb, nk, tnk, qnk, gznk, t, q, qs, &
    486483    gz, p, dph, h, tv, lv, inb, inb1, tp, tvp, clw, hp, ep, sigp, frac)
    487   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    488           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     484  USE cvthermo_mod_h
    489485  IMPLICIT NONE
    490486
    … …  
    768764SUBROUTINE cv_closure(nloc, ncum, nd, nk, icb, tv, tvp, p, ph, dph, plcl, &
    769765    cpn, iflag, cbmf)
    770   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    771           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     766  USE cvthermo_mod_h
    772767  IMPLICIT NONE
    773768
    … …  
    851846    h, lv, qnk, hp, tv, tvp, ep, clw, cbmf, m, ment, qent, uent, vent, nent, &
    852847    sij, elij)
    853   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    854           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     848  USE cvthermo_mod_h
    855849  IMPLICIT NONE
    856850
    … …  
    11031097SUBROUTINE cv_unsat(nloc, ncum, nd, inb, t, q, qs, gz, u, v, p, ph, h, lv, &
    11041098    ep, sigp, clw, m, ment, elij, iflag, mp, qp, up, vp, wt, water, evap)
    1105   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    1106           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     1099  USE cvthermo_mod_h
    11071100  IMPLICIT NONE
    11081101  include "cvparam.h"
    … …  
    13051298    ment, qent, uent, vent, nent, elij, tv, tvp, iflag, wd, qprime, tprime, &
    13061299    precip, cbmf, ft, fq, fu, fv, ma, qcondc)
    1307   USE cvthermo_mod_h, ONLY: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    1308           , clmci, eps, epsi, epsim1, ginv, hrd, grav
     1300  USE cvthermo_mod_h
    13091301  IMPLICIT NONE
    13101302

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

    r5283 r5285  
    1414  USE dimphy
    1515  USE infotrac_phy, ONLY : nbtr
    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
     16  USE yomcst_mod_h
    2817IMPLICIT NONE
    2918!=====================================================================

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

    r5274 r5285  
    55  USE dimphy
    66  USE infotrac_phy, ONLY : nbtr
    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
     7  USE yomcst_mod_h
    198IMPLICIT NONE
    209!=====================================================================

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

    r5283 r5285  
    1515  USE dimphy
    1616  USE infotrac_phy, ONLY : nbtr
    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
     17  USE yomcst_mod_h
    2918IMPLICIT NONE
    3019  !=====================================================================

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

    r5283 r5285  
    1515  USE dimphy
    1616  USE infotrac_phy, ONLY : nbtr
    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
     17  USE yomcst_mod_h
    2918IMPLICIT NONE
    3019!=====================================================================

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

    r5274 r5285  
    55  USE dimphy
    66  USE infotrac_phy, ONLY : nbtr
    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
     7  USE yomcst_mod_h
    198IMPLICIT NONE
    209!=====================================================================

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

    r5284 r5285  
    4949USE yoethf_mod_h
    5050    USE dimphy
    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
     51  USE yomcst_mod_h
    6352IMPLICIT NONE
    6453
    … …  
    218207USE yoethf_mod_h
    219208    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
     209  USE yomcst_mod_h
    232210IMPLICIT NONE
    233211

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

    r5284 r5285  
    11311131!
    11321132      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1133 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    1134           ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     1133USE paramet_mod_h
    11351134IMPLICIT NONE
    11361135
    … …  
    13521351!   sans WTG rajouter une advection horizontale
    13531352!----------------------------------------------------------------------
    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
     1353        USE yomcst_mod_h
    13661354implicit none
    13671355
    … …  
    14381426!   sans WTG rajouter une advection horizontale
    14391427!----------------------------------------------------------------------
    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
     1428        USE yomcst_mod_h
    14521429implicit none
    14531430
    … …  
    15311508  USE dimphy
    15321509
    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
     1510  USE yomcst_mod_h
    15451511  USE yoethf_mod_h
    15461512implicit none
    … …  
    16251591  USE dimphy
    16261592
    1627   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1628           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1629           , R_ecc, R_peri, R_incl                                      &
    1630           , RA, RG, R1SA                                         &
    1631           , RSIGMA                                                     &
    1632           , R, RMD, RMV, RD, RV, RCPD                    &
    1633           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1634           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1635           , RCW, RCS                                                 &
    1636           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1637           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1638           , RALPD, RBETD, RGAMD
     1593  USE yomcst_mod_h
    16391594  USE yoethf_mod_h
    16401595implicit none
    … …  
    17941749
    17951750       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1796 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1797           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1798           , R_ecc, R_peri, R_incl                                      &
    1799           , RA, RG, R1SA                                         &
    1800           , RSIGMA                                                     &
    1801           , R, RMD, RMV, RD, RV, RCPD                    &
    1802           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1803           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1804           , RCW, RCS                                                 &
    1805           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1806           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1807           , RALPD, RBETD, RGAMD
     1751USE yomcst_mod_h
    18081752implicit none
    18091753

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

    r5274 r5285  
    66     &       Ts,imp_fcg,ts_fcg,Tp_fcg,Turb_fcg)                                 
    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
     8        USE yomcst_mod_h
    209implicit none
    2110

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

    r5274 r5285  
    932932
    933933    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    934 USE 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
     934USE yomcst_mod_h
    946935implicit none
    947936

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

    r5274 r5285  
    14631463     &             ,ufa_astex,vfa_astex,div_prof,ts_prof,ug_prof,vg_prof   &
    14641464     &             ,ufa_prof,vfa_prof)
    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
     1465        USE yomcst_mod_h
    14771466      implicit none
    14781467
    … …  
    23992388            nf90_inq_dimid,nf90_inquire_dimension
    24002389
    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
     2390      USE yomcst_mod_h
    24132391implicit none
    24142392
    … …  
    27412719!program reading initial profils and forcings of the Gabls4 case study
    27422720
    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
     2721      USE yomcst_mod_h
    27552722      USE netcdf, ONLY: nf90_open,nf90_nowrite,nf90_noerr,nf90_strerror,nf90_inq_varid,nf90_get_var,&
    27562723            nf90_inq_dimid,nf90_inquire_dimension

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

    r5282 r5285  
    5151   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5252   USE dimsoil_mod_h, ONLY: nsoilmx
    53 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    54           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    55           , R_ecc, R_peri, R_incl                                      &
    56           , RA, RG, R1SA                                         &
    57           , RSIGMA                                                     &
    58           , R, RMD, RMV, RD, RV, RCPD                    &
    59           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    60           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    61           , RCW, RCS                                                 &
    62           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    63           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    64           , RALPD, RBETD, RGAMD
     53USE yomcst_mod_h
    6554implicit none
    6655

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

    r5282 r5285  
    4747   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4848   USE dimsoil_mod_h, ONLY: nsoilmx
    49 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    50           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    51           , R_ecc, R_peri, R_incl                                      &
    52           , RA, RG, R1SA                                         &
    53           , RSIGMA                                                     &
    54           , R, RMD, RMV, RD, RV, RCPD                    &
    55           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    56           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    57           , RCW, RCS                                                 &
    58           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    59           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    60           , RALPD, RBETD, RGAMD
     49USE yomcst_mod_h
    6150implicit none
    6251

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

    r5282 r5285  
    102102!
    103103!USE MODI_ABOR1_SFX
    104 USE 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
     104USE yomcst_mod_h
    116105USE clesphys_mod_h
    117106IMPLICIT NONE

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

    r5284 r5285  
    3333
    3434
    35 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    36           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    37           , R_ecc, R_peri, R_incl                                      &
    38           , RA, RG, R1SA                                         &
    39           , RSIGMA                                                     &
    40           , R, RMD, RMV, RD, RV, RCPD                    &
    41           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    42           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    43           , RCW, RCS                                                 &
    44           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    45           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    46           , RALPD, RBETD, RGAMD
     35USE yomcst_mod_h
    4736IMPLICIT none
    4837

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

    r5284 r5285  
    33
    44USE yoethf_mod_h
    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
     5USE yomcst_mod_h
    176IMPLICIT NONE
    187

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

    r5284 r5285  
    1111  USE dimphy
    1212  USE print_control_mod, ONLY: lunout
    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
     13  USE yomcst_mod_h
    2514  USE yoethf_mod_h
    2615IMPLICIT NONE

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

    r5282 r5285  
    2020
    2121    !ONLINE:
    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
     22      USE yomcst_mod_h
    3423use dimphy, only: klon, klev
    3524      use assert_m, only: assert

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

    r5274 r5285  
    55    paprs, kcbot, kctop, kdtop, x, dx)
    66  USE dimphy
    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
     7  USE yomcst_mod_h
    198IMPLICIT NONE
    209  ! =====================================================================

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

    r5284 r5285  
    248248USE yoethf_mod_h
    249249      USE clesphys_mod_h
    250   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    251           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    252           , R_ecc, R_peri, R_incl                                      &
    253           , RA, RG, R1SA                                         &
    254           , RSIGMA                                                     &
    255           , R, RMD, RMV, RD, RV, RCPD                    &
    256           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    257           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    258           , RCW, RCS                                                 &
    259           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    260           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    261           , RALPD, RBETD, RGAMD
     250  USE yomcst_mod_h
    262251
    263252! Routine de traitement de la fonte de la neige dans le cas du traitement

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

    r5282 r5285  
    1111!    USE indice_sol_mod, only : nvm_orch
    1212
    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
     13    USE yomcst_mod_h
    2514IMPLICIT NONE
    2615

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

    r5274 r5285  
    66  USE mod_phys_lmdz_para
    77  USE mod_grid_phy_lmdz, only: grid_type, unstructured, regular_lonlat
    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
     8  USE yomcst_mod_h
    209IMPLICIT NONE
    2110

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

    r5284 r5285  
    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
     6  USE yomcst_mod_h
    187  USE dimphy
    198  USE yoethf_mod_h

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

    r5284 r5285  
    11module hbtm_mod
    22
    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
     3  USE yomcst_mod_h
    154    IMPLICIT NONE
    165

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

    r5274 r5285  
    77  USE indice_sol_mod, ONLY: nbsrf
    88  USE print_control_mod, ONLY: lunout
    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
     9  USE yomcst_mod_h
    2110IMPLICIT NONE
    2211  ! ======================================================================

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

    r5274 r5285  
    1414
    1515  USE dimphy
    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
     16  USE yomcst_mod_h
    2817IMPLICIT NONE
    2918

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

    r5274 r5285  
    99  USE indice_sol_mod
    1010
    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
     11  USE yomcst_mod_h
    2312IMPLICIT NONE
    2413  ! ======================================================================

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

    r5274 r5285  
    88  USE init_print_control_mod, ONLY : init_print_control
    99  USE print_control_mod, ONLY: lunout
    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
     10  USE yomcst_mod_h
    2211IMPLICIT NONE
    2312

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

    r5274 r5285  
    11SUBROUTINE iniorbit(paphelie, pperiheli, pyear_day, pperi_day, pobliq)
    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
     2  USE yomcst_mod_h
    143IMPLICIT NONE
    154

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

    r5274 r5285  
    88  USE geometry_mod, ONLY : longitude, latitude
    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
     10  USE yomcst_mod_h
    2211IMPLICIT NONE
    2312!=====================================================================

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

    r5284 r5285  
    6969
    7070
    71   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    72           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    73           , R_ecc, R_peri, R_incl                                      &
    74           , RA, RG, R1SA                                         &
    75           , RSIGMA                                                     &
    76           , R, RMD, RMV, RD, RV, RCPD                    &
    77           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    78           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    79           , RCW, RCS                                                 &
    80           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    81           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    82           , RALPD, RBETD, RGAMD
     71  USE yomcst_mod_h
    8372IMPLICIT NONE
    8473

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

    r5274 r5285  
    119119      USE phys_cal_mod, ONLY : calend
    120120
    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
     121      USE yomcst_mod_h
    133122IMPLICIT NONE
    134123

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

    r5284 r5285  
    1515      use lmdz_cloudth_ini, only: iflag_cloudth_vert,iflag_ratqs
    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
     17      USE yomcst_mod_h
    2918      USE yoethf_mod_h
    3019IMPLICIT NONE
    … …  
    278267            use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
    279268
    280       USE 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
     269      USE yomcst_mod_h
    292270IMPLICIT NONE
    293271
    … …  
    610588      use lmdz_cloudth_ini, only: iflag_cloudth_vert
    611589
    612       USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    613           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    614           , R_ecc, R_peri, R_incl                                      &
    615           , RA, RG, R1SA                                         &
    616           , RSIGMA                                                     &
    617           , R, RMD, RMV, RD, RV, RCPD                    &
    618           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    619           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    620           , RCW, RCS                                                 &
    621           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    622           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    623           , RALPD, RBETD, RGAMD
     590      USE yomcst_mod_h
    624591      USE yoethf_mod_h
    625592IMPLICIT NONE
    … …  
    854821      use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
    855822
    856       USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    857           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    858           , R_ecc, R_peri, R_incl                                      &
    859           , RA, RG, R1SA                                         &
    860           , RSIGMA                                                     &
    861           , R, RMD, RMV, RD, RV, RCPD                    &
    862           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    863           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    864           , RCW, RCS                                                 &
    865           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    866           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    867           , RALPD, RBETD, RGAMD
     823      USE yomcst_mod_h
    868824IMPLICIT NONE
    869825
    … …  
    12941250            use lmdz_cloudth_ini, only: iflag_cloudth_vert
    12951251
    1296       USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1297           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1298           , R_ecc, R_peri, R_incl                                      &
    1299           , RA, RG, R1SA                                         &
    1300           , RSIGMA                                                     &
    1301           , R, RMD, RMV, RD, RV, RCPD                    &
    1302           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1303           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1304           , RCW, RCS                                                 &
    1305           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1306           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1307           , RALPD, RBETD, RGAMD
     1252      USE yomcst_mod_h
    13081253IMPLICIT NONE
    13091254
    … …  
    21952140    use phys_state_var_mod, ONLY : fm_therm, detr_therm, entr_therm
    21962141
    2197     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2198           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2199           , R_ecc, R_peri, R_incl                                      &
    2200           , RA, RG, R1SA                                         &
    2201           , RSIGMA                                                     &
    2202           , R, RMD, RMV, RD, RV, RCPD                    &
    2203           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    2204           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    2205           , RCW, RCS                                                 &
    2206           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    2207           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2208           , RALPD, RBETD, RGAMD
     2142    USE yomcst_mod_h
    22092143IMPLICIT none
    22102144

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

    r5284 r5285  
    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
     17  USE yomcst_mod_h
    2918  USE icefrac_lsc_mod ! compute ice fraction (JBM 3/14)
    3019  USE lmdz_cloudth, only : cloudth, cloudth_v3, cloudth_v6

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

    r5284 r5285  
    520520
    521521USE yoethf_mod_h
    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
     522        USE yomcst_mod_h
    534523IMPLICIT NONE
    535524

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

    r5284 r5285  
    2121USE yoethf_mod_h
    2222      USE alpale_mod
    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
     23            USE yomcst_mod_h
    3524      USE indice_sol_mod
    3625      USE lmdz_thermcell_main, ONLY : thermcell_tke_transport

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

    r5284 r5285  
    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
     8  USE yomcst_mod_h
    209  USE dimphy
    2110  USE write_field_phy
    … …  
    731720
    732721USE yoethf_mod_h
    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
     722    USE yomcst_mod_h
    745723  USE dimphy
    746724  IMPLICIT NONE
    … …  
    23432321
    23442322USE yoethf_mod_h
    2345     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2346           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2347           , R_ecc, R_peri, R_incl                                      &
    2348           , RA, RG, R1SA                                         &
    2349           , RSIGMA                                                     &
    2350           , R, RMD, RMV, RD, RV, RCPD                    &
    2351           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    2352           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    2353           , RCW, RCS                                                 &
    2354           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    2355           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2356           , RALPD, RBETD, RGAMD
     2323    USE yomcst_mod_h
    23572324  USE dimphy
    23582325  IMPLICIT NONE
    … …  
    32843251    , r_aspect, l_mix, w2di, tho)
    32853252
    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
     3253  USE yomcst_mod_h
    32983254  USE dimphy
    32993255  IMPLICIT NONE
    … …  
    41704126
    41714127SUBROUTINE 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
     4128  USE yomcst_mod_h
    41844129  USE dimphy
    41854130  IMPLICIT NONE
    … …  
    45774522
    45784523  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
     4524  USE yomcst_mod_h
    45914525  IMPLICIT NONE
    45924526
    … …  
    54175351    , r_aspect, l_mix, w2di, tho)
    54185352
    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
     5353  USE yomcst_mod_h
    54315354  USE dimphy
    54325355  IMPLICIT NONE
    … …  
    64156338
    64166339  USE dimphy
    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
     6340  USE yomcst_mod_h
    64296341IMPLICIT NONE
    64306342

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

    r5284 r5285  
    44subroutine thermcell_qsat(klon,active,pplev,ztemp,zqta,zqsat)
    55USE yoethf_mod_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
     6  USE yomcst_mod_h
    187implicit none
    198

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

    r5274 r5285  
    1212  USE infotrac_phy,ONLY : nbtr
    1313  USE iophy
    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
     14  USE yomcst_mod_h
    2615IMPLICIT NONE
    2716!=====================================================================

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

    r5274 r5285  
    2020  !!USE YOMCST, ONLY : RD, RG
    2121  !
    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
     22  USE yomcst_mod_h
    3423IMPLICIT NONE
    3524  !

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

    r5274 r5285  
    6363 & RALPHA3,  RLOGPPH 
    6464
    65 USE 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
     65USE yomcst_mod_h
    7766IMPLICIT NONE
    7867

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

    r5274 r5285  
    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
     6  USE yomcst_mod_h
    187  USE dimphy
    198  IMPLICIT NONE
    … …  
    7463SUBROUTINE moyglo_pondaima(nhori, nvert, champ, aire, pbord, moyglo)
    7564  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
     65  USE yomcst_mod_h
    8866  IMPLICIT NONE
    8967  ! ==================================================================
    … …  
    128106SUBROUTINE moyglo_pondmass(nhori, nvert, champ, aire, pbord, moyglo)
    129107  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
     108  USE yomcst_mod_h
    142109  IMPLICIT NONE
    143110  ! ==================================================================

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

    r5274 r5285  
    44SUBROUTINE nflxtr(pdtime,pmfu,pmfd,pen_u,pde_u,pen_d,pde_d,pplay,paprs,x,dx)
    55  USE dimphy
    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
     6  USE yomcst_mod_h
    187IMPLICIT NONE
    198!=====================================================================

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

    r5284 r5285  
    66    pcfh, pcfm, cgh, cgq)
    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
     8  USE yomcst_mod_h
    209  USE yoethf_mod_h
    2110IMPLICIT NONE

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

    r5284 r5285  
    55    temp_cltop, cldtaupi, re, fl)
    66  USE clesphys_mod_h
    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
     7  USE yomcst_mod_h
    198  USE dimphy
    209  USE lmdz_lscp_tools, only: icefrac_lscp
    … …  
    271260SUBROUTINE diagcld1(paprs, pplay, rain, snow, kbot, ktop, diafra, dialiq)
    272261  USE dimphy
    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
     262  USE yomcst_mod_h
    285263IMPLICIT NONE
    286264
    … …  
    365343SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq)
    366344  USE dimphy
    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
     345  USE yomcst_mod_h
    379346  USE yoethf_mod_h
    380347IMPLICIT NONE

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

    r5282 r5285  
    6868    USE indice_sol_mod
    6969    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
    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
     70    USE yomcst_mod_h
    8271USE cpl_mod, ONLY : gath2cpl, cpl_receive_ocean_fields, &
    8372         cpl_send_ocean_fields
    … …  
    264253! some fields to the coupler.
    265254!
    266     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    267           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    268           , R_ecc, R_peri, R_incl                                      &
    269           , RA, RG, R1SA                                         &
    270           , RSIGMA                                                     &
    271           , R, RMD, RMV, RD, RV, RCPD                    &
    272           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    273           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    274           , RCW, RCS                                                 &
    275           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    276           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    277           , RALPD, RBETD, RGAMD
     255    USE yomcst_mod_h
    278256USE dimphy,           ONLY : klon
    279257    USE cpl_mod

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

    r5282 r5285  
    5151#endif
    5252    USE clesphys_mod_h
    53     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    54           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    55           , R_ecc, R_peri, R_incl                                      &
    56           , RA, RG, R1SA                                         &
    57           , RSIGMA                                                     &
    58           , R, RMD, RMV, RD, RV, RCPD                    &
    59           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    60           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    61           , RCW, RCS                                                 &
    62           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    63           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    64           , RALPD, RBETD, RGAMD
     53    USE yomcst_mod_h
    6554    INCLUDE "flux_arp.h"
    6655
    … …  
    287276#endif
    288277    USE clesphys_mod_h
    289     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    290           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    291           , R_ecc, R_peri, R_incl                                      &
    292           , RA, RG, R1SA                                         &
    293           , RSIGMA                                                     &
    294           , R, RMD, RMV, RD, RV, RCPD                    &
    295           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    296           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    297           , RCW, RCS                                                 &
    298           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    299           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    300           , RALPD, RBETD, RGAMD
     278    USE yomcst_mod_h
    301279USE dimsoil_mod_h, ONLY: nsoilmx
    302280

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

    r5282 r5285  
    683683
    684684   USE clesphys_mod_h
    685    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    686           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    687           , R_ecc, R_peri, R_incl                                      &
    688           , RA, RG, R1SA                                         &
    689           , RSIGMA                                                     &
    690           , R, RMD, RMV, RD, RV, RCPD                    &
    691           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    692           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    693           , RCW, RCS                                                 &
    694           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    695           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    696           , RALPD, RBETD, RGAMD
     685   USE yomcst_mod_h
    697686USE calcul_fluxs_mod
    698687

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

    r5274 r5285  
    44! ======================================================================
    55SUBROUTINE orbite(xjour, longi, dist)
    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
     6  USE yomcst_mod_h
    187IMPLICIT NONE
    198  ! ======================================================================
    … …  
    6049SUBROUTINE angle(longi, lati, frac, muzero)
    6150  USE dimphy
    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
     51  USE yomcst_mod_h
    7452IMPLICIT NONE
    7553  ! ======================================================================
    … …  
    128106SUBROUTINE zenang(longi, gmtime, pdtrad1, pdtrad2, lat, long, pmu0, frac)
    129107  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
     108  USE yomcst_mod_h
    142109IMPLICIT NONE
    143110  ! =============================================================
    … …  
    272239SUBROUTINE zenith(longi, gmtime, lat, long, pmu0, fract)
    273240  USE dimphy
    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
     241  USE yomcst_mod_h
    286242IMPLICIT NONE
    287243

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

    r5274 r5285  
    77
    88  USE dimphy
    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
     9  USE yomcst_mod_h
    2110IMPLICIT NONE
    2211  ! ======================================================================
    … …  
    131120    , pulow, pvlow, pvom, pvol, pte)
    132121
    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
     122  USE yomcst_mod_h
    145123  USE dimphy
    146124  IMPLICIT NONE
    … …  
    420398  ! -----------------------------------------------------------------------
    421399  USE dimphy
    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
     400  USE yomcst_mod_h
    434401IMPLICIT NONE
    435402
    … …  
    877844  ! -----------------------------------------------------------------------
    878845  USE dimphy
    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
     846  USE yomcst_mod_h
    891847IMPLICIT NONE
    892848
    … …  
    1014970  ! -----------------------------------------------------------------------
    1015971  USE dimphy
    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
     972  USE yomcst_mod_h
    1028973IMPLICIT NONE
    1029974
    … …  
    12411186
    12421187  USE dimphy
    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
     1188  USE yomcst_mod_h
    12551189IMPLICIT NONE
    12561190  ! ======================================================================
    … …  
    13801314
    13811315  USE dimphy
    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
     1316  USE yomcst_mod_h
    13941317IMPLICIT NONE
    13951318

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

    r5274 r5285  
    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
     5  USE yomcst_mod_h
    176  USE dimphy
    187  IMPLICIT NONE
    … …  
    170159    , pulow, pvlow, pvom, pvol, pte)
    171160
    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
     161  USE yomcst_mod_h
    184162  USE dimphy
    185163  IMPLICIT NONE
    … …  
    566544  ! -----------------------------------------------------------------------
    567545  USE dimphy
    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
     546  USE yomcst_mod_h
    580547IMPLICIT NONE
    581548
    … …  
    1031998  ! -----------------------------------------------------------------------
    1032999  USE dimphy
    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
     1000  USE yomcst_mod_h
    10451001IMPLICIT NONE
    10461002
    … …  
    11601116
    11611117  USE dimphy
    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
     1118  USE yomcst_mod_h
    11741119IMPLICIT NONE
    11751120
    … …  
    13481293    pvlow, pustr, pvstr, d_t, d_u, d_v)
    13491294
    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
     1295  USE yomcst_mod_h
    13621296  USE dimphy
    13631297  IMPLICIT NONE
    … …  
    15741508
    15751509  USE dimphy
    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
     1510  USE yomcst_mod_h
    15881511IMPLICIT NONE
    15891512

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

    r5282 r5285  
    1818    USE mod_phys_lmdz_transfert_para, ONLY: gather, bcast
    1919
    20     USE 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
     20    USE yomcst_mod_h
    3221IMPLICIT NONE
    3322
    … …  
    167156
    168157    USE clesphys_mod_h
    169     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    170           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    171           , R_ecc, R_peri, R_incl                                      &
    172           , RA, RG, R1SA                                         &
    173           , RSIGMA                                                     &
    174           , R, RMD, RMV, RD, RV, RCPD                    &
    175           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    176           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    177           , RCW, RCS                                                 &
    178           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    179           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    180           , RALPD, RBETD, RGAMD
     158    USE yomcst_mod_h
    181159IMPLICIT NONE
    182160

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

    r5284 r5285  
    418418    USE dimsoil_mod_h, ONLY: nsoilmx
    419419
    420     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    421           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    422           , R_ecc, R_peri, R_incl                                      &
    423           , RA, RG, R1SA                                         &
    424           , RSIGMA                                                     &
    425           , R, RMD, RMV, RD, RV, RCPD                    &
    426           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    427           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    428           , RCW, RCS                                                 &
    429           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    430           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    431           , RALPD, RBETD, RGAMD
     420    USE yomcst_mod_h
    432421IMPLICIT NONE
    433422

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

    r5282 r5285  
    4040    USE phys_cal_mod , ONLY: calend, year_len_phy => year_len
    4141    USE dimsoil_mod_h, ONLY: nsoilmx
    42     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    43           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    44           , R_ecc, R_peri, R_incl                                      &
    45           , RA, RG, R1SA                                         &
    46           , RSIGMA                                                     &
    47           , R, RMD, RMV, RD, RV, RCPD                    &
    48           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    49           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    50           , RCW, RCS                                                 &
    51           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    52           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    53           , RALPD, RBETD, RGAMD
     42    USE yomcst_mod_h
    5443IMPLICIT NONE
    5544
    … …  
    407396  ! ====================================================================
    408397  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
     398    USE yomcst_mod_h
    421399    USE dimphy
    422400    IMPLICIT NONE

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

    r5284 r5285  
    4747
    4848
    49   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    50           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    51           , R_ecc, R_peri, R_incl                                      &
    52           , RA, RG, R1SA                                         &
    53           , RSIGMA                                                     &
    54           , R, RMD, RMV, RD, RV, RCPD                    &
    55           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    56           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    57           , RCW, RCS                                                 &
    58           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    59           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    60           , RALPD, RBETD, RGAMD
     49  USE yomcst_mod_h
    6150  USE alpale_mod
    6251IMPLICIT none

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

    r5282 r5285  
    6060    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    6161
    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
     62    USE yomcst_mod_h
    7463IMPLICIT NONE
    7564

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

    r5284 r5285  
    478478    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    479479
    480     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    481           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    482           , R_ecc, R_peri, R_incl                                      &
    483           , RA, RG, R1SA                                         &
    484           , RSIGMA                                                     &
    485           , R, RMD, RMV, RD, RV, RCPD                    &
    486           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    487           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    488           , RCW, RCS                                                 &
    489           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    490           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    491           , RALPD, RBETD, RGAMD
     480    USE yomcst_mod_h
    492481IMPLICIT NONE
    493482

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

    r5284 r5285  
    358358       reffclwc, cldnvi, lcc3d, lcc3dcon, lcc3dstra, icc3dcon, icc3dstra
    359359       USE output_physiqex_mod, ONLY: output_physiqex
    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
     360       USE yomcst_mod_h
    372361       USE clesphys_mod_h
    373362       USE conema3_mod_h

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

    r5282 r5285  
    151151    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
    152152
    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
     153    USE yomcst_mod_h
    165154    USE clesphys_mod_h
    166155IMPLICIT NONE

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

    r5274 r5285  
    6464!<http://intra.cnrm.meteo.fr/eac/ARPCLI5.2/doci/code/arpcli5.2/arp/module/yomsta.F90.php#yomsta>   , ONLY : RDTDZ1
    6565
    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
     66  USE yomcst_mod_h
    7867IMPLICIT NONE
    7968

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

    r5274 r5285  
    11FUNCTION qcheck(klon,klev,paprs,q,ql,aire)
    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
     2  USE yomcst_mod_h
    143IMPLICIT none
    154  !

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

    r5282 r5285  
    88  USE dimphy
    99  USE print_control_mod, ONLY: lunout
    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
     10  USE yomcst_mod_h
    2211IMPLICIT NONE
    2312
    … …  
    326315  USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
    327316    rtdumg, rth2o, rtumg
    328   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    329           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    330           , R_ecc, R_peri, R_incl                                      &
    331           , RA, RG, R1SA                                         &
    332           , RSIGMA                                                     &
    333           , R, RMD, RMV, RD, RV, RCPD                    &
    334           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    335           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    336           , RCW, RCS                                                 &
    337           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    338           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    339           , RALPD, RBETD, RGAMD
     317  USE yomcst_mod_h
    340318IMPLICIT NONE
    341319  include "radepsi.h"
    … …  
    21492127  USE dimphy
    21502128  USE print_control_mod, ONLY: lunout
    2151   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2152           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2153           , R_ecc, R_peri, R_incl                                      &
    2154           , RA, RG, R1SA                                         &
    2155           , RSIGMA                                                     &
    2156           , R, RMD, RMV, RD, RV, RCPD                    &
    2157           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    2158           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    2159           , RCW, RCS                                                 &
    2160           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    2161           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2162           , RALPD, RBETD, RGAMD
     2129  USE yomcst_mod_h
    21632130IMPLICIT NONE
    21642131  include "raddimlw.h"
    … …  
    23522319  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
    23532320
    2354   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    2355           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    2356           , R_ecc, R_peri, R_incl                                      &
    2357           , RA, RG, R1SA                                         &
    2358           , RSIGMA                                                     &
    2359           , R, RMD, RMV, RD, RV, RCPD                    &
    2360           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    2361           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    2362           , RCW, RCS                                                 &
    2363           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    2364           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2365           , RALPD, RBETD, RGAMD
     2321  USE yomcst_mod_h
    23662322IMPLICIT NONE
    23672323  include "raddimlw.h"
    … …  
    27262682    pfluc, pbint, pbsui, pcts, pcntrb)
    27272683  USE dimphy
    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
     2684  USE yomcst_mod_h
    27402685IMPLICIT NONE
    27412686  include "raddimlw.h"
    … …  
    46004545    pgbtop, pcntrb, pcts, pfluc)
    46014546  USE dimphy
    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
     4547  USE yomcst_mod_h
    46144548IMPLICIT NONE
    46154549  include "raddimlw.h"

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

    r5284 r5285  
    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
     88    USE yomcst_mod_h
    10089    USE clesphys_mod_h
    10190    USE yoethf_mod_h

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

    r5282 r5285  
    2424  USE print_control_mod, ONLY: lunout
    2525
    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
     26  USE yomcst_mod_h
    3827IMPLICIT NONE
    3928

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

    r5274 r5285  
    1717    USE print_control_mod, ONLY: prt_level,lunout
    1818    USE lmdz_xios
    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
     19    USE yomcst_mod_h
    3120implicit none
    3221

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

    r5274 r5285  
    1717    USE print_control_mod, ONLY: prt_level,lunout
    1818
    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
     19    USE yomcst_mod_h
    3120IMPLICIT NONE
    3221

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

    r5284 r5285  
    55    USE add_phys_tend_mod, only : fl_cor_ebil
    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
     7    USE yomcst_mod_h
    198    USE yoethf_mod_h
    209IMPLICIT none

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

    r5282 r5285  
    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
     130  USE yomcst_mod_h
    142131  USE clesphys_mod_h
    143132!-------------------------------------------------------------------------------

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

    r5274 r5285  
    1919                         ustar, testar, qstar, okri, ri1, &
    2020                         pref, delu, delte, delq, s_pblh, prain, tsol, pat1)
    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
     21      USE yomcst_mod_h
    3322IMPLICIT NONE
    3423!-----------------------------------------------------------------------
    … …  
    134123                         ri1, iri1, &
    135124                         pref, delm, delh, zri1, s_pblh, prain, tsol, pat1)
    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
     125      USE yomcst_mod_h
    148126IMPLICIT NONE
    149127!-----------------------------------------------------------------------

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

    r5274 r5285  
    11361136        USE m_simu_airs
    11371137
    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
     1138        USE yomcst_mod_h
    11501139IMPLICIT NONE
    11511140

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

    r5274 r5285  
    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
     7  USE yomcst_mod_h
    198  USE dimphy
    209  USE mod_phys_lmdz_para

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

    r5274 r5285  
    44  USE print_control_mod, ONLY: lunout
    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
     6  USE yomcst_mod_h
    187IMPLICIT NONE
    198

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

    r5284 r5285  
    55! of temperature, specific humidity and wind at a reference level
    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
     7  USE yomcst_mod_h
    198      USE cdrag_mod
    209  USE screenp_mod
    … …  
    329318                           n2mout)
    330319!
    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
     320      USE yomcst_mod_h
    343321      USE ioipsl_getin_p_mod, ONLY : getin_p
    344322      USE yoethf_mod_h

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

    r5274 r5285  
    44  USE indice_sol_mod
    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
     6USE yomcst_mod_h
    187IMPLICIT NONE
    198

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

    r5274 r5285  
    3737USE print_control_mod, ONLY: lunout, prt_level
    3838
    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
     39USE yomcst_mod_h
    5140IMPLICIT NONE
    5241
    … …  
    123112! reference: Reichler, T., M. Dameris, and R. Sausen (GRL, 10.1029/2003GL018240, 2003)
    124113
    125 USE 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
     114USE yomcst_mod_h
    137115implicit none
    138116

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

    r5284 r5285  
    55
    66USE yoethf_mod_h
    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
     7    USE yomcst_mod_h
    198IMPLICIT NONE
    209

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

    r5282 r5285  
    4545#endif
    4646    USE clesphys_mod_h
    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
     47    USE yomcst_mod_h
    5948    USE dimsoil_mod_h, ONLY: nsoilmx
    6049!****************************************************************************************

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

    r5282 r5285  
    7474
    7575    USE clesphys_mod_h
    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
     76    USE yomcst_mod_h
    8877USE print_control_mod, ONLY: lunout
    8978    USE dimsoil_mod_h, ONLY: nsoilmx

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

    r5274 r5285  
    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
     63    USE yomcst_mod_h
    7564!   
    7665! Cette routine sert d'interface entre le modele atmospherique et le

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

    r5274 r5285  
    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
     62    USE yomcst_mod_h
    7463!   
    7564! Cette routine sert d'interface entre le modele atmospherique et le

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

    r5274 r5285  
    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
     59    USE yomcst_mod_h
    7160!   
    7261! Cette routine sert d'interface entre le modele atmospherique et le

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

    r5274 r5285  
    106106    USE time_phylmdz_mod, ONLY: itau_phy
    107107#endif
    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
     108    USE yomcst_mod_h
    120109IMPLICIT NONE
    121110

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

    r5274 r5285  
    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
     58    USE yomcst_mod_h
    7059!   
    7160! Cette routine sert d'interface entre le modele atmospherique et le

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

    r5274 r5285  
    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
     60    USE yomcst_mod_h
    7261!   
    7362! Cette routine sert d'interface entre le modele atmospherique et le

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

    r5282 r5285  
    5050!FC
    5151    USE clesphys_mod_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
     52    USE yomcst_mod_h
    6453USE ioipsl_getin_p_mod, ONLY : getin_p
    6554    USE lmdz_blowing_snow_ini, ONLY : c_esalt_bs, zeta_bs, pbst_bs, prt_bs, rhoice_bs, rhohard_bs

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

    r5282 r5285  
    4444#endif
    4545    USE clesphys_mod_h
    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
     46    USE yomcst_mod_h
    5847USE limit_read_mod
    5948    USE config_ocean_skin_m, ONLY: activate_ocean_skin

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

    r5282 r5285  
    3838#endif
    3939  USE clesphys_mod_h
    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
     40    USE yomcst_mod_h
    5241USE dimsoil_mod_h, ONLY: nsoilmx
    5342

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

    r5282 r5285  
    2525  USE print_control_mod, ONLY: lunout
    2626  USE aero_mod, ONLY : naero_grp
    27   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    28           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    29           , R_ecc, R_peri, R_incl                                      &
    30           , RA, RG, R1SA                                         &
    31           , RSIGMA                                                     &
    32           , R, RMD, RMV, RD, RV, RCPD                    &
    33           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    34           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    35           , RCW, RCS                                                 &
    36           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    37           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    38           , RALPD, RBETD, RGAMD
     27  USE yomcst_mod_h
    3928IMPLICIT NONE
    4029

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

    r5274 r5285  
    3737 USE indice_sol_mod, ONLY: nbsrf
    3838
    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
     39USE yomcst_mod_h
    5140IMPLICIT NONE
    5241

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

    r5274 r5285  
    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
     5  USE yomcst_mod_h
    176  IMPLICIT NONE
    187  REAL gz(nd), tpk(nd), clw(nd), p(nd)

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

    r5274 r5285  
    3838  USE ioipsl_getin_p_mod, ONLY : getin_p
    3939  USE phys_cal_mod, ONLY: phys_cal_init
    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
     40  USE yomcst_mod_h
    5241IMPLICIT NONE
    5342
    … …  
    9483  USE phys_cal_mod, ONLY: phys_cal_update
    9584  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
     85  USE yomcst_mod_h
    10886  IMPLICIT NONE
    10987

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

    r5274 r5285  
    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
     6  USE yomcst_mod_h
    187  IMPLICIT NONE
    198  ! Argument NK ajoute (jyg) = Niveau de depart de la

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

    r5282 r5285  
    5050    USE indice_sol_mod, ONLY: nbsrf, is_ter, is_lic, is_oce, is_sic
    5151
    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
     52    USE yomcst_mod_h
    6453    USE clesphys_mod_h
    6554IMPLICIT NONE
    … …  
    367356    USE carbon_cycle_mod, ONLY : fco2_ff, fco2_bb, fco2_land, fco2_ocean
    368357
    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
     358    USE yomcst_mod_h
    381359IMPLICIT NONE
    382360

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

    r5274 r5285  
    309309       tr_seri, source, d_tr_cl,d_tr_dec, zmasse)               !RomP
    310310   
    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
     311    USE yomcst_mod_h
    323312USE dimphy
    324313    USE infotrac_phy, ONLY: nbtr, pbl_flg

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

    r5274 r5285  
    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
     8  USE yomcst_mod_h
    209IMPLICIT NONE
    2110  ! ======================================================================

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

    r5274 r5285  
    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
     8  USE yomcst_mod_h
    209IMPLICIT NONE
    2110  ! ======================================================================

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

    r5274 r5285  
    11MODULE tropopause_m
    22
    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
     3  USE yomcst_mod_h
    154IMPLICIT NONE
    165  PRIVATE

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

    r5284 r5285  
    3333
    3434USE yoethf_mod_h
    35         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    36           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    37           , R_ecc, R_peri, R_incl                                      &
    38           , RA, RG, R1SA                                         &
    39           , RSIGMA                                                     &
    40           , R, RMD, RMV, RD, RV, RCPD                    &
    41           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    42           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    43           , RCW, RCS                                                 &
    44           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    45           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    46           , RALPD, RBETD, RGAMD
     35        USE yomcst_mod_h
    4736USE wx_pbl_var_mod
    4837
    … …  
    181170
    182171USE yoethf_mod_h
    183         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    184           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    185           , R_ecc, R_peri, R_incl                                      &
    186           , RA, RG, R1SA                                         &
    187           , RSIGMA                                                     &
    188           , R, RMD, RMV, RD, RV, RCPD                    &
    189           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    190           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    191           , RCW, RCS                                                 &
    192           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    193           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    194           , RALPD, RBETD, RGAMD
     172        USE yomcst_mod_h
    195173USE wx_pbl_var_mod
    196174
    … …  
    592570!
    593571
    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
     572    USE yomcst_mod_h
    606573USE wx_pbl_var_mod
    607574
    … …  
    760727
    761728USE yoethf_mod_h
    762         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    763           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    764           , R_ecc, R_peri, R_incl                                      &
    765           , RA, RG, R1SA                                         &
    766           , RSIGMA                                                     &
    767           , R, RMD, RMV, RD, RV, RCPD                    &
    768           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    769           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    770           , RCW, RCS                                                 &
    771           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    772           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    773           , RALPD, RBETD, RGAMD
     729        USE yomcst_mod_h
    774730USE wx_pbl_var_mod
    775731
    … …  
    1016972
    1017973USE yoethf_mod_h
    1018         USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1019           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    1020           , R_ecc, R_peri, R_incl                                      &
    1021           , RA, RG, R1SA                                         &
    1022           , RSIGMA                                                     &
    1023           , R, RMD, RMV, RD, RV, RCPD                    &
    1024           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    1025           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    1026           , RCW, RCS                                                 &
    1027           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    1028           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1029           , RALPD, RBETD, RGAMD
     974        USE yomcst_mod_h
    1030975USE wx_pbl_var_mod
    1031976

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

    r5284 r5285  
    317317USE yoethf_mod_h
    318318        USE clesphys_mod_h
    319     USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    320           , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    321           , R_ecc, R_peri, R_incl                                      &
    322           , RA, RG, R1SA                                         &
    323           , RSIGMA                                                     &
    324           , R, RMD, RMV, RD, RV, RCPD                    &
    325           , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
    326           , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
    327           , RCW, RCS                                                 &
    328           , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
    329           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    330           , RALPD, RBETD, RGAMD
     319    USE yomcst_mod_h
    331320USE print_control_mod, ONLY: prt_level,lunout
    332321    USE indice_sol_mod, ONLY: is_oce

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

    r5274 r5285  
    99      USE ioipsl_getin_p_mod, ONLY : getin_p
    1010
    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
     11      USE yomcst_mod_h
    2312IMPLICIT NONE
    2413
Note: See TracChangeset for help on using the changeset viewer.