Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

Timestamp:

Jul 29, 2024, 11:01:04 PM (3 months ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/surf_ocean_mod.F90

@@ -47 +47 @@
   USE lmdz_clesphys, ONLY:  iflag_cycle_diurne, iflag_z0_oce, nsw, f_z0qh_oce, fmagic, ok_bs, &
           iflag_albedo, pmagic, z0min ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
+  USE lmdz_yomcst
 
 
@@ -52 +53 @@
     ! 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"
 
     ! Input variables