Changeset 1403 for LMDZ4/trunk/libf/phylmd/regr_pr_av_m.F90
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/regr_pr_av_m.F90
r1279 r1403 21 21 ! latitude, pressure, julian day. 22 22 ! We assume that the input fields are already on the "rlatu" 23 ! latitudes, except hthat latitudes are in ascending order in the input23 ! latitudes, except that latitudes are in ascending order in the input 24 24 ! file. 25 ! We assume that the inputs fields have the same pressure coordinate.25 ! We assume that all the inputs fields have the same coordinates. 26 26 27 27 ! The target vertical LMDZ grid is the grid of layer boundaries. … … 91 91 if (is_mpi_root) then 92 92 do i = 1, n_var 93 call nf95_inq_varid(ncid, name(i), varid)93 call nf95_inq_varid(ncid, trim(name(i)), varid) 94 94 95 95 ! Get data at the right day from the input file: 96 96 ncerr = nf90_get_var(ncid, varid, v1(1, :, :, i), & 97 97 start=(/1, 1, julien/)) 98 call handle_err("regr_pr_av nf90_get_var " // name(i), ncerr, ncid) 98 call handle_err("regr_pr_av nf90_get_var " // trim(name(i)), ncerr, & 99 ncid) 99 100 end do 100 101
Note: See TracChangeset
for help on using the changeset viewer.