12 |
! \'Ecriture du fichier de red\'emarrage au format NetCDF (initialisation) |
! \'Ecriture du fichier de red\'emarrage au format NetCDF (initialisation) |
13 |
|
|
14 |
USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad |
USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad |
15 |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
USE dimensions, ONLY: iim, jjm, llm, nqmx |
16 |
USE disvert_m, ONLY: ap, bp, pa, preff, presnivs |
USE disvert_m, ONLY: ap, bp, preff, presnivs |
17 |
use dynetat0_m, only: day_ref, annee_ref, clat, clon, dzoomx, dzoomy, & |
use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv, rlatu1, rlatu2, yprimu1, & |
18 |
grossismx, grossismy, taux, tauy, rlatu, rlatv, rlonu, rlonv, rlatu1, & |
yprimu2, xprimp025, xprimm025, xprimu, xprimv, ang0, etot0, ptot0, & |
19 |
rlatu2, yprimu1, yprimu2, xprimp025, xprimm025, xprimu, xprimv |
stot0, ztot0 |
20 |
USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0 |
use dynetat0_chosen_m, only: pa, day_ref, annee_ref, clat, clon, dzoomx, & |
21 |
USE iniadvtrac_m, ONLY: tname, ttext |
dzoomy, grossismx, grossismy, taux, tauy |
22 |
|
USE infotrac_init_m, ONLY: tname, ttext |
23 |
USE ju2ymds_m, ONLY: ju2ymds |
USE ju2ymds_m, ONLY: ju2ymds |
24 |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_global, nf90_unlimited |
25 |
USE netcdf95, ONLY: nf95_create, nf95_def_dim, nf95_def_var, nf95_enddef, & |
USE netcdf95, ONLY: nf95_create, nf95_def_dim, nf95_def_var, nf95_enddef, & |