21 |
use serre, only: clon, clat, grossismy, grossismx |
use serre, only: clon, clat, grossismy, grossismx |
22 |
use temps, only: day_ref, day_ini, itau_dyn, annee_ref |
use temps, only: day_ref, day_ini, itau_dyn, annee_ref |
23 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
24 |
use advtrac_m, only: tname |
use iniadvtrac_m, only: tname |
25 |
use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE |
use netcdf95, only: nf95_open, nf95_inq_varid, handle_err, NF95_CLOSE |
26 |
use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR |
use netcdf, only: NF90_NOWRITE, NF90_GET_VAR, NF90_NOERR |
27 |
use nrutil, only: assert |
use numer_rec, only: assert |
28 |
|
|
29 |
! Arguments: |
! Arguments: |
30 |
REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :) |
REAL, intent(out):: vcov(: , :), ucov(:, :), teta(:, :) |
31 |
REAL, intent(out):: q(:, :, :), masse(:, :) |
REAL, intent(out):: q(:, :, :), masse(:, :) |
32 |
REAL, intent(out):: ps(:), phis(:, :) |
REAL, intent(out):: ps(:) ! in Pa |
33 |
|
REAL, intent(out):: phis(:, :) |
34 |
REAL, intent(out):: time |
REAL, intent(out):: time |
35 |
|
|
36 |
! Variables |
! Variables |