Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/radiation/radiation_flux.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/radiation/radiation_flux.F90 (modified) (18 diffs)

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

@@ -423 +423 @@
              &               config%i_band_from_reordered_g_sw, &
              &               this%sw_dn_surf_band, istartcol, iendcol)
-        do jcol = istartcol,iendcol
+        DO jcol = istartcol,iendcol
           this%sw_dn_surf_band(:,jcol) &
                &  = this%sw_dn_surf_band(:,jcol) &
@@ -429 +429 @@
         end do
       else
-        do jcol = istartcol,iendcol
+        DO jcol = istartcol,iendcol
           call indexed_sum(this%sw_dn_direct_surf_g(:,jcol), &
                &           config%i_band_from_reordered_g_sw, &
@@ -450 +450 @@
                &               config%i_band_from_reordered_g_sw, &
                &               this%sw_dn_surf_clear_band, istartcol, iendcol)
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             this%sw_dn_surf_clear_band(:,jcol) &
                  &  = this%sw_dn_surf_clear_band(:,jcol) &
@@ -456 +456 @@
           end do
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%sw_dn_direct_surf_clear_g(:,jcol), &
                  &           config%i_band_from_reordered_g_sw, &
@@ -486 +486 @@
                &               this%sw_dn_diffuse_surf_canopy, istartcol, iendcol)
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%sw_dn_direct_surf_g(:,jcol), &
                  &           config%i_albedo_from_band_sw(config%i_band_from_reordered_g_sw), &
@@ -502 +502 @@
         this%sw_dn_diffuse_surf_canopy(:,istartcol:iendcol) = 0.0_jprb
         this%sw_dn_direct_surf_canopy (:,istartcol:iendcol) = 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
               ! Initially, "diffuse" is actually "total"
@@ -534 +534 @@
                &               this%lw_dn_surf_canopy, istartcol, iendcol)
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%lw_dn_surf_g(:,jcol), &
                  &           config%i_emiss_from_band_lw(config%i_band_from_reordered_g_lw), &
@@ -548 +548 @@
                &               lw_dn_surf_band, istartcol, iendcol)
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%lw_dn_surf_g(:,jcol), &
                  &           config%i_band_from_reordered_g_lw, &
@@ -556 +556 @@
         nalbedoband = size(config%lw_emiss_weights,1)
         this%lw_dn_surf_canopy(:,istartcol:iendcol) = 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
               this%lw_dn_surf_canopy(jalbedoband,istartcol:iendcol) &
@@ -602 +602 @@
              &               this%sw_up_toa_band, istartcol, iendcol)
       else
-        do jcol = istartcol,iendcol
+        DO jcol = istartcol,iendcol
           call indexed_sum(this%sw_dn_toa_g(:,jcol), &
                &           config%i_band_from_reordered_g_sw, &
@@ -618 +618 @@
                &               this%sw_up_toa_clear_band, istartcol, iendcol)
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%sw_up_toa_clear_g(:,jcol), &
                  &               config%i_band_from_reordered_g_sw, &
@@ -634 +634 @@
              &               this%lw_up_toa_band, istartcol, iendcol)
       else
-        do jcol = istartcol,iendcol
+        DO jcol = istartcol,iendcol
           call indexed_sum(this%lw_up_toa_g(:,jcol), &
                &           config%i_band_from_reordered_g_lw, &
@@ -647 +647 @@
                &               this%lw_up_toa_clear_band, istartcol, iendcol)
         else
-          do jcol = istartcol,iendcol
+          DO jcol = istartcol,iendcol
             call indexed_sum(this%lw_up_toa_clear_g(:,jcol), &
                  &               config%i_band_from_reordered_g_lw, &
@@ -753 +753 @@
     iend   = ubound(source,1)
 
-    do jg = istart, iend
+    DO jg = istart, iend
       ig = ind(jg)
       dest(ig) = dest(ig) + source(jg)
@@ -777 +777 @@
     iend   = ubound(source,1)
 
-    do jg = istart, iend
+    DO jg = istart, iend
       ig = ind(jg)
       dest(ig) = dest(ig) + source(jg)
@@ -797 +797 @@
     dest = 0.0
 
-    do jg = lbound(source,1), ubound(source,1)
+    DO jg = lbound(source,1), ubound(source,1)
       ig = ind(jg)
-      do jc = ist, iend
+      DO jc = ist, iend
         dest(ig,jc) = dest(ig,jc) + source(jg,jc)
       end do
@@ -820 +820 @@
     nlev   = size(source,2)
 
-    do jlev = 1,nlev
-      do jg = istart, iend
+    DO jlev = 1,nlev
+      DO jg = istart, iend
         ig = ind(jg)
         dest(ig,jlev) = dest(ig,jlev) + source(jg,jlev)
@@ -846 +846 @@
     nlev   = size(source,2)
 
-    do jlev = 1,nlev
-      do jg = istart, iend
+    DO jlev = 1,nlev
+      DO jg = istart, iend
         ig = ind(jg)
         dest(ig,jlev) = dest(ig,jlev) + source(jg,jlev)