Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_monochromatic.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_monochromatic.F90 (modified) (5 diffs)

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

@@ -164 +164 @@
     integer :: jlev
 
-    do jlev = 1,nlev
+    DO jlev = 1,nlev
       ! The fraction of the total optical depth in the current layer
       ! is proportional to the fraction of the mass of the atmosphere
@@ -192 +192 @@
              &  = StefanBoltzmann * single_level%skin_temperature(istartcol:iendcol)**4 &
              &  * single_level%lw_emissivity(istartcol:iendcol,1)
-        do jlev = 1,nlev+1
+        DO jlev = 1,nlev+1
           planck_hl(1,jlev,istartcol:iendcol) = StefanBoltzmann * thermodynamics%temperature_hl(istartcol:iendcol,jlev)**4
         end do
@@ -200 +200 @@
              &             single_level%skin_temperature(istartcol:iendcol)) &
              &  * single_level%lw_emissivity(istartcol:iendcol,1)
-        do jlev = 1,nlev+1
+        DO jlev = 1,nlev+1
           planck_hl(1,jlev,istartcol:iendcol) = Pi*planck_function(config%mono_lw_wavelength, &
                &             thermodynamics%temperature_hl(istartcol:iendcol,jlev))
@@ -261 +261 @@
     ! Convert cloud mixing ratio into liquid and ice water path
     ! in each layer
-    do jlev = 1, nlev
-      do jcol = istartcol, iendcol
+    DO jlev = 1, nlev
+      DO jcol = istartcol, iendcol
         ! Factor to convert from gridbox-mean mass mixing ratio to
         ! in-cloud water path involves the pressure difference in
@@ -288 +288 @@
 
     if (config%iverbose >= 4) then
-      do jcol = istartcol,iendcol
+      DO jcol = istartcol,iendcol
         write(*,'(a,i0,a,f7.3,a,f7.3)') 'Profile ', jcol, ': shortwave optical depth = ', &
              &  sum(od_sw_cloud(1,:,jcol)*cloud%fraction(jcol,:)), &