Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2

Timestamp:

Jul 19, 2024, 7:54:50 PM (5 months ago)

Author:

abarral

Message:

convert labeled do (f77) to do .. end do

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2

Files:

• cosp.F90 (modified) (1 diff)
• icarus.F90 (modified) (3 diffs)
• math_lib.F90 (modified) (4 diffs)
• modis_simulator.F90 (modified) (5 diffs)
• optics_lib.F90 (modified) (1 diff)
• quickbeam_optics.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp.F90

@@ -731 +731 @@
                                   modisRetrievedCloudTopPressure(i,:),                   &
                                   modisRetrievedTau(i,:),modisRetrievedSize(i,:))
-          end do
+          END DO
        endif
     endif

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/icarus.F90

@@ -155 +155 @@
                   (cchar_realtops(acc(ilev,ibox)+1),ilev=1,nlev),&
                   (cchar(acc(ilev,ibox)+1),ilev=1,nlev) 
-          end do
+          END DO
           close(9)
 
@@ -322 +322 @@
        do ibox=1,ncol
           fluxtop(1:npoints,ibox) = fluxtop(1:npoints,ibox) + emsfc_lw*bb(1:npoints)*trans_layers_above(1:npoints,ibox) 
-       end do
+       END DO
 
        ! All Sky brightness temperature
@@ -445 +445 @@
                 levmatch(1:npoints,ibox)=ilev
              endwhere
-          end do
+          END DO
        end if
        where(tau(1:npoints,ibox) <= tauchk)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/math_lib.F90

@@ -209 +209 @@
           exit
        end if
-    end do
+    END DO
     
     if (lerror) then
@@ -244 +244 @@
        end if
        ilo = ilo + 1
-    end do
+    END DO
     
     ilo = max ( 2, ilo )
@@ -254 +254 @@
        end if
        ihi = ihi - 1
-    end do
+    END DO
     
     ihi = min ( ihi, ntab - 1 )
@@ -305 +305 @@
        syl = x2
        
-    end do
+    END DO
 
     result = sum1 + ca * ( b**3 - syl**3 ) / 3._wp &

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/modis_simulator.F90

@@ -222 +222 @@
           retrievedTau(i)              = R_UNDEF 
        end if
-    end do
+    END DO
     where((retrievedSize(1:nSubCols) < 0.).and.(retrievedSize(1:nSubCols) /= R_UNDEF)) &
          retrievedSize(1:nSubCols) = 1.0e-06_wp*re_fill
@@ -455 +455 @@
       end if 
       if(totalTau >= tauLimit) exit
-    end do 
+    END DO
 
     if (totalTau > 0._wp) then
@@ -489 +489 @@
       end if 
       if(totalTau >= tauLimit) exit
-    end do 
+    END DO
 
     if (totalTau > 0._wp) then
@@ -715 +715 @@
     do i = 1, size(cloudIndicies)
        call two_stream(tau(cloudIndicies(i)), g(cloudIndicies(i)), w0(cloudIndicies(i)), Refl(i), Trans(i))
-    end do
+    END DO
     
     call adding_doubling(count(tau(1:nLevels) > 0),Refl(:), Trans(:), Refl_tot, Trans_tot)  
@@ -897 +897 @@
        Refl_cumulative(i) = Refl_cumulative(i-1) + Refl(i)*(Tran_cumulative(i-1)**2)/(1._wp - Refl_cumulative(i-1) * Refl(i))
        Tran_cumulative(i) = (Tran_cumulative(i-1)*Tran(i)) / (1._wp - Refl_cumulative(i-1) * Refl(i))
-    end do
+    END DO
     
     Refl_tot = Refl_cumulative(size(Refl))

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/optics_lib.F90

@@ -539 +539 @@
     if (alam < cutice) then
        ! Region from 0.045 microns to 167.0 microns - no temperature depend
-       do i=2,nwl
-          if(alam < wl(i)) continue
-       enddo
        x1  = log(wl(i-1))
        x2  = log(wl(i))

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/quickbeam_optics.F90

@@ -1009 +1009 @@
           call mieint(sizep(i), m0(i), one, dqv, qext(i), dqsc, qbsca(i), &
                dg, xs1, xs2, dph, err)
-       end do
+       END DO
 
     else