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

Timestamp:

Jul 28, 2024, 10:25:12 PM (3 months ago)

Author:

abarral

Message:

Put gradsdef.h, tracstoke.h, clesphys.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

@@ -45 +45 @@
     USE limit_read_mod
     USE config_ocean_skin_m, ONLY: activate_ocean_skin
+  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)
+
 
     ! This SUBROUTINE will make a CALL to ocean_XXX_noice according to the ocean mode (force,
@@ -51 +54 @@
 
     INCLUDE "YOMCST.h"
-
-    include "clesphys.h"
-    ! for cycle_diurne and for iflag_z0_oce==-1 (prescribed z0)
 
     ! Input variables