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

Replace yomcst.h by existing module

File:
1 edited

Legend:

Unmodified
Added
Removed

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

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