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 dimens_m, 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: |