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/regr_lat_time_coefoz_m.F90

    r5075 r5086  
    182182    do i_v = 1, n_o3_param
    183183       call nf95_inq_varid(ncid_in, trim(name_in(i_v)), varid_in(i_v))
    184     end do
     184    END DO
    185185
    186186    ! Create the output file and get the variable IDs:
    … …  
    225225            o3_par_out(nbp_lat:1:-1, :, :))
    226226       ! (The order of "rlatu" is inverted in the output file)
    227     end do
     227    END DO
    228228
    229229    call nf95_close(ncid_out)
    … …  
    309309            & varid_out(i))
    310310       call handle_err_copy_att("standard_name")
    311     end do
     311    END DO
    312312
    313313    ! Global attributes:
Note: See TracChangeset for help on using the changeset viewer.