Changeset 5274 for LMDZ6/trunk/libf/phylmd/borne_var_surf.f90

Timestamp:

Oct 25, 2024, 3:41:23 PM (31 hours ago)

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmd/borne_var_surf.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/borne_var_surf.f90

@@ -7 +7 @@
          zrh2m_cor, zqsat2m_cor)
 
+USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
+          , R_ecc, R_peri, R_incl                                      &
+          , RA, RG, R1SA                                         &
+          , RSIGMA                                                     &
+          , R, RMD, RMV, RD, RV, RCPD                    &
+          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
+          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
+          , RCW, RCS                                                 &
+          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
+          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
+          , RALPD, RBETD, RGAMD
 IMPLICIT NONE
 
@@ -18 +30 @@
 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: t2m, q2m, u10m, v10m
 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol, pctsrf
-REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 
+REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs
 REAL,DIMENSION(klon),INTENT(IN) :: qsurf
 REAL,DIMENSION (klon),INTENT(OUT) :: zt2m_cor, zq2m_cor, zu10m_cor, zv10m_cor
@@ -28 +40 @@
 REAL,DIMENSION (klon,nbsrf) :: t2m_cor, q2m_cor, u10m_cor, v10m_cor
 REAL                               :: zx_qs1, zcor1, zdelta1
-include "YOMCST.h"
+
 include "YOETHF.h"
 include "FCTTRE.h"