12 |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
13 |
use dynredem0_m, only: ncid |
use dynredem0_m, only: ncid |
14 |
USE iniadvtrac_m, ONLY: tname |
USE iniadvtrac_m, ONLY: tname |
15 |
use netcdf, only: nf90_write |
use netcdf95, only: nf95_close, nf95_inq_varid, nf95_put_var |
|
use netcdf95, only: nf95_close, nf95_inq_varid, nf95_open, nf95_put_var |
|
16 |
use nr_util, only: assert |
use nr_util, only: assert |
17 |
|
|
18 |
REAL, INTENT(IN):: vcov(:, :, :) ! (iim + 1, jjm, llm) |
REAL, INTENT(IN):: vcov(:, :, :) ! (iim + 1, jjm, llm) |