Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/surf_landice_mod.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 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/phylmd/surf_landice_mod.F90 (modified) (9 diffs)

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

@@ -1 @@
-!
+
 MODULE surf_landice_mod
   
@@ -5 +5 @@
 
 CONTAINS
-!
-!****************************************************************************************
-!
+
+!****************************************************************************************
+
   SUBROUTINE surf_landice(itime, dtime, knon, knindex, &
        rlon, rlat, debut, lafin, &
@@ -242 +242 @@
 !****************************************************************************************
 ! Calculate total absorbed radiance at surface
-!
+
 !****************************************************************************************
     radsol(:) = 0.0
@@ -347 +347 @@
 !****************************************************************************************
 ! Soil calculations
-! 
+
 !****************************************************************************************
 
@@ -368 +368 @@
 !****************************************************************************************
 ! Calulate fluxes
-!
+
 !****************************************************************************************
 !    beta(:) = 1.0
@@ -420 +420 @@
 !****************************************************************************************
 ! Calculate albedo
-!
-!****************************************************************************************
-
-!
+
+!****************************************************************************************
+
 !IM: plusieurs choix/tests sur l'albedo des "glaciers continentaux"
 !       alb1(1 : knon)  = 0.6 !IM cf FH/GK 
@@ -438 +437 @@
 !****************************************************************************************
 ! Rugosity
-!
+
 !****************************************************************************************
 
@@ -599 +598 @@
 !****************************************************************************************
 ! Calculate snow amount
-!    
+
 !****************************************************************************************
     IF (ok_bs) THEN
@@ -711 +710 @@
 
   END SUBROUTINE surf_landice
-!
-!****************************************************************************************
-!
+
+!****************************************************************************************
+
 END MODULE surf_landice_mod