Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_single_level.F90

@@ -206 +206 @@
     end if
 
-    do jcol = istartcol,iendcol
+    DO jcol = istartcol,iendcol
       this%iseed(jcol) = jcol
     end do
@@ -275 +275 @@
 
         sw_albedo_band = 0.0_jprb
-        do jband = 1,config%n_bands_sw
-          do jalbedoband = 1,nalbedoband
+        DO jband = 1,config%n_bands_sw
+          DO jalbedoband = 1,nalbedoband
             if (config%sw_albedo_weights(jalbedoband,jband) /= 0.0_jprb) then
-              do jcol = istartcol,iendcol
+              DO jcol = istartcol,iendcol
                 sw_albedo_band(jcol,jband) &
                     &  = sw_albedo_band(jcol,jband) & 
@@ -292 +292 @@
         if (allocated(this%sw_albedo_direct)) then
           sw_albedo_band = 0.0_jprb
-          do jband = 1,config%n_bands_sw
-            do jalbedoband = 1,nalbedoband
+          DO jband = 1,config%n_bands_sw
+            DO jalbedoband = 1,nalbedoband
               if (config%sw_albedo_weights(jalbedoband,jband) /= 0.0_jprb) then
                 sw_albedo_band(istartcol:iendcol,jband) &
@@ -342 +342 @@
         end if
         lw_albedo_band = 0.0_jprb
-        do jband = 1,config%n_bands_lw
-          do jalbedoband = 1,nalbedoband
+        DO jband = 1,config%n_bands_lw
+          DO jalbedoband = 1,nalbedoband
             if (config%lw_emiss_weights(jalbedoband,jband) /= 0.0_jprb) then
-              do jcol = istartcol,iendcol
+              DO jcol = istartcol,iendcol
                 lw_albedo_band(jcol,jband) &
                     &  = lw_albedo_band(jcol,jband) &