10 |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
! Ecriture du fichier de redémarrage au format NetCDF (initialisation) |
11 |
|
|
12 |
USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad |
USE comconst, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad |
13 |
USE comvert, ONLY: ap, bp, nivsig, nivsigs, pa, preff, presnivs |
USE disvert_m, ONLY: ap, bp, pa, preff, presnivs |
14 |
USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv |
USE comgeom, ONLY: aire_2d, cu_2d, cv_2d, rlatu, rlatv, rlonu, rlonv |
15 |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
USE dimens_m, ONLY: iim, jjm, llm, nqmx |
16 |
USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0 |
USE ener, ONLY: ang0, etot0, ptot0, stot0, ztot0 |
135 |
CALL nf95_def_var(ncid, 'rlatv', nf90_float, idim_rlatv, varid) |
CALL nf95_def_var(ncid, 'rlatv', nf90_float, idim_rlatv, varid) |
136 |
CALL nf95_put_att(ncid, varid, 'title', 'Latitudes des points V') |
CALL nf95_put_att(ncid, varid, 'title', 'Latitudes des points V') |
137 |
|
|
|
CALL nf95_def_var(ncid, 'nivsigs', nf90_float, idim_s, varid) |
|
|
CALL nf95_put_att(ncid, varid, 'title', 'Numero naturel des couches s') |
|
|
|
|
|
CALL nf95_def_var(ncid, 'nivsig', nf90_float, idim_sig, varid) |
|
|
CALL nf95_put_att(ncid, varid, 'title', & |
|
|
'Numero naturel des couches sigma') |
|
|
|
|
138 |
CALL nf95_def_var(ncid, 'ap', nf90_float, idim_sig, varid) |
CALL nf95_def_var(ncid, 'ap', nf90_float, idim_sig, varid) |
139 |
CALL nf95_put_att(ncid, varid, 'title', 'Coefficient A pour hybride') |
CALL nf95_put_att(ncid, varid, 'title', 'Coefficient A pour hybride') |
140 |
|
|
214 |
CALL nf95_inq_varid(ncid, 'rlatv', varid) |
CALL nf95_inq_varid(ncid, 'rlatv', varid) |
215 |
CALL nf95_put_var(ncid, varid, rlatv) |
CALL nf95_put_var(ncid, varid, rlatv) |
216 |
|
|
|
CALL nf95_inq_varid(ncid, 'nivsigs', varid) |
|
|
CALL nf95_put_var(ncid, varid, nivsigs) |
|
|
|
|
|
CALL nf95_inq_varid(ncid, 'nivsig', varid) |
|
|
CALL nf95_put_var(ncid, varid, nivsig) |
|
|
|
|
217 |
CALL nf95_inq_varid(ncid, 'ap', varid) |
CALL nf95_inq_varid(ncid, 'ap', varid) |
218 |
CALL nf95_put_var(ncid, varid, ap) |
CALL nf95_put_var(ncid, varid, ap) |
219 |
|
|