Changeset 5086 for LMDZ6/branches/Amaury_dev/libf/phylmd/phyetat0_mod.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/phyetat0_mod.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/phyetat0_mod.F90

@@ -321 +321 @@
         IF (.NOT. found) THEN
            PRINT*, "phyetat0: Le champ <Tsoil"//str7//"> est absent"
-           PRINT*, "          Il prend donc la valeur de surface"
+           PRINT*, "          Il prEND DOnc la valeur de surface"
            tsoil(:, isoil, :)=ftsol(:, :)
         ENDIF