200 |
|
|
201 |
DO iq = 1, nqmx |
DO iq = 1, nqmx |
202 |
call NF95_INQ_VARID(ncid, tname(iq), varid, ierr) |
call NF95_INQ_VARID(ncid, tname(iq), varid, ierr) |
203 |
IF (ierr /= NF90_NOERR) THEN |
IF (ierr == NF90_NOERR) THEN |
204 |
|
call NF95_GET_VAR(ncid, varid, q(:, :, :, iq)) |
205 |
|
ELSE |
206 |
PRINT *, 'dynetat0: "' // tname(iq) // '" not found, ' // & |
PRINT *, 'dynetat0: "' // tname(iq) // '" not found, ' // & |
207 |
"setting it to zero..." |
"setting it to zero..." |
208 |
q(:, :, :, iq) = 0. |
q(:, :, :, iq) = 0. |
|
ELSE |
|
|
call NF95_GET_VAR(ncid, varid, q(:, :, :, iq)) |
|
209 |
ENDIF |
ENDIF |
210 |
ENDDO |
ENDDO |
211 |
|
|