Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (2 months ago)
Author:
abarral
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyetat0_mod.F90

    r5082 r5086  
    342342        IF (.NOT. found) THEN
    343343           PRINT*, "phyetat0: Le champ <Tsoil"//str7//"> est absent"
    344            PRINT*, "          Il prend donc la valeur de surface"
     344           PRINT*, "          Il prEND DOnc la valeur de surface"
    345345           tsoil(:, isoil, :)=ftsol(:, :)
    346346        ENDIF
Note: See TracChangeset for help on using the changeset viewer.