45 |
|
|
46 |
REAL xprimm025(iim + 1), xprimp025(iim + 1) |
REAL xprimm025(iim + 1), xprimp025(iim + 1) |
47 |
REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm) |
REAL rlatu1(jjm), rlatu2(jjm), yprimu1(jjm), yprimu2(jjm) |
48 |
|
REAL ang0, etot0, ptot0, ztot0, stot0 |
49 |
|
|
50 |
save |
save |
51 |
|
|
61 |
use conf_gcm_m, only: raz_date |
use conf_gcm_m, only: raz_date |
62 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
63 |
use disvert_m, only: pa |
use disvert_m, only: pa |
|
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
|
64 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
65 |
use netcdf, only: NF90_NOWRITE, NF90_NOERR |
use netcdf, only: NF90_NOWRITE, NF90_NOERR |
66 |
use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, & |
use netcdf95, only: NF95_GET_VAR, nf95_open, nf95_inq_varid, NF95_CLOSE, & |