Changeset 5274 for LMDZ6/trunk/libf/phylmd/surf_ocean_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_ocean_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90

@@ -43 +43 @@
 #endif
 #endif
-    USE limit_read_mod
+    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
+USE limit_read_mod
     USE config_ocean_skin_m, ONLY: activate_ocean_skin
     !
-    ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 
-    ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 
-    ! done in here because they are identical for the different modes of ocean. 
-
-
-    INCLUDE "YOMCST.h"
+    ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force,
+    ! slab or couple). The calculations of albedo and rugosity for the ocean surface are
+    ! done in here because they are identical for the different modes of ocean.
+
+
+
 
     include "clesphys.h"
@@ -142 +154 @@
 
     REAL, intent(out):: tkt(:) ! (knon)
-    ! épaisseur (m) de la couche de diffusion thermique (microlayer)
+    ! �paisseur (m) de la couche de diffusion thermique (microlayer)
     ! cool skin thickness
 
     REAL, intent(out):: tks(:) ! (knon)
-    ! épaisseur (m) de la couche de diffusion de masse (microlayer)
+    ! �paisseur (m) de la couche de diffusion de masse (microlayer)
 
     REAL, intent(out):: taur(:) ! (knon)