10 |
! longitudes and latitudes in degrees for grids u and v. |
! longitudes and latitudes in degrees for grids u and v. |
11 |
|
|
12 |
USE comconst, ONLY: g |
USE comconst, ONLY: g |
13 |
USE comgeom, ONLY: aire_2d, rlatu, rlatv, rlonu, rlonv |
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 |
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, & |
18 |
nf95_enddef, nf95_put_att, nf95_put_var, nf95_redef |
nf95_enddef, nf95_put_att, nf95_put_var |
19 |
USE nr_util, ONLY: pi |
USE nr_util, ONLY: pi |
20 |
USE start_init_orog_m, ONLY: mask |
USE start_init_orog_m, ONLY: mask |
21 |
|
|
24 |
|
|
25 |
! Local: |
! Local: |
26 |
|
|
27 |
REAL grille_s(iim+1, jjm+1) |
REAL grille_s(iim + 1, jjm + 1) |
28 |
INTEGER i, j |
INTEGER i, j |
29 |
|
|
30 |
! For Netcdf: |
! For Netcdf: |
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') |