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

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/bulk_flux_m.F90

@@ -140 +140 @@
                   rain = null_array, qcol = rnl + hf + hlb - dels)
           end if
-       end do
+       END DO
     else
        tkt = 0.