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/prather.F

    r5082 r5086  
    149149       call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
    150150     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    151         end do
     151        END DO
    152152        do l=1,llm
    153153        do i=1,iip1
    … …  
    206206       call advxp( limit,0.5*dt,pbaru,sm,s0,sx,sy,sz
    207207     .             ,sxx,sxy,sxz,syy,syz,szz,1 )
    208         end do
     208        END DO
    209209c---------------------------------------------------------
    210210c---------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.