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

    r5082 r5086  
    3030        do i=1,N-1
    3131        slope(i)=-(T(i+1)-T(i))/(alt(i+1)-alt(i))
    32         end do
     32        END DO
    3333        slope(N)=slope(N-1)
    3434
    … …  
    6060        i=i+i_dir
    6161        if (i<=1.or.i>=N) exit_flag=1
    62         end do
     62        END DO
    6363
    6464        if (first_point<=0) P_tropo=65.4321
Note: See TracChangeset for help on using the changeset viewer.