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, nf95_redef |