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

Replace yomcst.h by existing module

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
25 edited

Legend:

Unmodified
Added
Removed

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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