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

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

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
29 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
Note: See TracChangeset for help on using the changeset viewer.