Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/change_srf_frac_mod.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 MODULE change_srf_frac_mod
 
@@ -7 +7 @@
 
 CONTAINS
-! 
+
 ! Change Surface Fractions
 ! Author J Ghattas 2008
@@ -18 +18 @@
 #endif
 &       )
-   
-
-
-!
+
 ! This subroutine is called from physiq.F at each timestep. 
 ! 1- For each type of ocean (force, slab, couple) receive new fractions only if
@@ -28 +25 @@
 ! 2- Tests and ajustements are done on the fractions 
 ! 3- Initialize variables where a new fraction(new or melted ice) has appered, 
-!
 
     USE dimphy 
@@ -111 +107 @@
 ! - Put to zero fractions that are too small
 ! - Test total fraction sum is one for each grid point
-!
+
 !****************************************************************************************
     IF (is_modified) THEN
@@ -182 +178 @@
 ! i.e. where new sea ice has been formed
 ! or where ice free ocean has appread in a grid cell
-! 
+
 !****************************************************************************************