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/phylmd/cv30_routines.F90

    r5082 r5086  
    15481548            ! !!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
    15491549            ! !!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
    1550             ! !!!      end do
     1550            ! !!!      END DO
    15511551            elij(il, i, j) = altem
    15521552            elij(il, i, j) = amax1(0.0, elij(il,i,j))
    … …  
    21442144            ! :            +tra(il,i,j)*(mp(il,i)-mp(il,i+1))
    21452145            ! trap(il,i,j)=trap(il,i,j)/mp(il,i)
    2146             ! end do
     2146            ! END DO
    21472147
    21482148          ELSE
    … …  
    21612161              ! do j=1,ntra
    21622162              ! trap(il,i,j)=trap(il,i+1,j)
    2163               ! end do
     2163              ! END DO
    21642164
    21652165            END IF
Note: See TracChangeset for help on using the changeset viewer.