Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_cloudless_lw.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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.v1.5.1/radiation_cloudless_lw.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_cloudless_lw.F90

@@ -95 +95 @@
 
     ! Loop through columns
-    do jcol = istartcol,iendcol
+    DO jcol = istartcol,iendcol
 
       ! Compute the reflectance and transmittance of all layers,
       ! neglecting clouds
-      do jlev = 1,nlev
+      DO jlev = 1,nlev
         if (config%do_lw_aerosol_scattering) then
           ! Scattering case: first compute clear-sky reflectance,