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/tools/netcdf95/Variables/nf95_gw_var.f90

    r4918 r5086  
    152152    do i = 1, 4
    153153       call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
    154     end do
     154    END DO
    155155
    156156    allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4)))
    … …  
    186186    do i = 1, 5
    187187       call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
    188     end do
     188    END DO
    189189
    190190    allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4), len_dim(5)))
    … …  
    323323    do i = 1, 4
    324324       call nf95_inquire_dimension(ncid, dimids(i), nclen=len_dim(i))
    325     end do
     325    END DO
    326326
    327327    allocate(values(len_dim(1), len_dim(2), len_dim(3), len_dim(4)))
Note: See TracChangeset for help on using the changeset viewer.