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/phylmdiso/cv3_routines.F90

    r5082 r5086  
    29652965!!!!      traent(il,i,j,k)=sij(il,i,j)*tra(il,i,k)
    29662966!!!!     :      +(1.-sij(il,i,j))*tra(il,nk(il),k)
    2967 !!!!      end do
     2967!!!!      END DO
    29682968            elij(il, i, j) = altem
    29692969            elij(il, i, j) = max(0.0, elij(il,i,j))
    … …  
    44854485!AC!        endif ! (i.lt.inb(il) .and. lwork(il))
    44864486!AC!       enddo
    4487 !AC!      end do
     4487!AC!      END DO
    44884488
    44894489#ifdef ISO
Note: See TracChangeset for help on using the changeset viewer.