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/dyn3d_common/fxhyp_m.F90

    r2598 r5086  
    191191             do while (rlonm025(is2) < - pi .and. is2 < iim)
    192192                is2 = is2 + 1
    193              end do
     193             END DO
    194194
    195195             if (rlonm025(is2) < - pi) then
    … …  
    202202             do while (rlonm025(is2) > pi .and. is2 > 1)
    203203                is2 = is2 - 1
    204              end do
     204             END DO
    205205
    206206             if (rlonm025(is2) > pi) then
Note: See TracChangeset for help on using the changeset viewer.