Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/modis_simulator.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/modis_simulator.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/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))