13 |
! This procedure reads the initial state of the atmosphere. |
! This procedure reads the initial state of the atmosphere. |
14 |
|
|
15 |
use comconst, only: im, dtvr, jm, lllm |
use comconst, only: im, dtvr, jm, lllm |
|
use comvert, only: pa |
|
16 |
use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d |
use comgeom, only: rlonu, rlatu, rlonv, rlatv, cu_2d, cv_2d, aire_2d |
17 |
|
use conf_gcm_m, only: fxyhypb, ysinus |
18 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
19 |
|
use disvert_m, only: pa |
20 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
use ener, only: etot0, ang0, ptot0, stot0, ztot0 |
21 |
use iniadvtrac_m, only: tname |
use iniadvtrac_m, only: tname |
22 |
use conf_gcm_m, only: fxyhypb, ysinus |
use netcdf, only: NF90_NOWRITE, NF90_NOERR |
|
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 |
|
use netcdf, only: NF90_NOWRITE, NF90_NOERR |
|
25 |
use nr_util, only: assert |
use nr_util, only: assert |
26 |
|
use serre, only: clon, clat, grossismy, grossismx |
27 |
use temps, only: day_ref, itau_dyn, annee_ref |
use temps, only: day_ref, itau_dyn, annee_ref |
28 |
|
|
29 |
REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm) |
REAL, intent(out):: vcov(: , :, :) ! (iim + 1, jjm, llm) |