35 |
USE histcom_var, ONLY: full_size, hax_name, nb_hax, ncdf_ids, & |
USE histcom_var, ONLY: full_size, hax_name, nb_hax, ncdf_ids, & |
36 |
slab_ori, slab_sz, xid, yid |
slab_ori, slab_sz, xid, yid |
37 |
USE netcdf, ONLY: nf90_def_var, nf90_enddef, nf90_float, & |
USE netcdf, ONLY: nf90_def_var, nf90_enddef, nf90_float, & |
38 |
nf90_put_att, nf90_put_var, nf90_redef |
nf90_put_att, nf90_put_var |
39 |
|
use netcdf95, only: nf95_redef |
40 |
|
|
41 |
INTEGER, INTENT (IN):: pfileid, pim, pjm |
INTEGER, INTENT (IN):: pfileid, pim, pjm |
42 |
REAL, INTENT (IN), DIMENSION (pim, pjm):: plon, plat |
REAL, INTENT (IN), DIMENSION (pim, pjm):: plon, plat |
127 |
|
|
128 |
iret = nf90_put_var(ncid, nlatid, plat(1, 1:par_szy)) |
iret = nf90_put_var(ncid, nlatid, plat(1, 1:par_szy)) |
129 |
|
|
130 |
iret = nf90_redef(ncid) |
call nf95_redef(ncid) |
131 |
|
|
132 |
END SUBROUTINE histhori_regular |
END SUBROUTINE histhori_regular |
133 |
|
|