11 |
|
|
12 |
USE comconst, ONLY: g |
USE comconst, ONLY: g |
13 |
USE comgeom, ONLY: aire_2d |
USE comgeom, ONLY: aire_2d |
14 |
USE dimens_m, ONLY: iim, jjm |
USE dimensions, ONLY: iim, jjm |
15 |
use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv |
use dynetat0_m, only: rlatu, rlatv, rlonu, rlonv |
16 |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_int |
USE netcdf, ONLY: nf90_clobber, nf90_float, nf90_int |
17 |
USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, & |
USE netcdf95, ONLY: nf95_close, nf95_create, nf95_def_dim, nf95_def_var, & |
61 |
call NF95_PUT_ATT(ncid, varid_latv, 'units', 'degrees_north') |
call NF95_PUT_ATT(ncid, varid_latv, 'units', 'degrees_north') |
62 |
call NF95_PUT_ATT(ncid, varid_latv, 'long_name', 'Latitude en v') |
call NF95_PUT_ATT(ncid, varid_latv, 'long_name', 'Latitude en v') |
63 |
|
|
|
call NF95_DEF_VAR(ncid, 'grille_u', NF90_FLOAT, (/dimid_lonu, & |
|
|
dimid_latu/), varid) |
|
|
call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points u') |
|
|
|
|
|
call NF95_DEF_VAR(ncid, 'grille_v', NF90_FLOAT, (/dimid_lonv, & |
|
|
dimid_latv/), varid) |
|
|
call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points v') |
|
|
|
|
64 |
call NF95_DEF_VAR(ncid, 'grille_s', NF90_FLOAT, (/dimid_lonv, & |
call NF95_DEF_VAR(ncid, 'grille_s', NF90_FLOAT, (/dimid_lonv, & |
65 |
dimid_latu/), varid) |
dimid_latu/), varid) |
66 |
call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points scalaires') |
call NF95_PUT_ATT(ncid, varid, 'long_name', 'Grille aux points scalaires') |