Changeset 5282 for LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90

Timestamp:

Oct 28, 2024, 1:11:48 PM (6 hours ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

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

LMDZ6/trunk/libf/phylmd/change_srf_frac_mod.f90

@@ -4 +4 @@
 MODULE change_srf_frac_mod
 
-  IMPLICIT NONE
+  USE clesphys_mod_h
+    IMPLICIT NONE
 
 CONTAINS
-! 
+!
 ! Change Surface Fractions
 ! Author J Ghattas 2008
@@ -14 +15 @@
         pctsrf, evap, z0m, z0h, agesno,              &
         alb_dir, alb_dif, tsurf, ustar, u10m, v10m, pbl_tke)
-   
-
-
-!
-! This subroutine is called from physiq.F at each timestep. 
+
+
+
+!
+! This subroutine is called from physiq.F at each timestep.
 ! 1- For each type of ocean (force, slab, couple) receive new fractions only if
-!    it's time to modify (is_modified=true). Otherwise nothing is done (is_modified=false).   
+!    it's time to modify (is_modified=true). Otherwise nothing is done (is_modified=false).
 ! If received new fraction :
-! 2- Tests and ajustements are done on the fractions 
-! 3- Initialize variables where a new fraction(new or melted ice) has appered, 
+! 2- Tests and ajustements are done on the fractions
+! 3- Initialize variables where a new fraction(new or melted ice) has appered,
 !
 
@@ -49 +50 @@
 
 !albedo SB >>>
-    include "clesphys.h"
 !albedo SB <<<