18 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
19 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
20 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
21 |
use logic, only: fxyhypb, ysinus |
use conf_gcm_m, only: fxyhypb, ysinus |
22 |
use serre, only: clon, clat, grossismy, grossismx |
use serre, only: clon, clat, grossismy, grossismx |
23 |
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, & |
24 |
NF95_Gw_VAR |
NF95_Gw_VAR |