128 |
call nf95_enddef(nid) |
call nf95_enddef(nid) |
129 |
call nf95_put_var(nid, nvarid, pctsrf(:, is_sic)) |
call nf95_put_var(nid, nvarid, pctsrf(:, is_sic)) |
130 |
|
|
|
|
|
|
|
|
131 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
132 |
IF (nsrf<=99) THEN |
IF (nsrf<=99) THEN |
133 |
WRITE (str2, '(i2.2)') nsrf |
WRITE (str2, '(i2.2)') nsrf |
243 |
call nf95_put_var(nid, nvarid, evap(:, nsrf)) |
call nf95_put_var(nid, nvarid, evap(:, nsrf)) |
244 |
END DO |
END DO |
245 |
|
|
|
|
|
246 |
DO nsrf = 1, nbsrf |
DO nsrf = 1, nbsrf |
247 |
IF (nsrf<=99) THEN |
IF (nsrf<=99) THEN |
248 |
WRITE (str2, '(i2.2)') nsrf |
WRITE (str2, '(i2.2)') nsrf |
258 |
call nf95_put_var(nid, nvarid, snow(:, nsrf)) |
call nf95_put_var(nid, nvarid, snow(:, nsrf)) |
259 |
END DO |
END DO |
260 |
|
|
|
|
|
261 |
call nf95_redef(nid) |
call nf95_redef(nid) |
262 |
call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid) |
call nf95_def_var(nid, 'RADS', nf90_float, idim2, nvarid) |
263 |
call nf95_put_att(nid, nvarid, 'title', & |
call nf95_put_att(nid, nvarid, 'title', & |
400 |
call nf95_enddef(nid) |
call nf95_enddef(nid) |
401 |
call nf95_put_var(nid, nvarid, run_off_lic_0) |
call nf95_put_var(nid, nvarid, run_off_lic_0) |
402 |
|
|
|
|
|
403 |
call nf95_close(nid) |
call nf95_close(nid) |
404 |
|
|
405 |
END SUBROUTINE phyredem |
END SUBROUTINE phyredem |