23 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
24 |
use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE |
use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE |
25 |
use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR |
use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR |
26 |
use numer_rec, only: assert |
use nr_util, only: assert |
27 |
|
|
28 |
! Arguments: |
! Arguments: |
29 |
REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :) |
REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :) |