9 |
use dimensions, only: jjm, llm |
use dimensions, only: jjm, llm |
10 |
USE dimphy, ONLY : klon |
USE dimphy, ONLY : klon |
11 |
use disvert_m, only: pa, disvert, ap, bp, preff, presnivs |
use disvert_m, only: pa, disvert, ap, bp, preff, presnivs |
|
use jumble, only: new_unit |
|
12 |
use ozonecm_m, only: ozonecm |
use ozonecm_m, only: ozonecm |
13 |
use phyetat0_m, only: rlat |
use phyetat0_m, only: rlat |
14 |
use nr_util, only: arth, assert |
use nr_util, only: arth, assert |
15 |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, nf95_put_att, & |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, nf95_put_att, & |
16 |
nf95_enddef, nf95_put_var, nf95_close |
nf95_enddef, nf95_put_var, nf95_close |
17 |
use netcdf, only: nf90_clobber, nf90_float, nf90_global |
use netcdf, only: nf90_clobber, nf90_float, nf90_global |
18 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml, set_unit_nml |
19 |
|
|
20 |
implicit none |
implicit none |
21 |
|
|
34 |
|
|
35 |
call assert(klon == jjm + 1, "test_ozonecm: iim should be 1") |
call assert(klon == jjm + 1, "test_ozonecm: iim should be 1") |
36 |
|
|
37 |
call new_unit(unit_nml) |
call set_unit_nml |
38 |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
open(unit_nml, file="used_namelists.txt", status="replace", action="write") |
39 |
|
|
40 |
pa = 5e4 |
pa = 5e4 |