Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (4 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/inter_barxy_m.F90

    r5082 r5086  
    270270          x0   = xxid(idat)
    271271          idat = idat + 1
    272        end do
     272       END DO
    273273       IF (xxim(imod)<xxid(idat)) THEN
    274274          dx   = xxim(imod) - x0
    … …  
    287287          idat = idat + 1
    288288       END IF
    289     end do
     289    END DO
    290290
    291291  END function inter_barx
    … …  
    339339          y0         = yjdat(jdat)
    340340          jdat       = jdat + 1
    341        end do
     341       END DO
    342342       IF (yjmod(jmod) < yjdat(jdat)) THEN
    343343          dy         = yjmod(jmod) - y0
    … …  
    357357          jdat       = jdat + 1
    358358       END IF
    359     end do
     359    END DO
    360360    ! Le test de fin suppose que l'interface 0 est commune aux deux
    361361    ! grilles "yjdat" et "yjmod".
Note: See TracChangeset for help on using the changeset viewer.