127 |
name_out(i_v) = "a2" |
name_out(i_v) = "a2" |
128 |
|
|
129 |
i_v = i_v + 1 |
i_v = i_v + 1 |
130 |
name_in(i_v) = "r" |
name_in(i_v) = "tro3" |
131 |
name_out(i_v) = "r_Mob" |
name_out(i_v) = "r_Mob" |
132 |
|
|
133 |
i_v = i_v + 1 |
i_v = i_v + 1 |
241 |
use dimens_m, only: jjm |
use dimens_m, only: jjm |
242 |
use comgeom, only: rlatu |
use comgeom, only: rlatu |
243 |
use comconst, only: pi |
use comconst, only: pi |
244 |
use numer_rec, only: assert_eq |
use nr_util, only: assert_eq |
245 |
|
|
246 |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
247 |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |