Changeset 5274 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

Timestamp:

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

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

@@ -56 +56 @@
     USE time_phylmdz_mod, ONLY: itau_phy 
 #endif
+    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
 !    
 ! Cette routine sert d'interface entre le modele atmospherique et le 
@@ -109 +121 @@
 !   qsurf        air moisture at surface
 !
-    INCLUDE "YOMCST.h"
     INCLUDE "dimpft.h"
 
@@ -233 +244 @@
        IF ( .NOT. ALLOCATED(albedo_keep)) THEN
 !ym          ALLOCATE(albedo_keep(klon))
-!ym bizarre que non alloué en knon precedement
+!ym bizarre que non allou� en knon precedement
           ALLOCATE(albedo_keep(knon))
           ALLOCATE(zlev(knon))