| 6 |
! latitude-pressure grid, and writes the values to a NetCDF file. |
! latitude-pressure grid, and writes the values to a NetCDF file. |
| 7 |
! The pressure grid is "presnivs" from "disvert". |
! The pressure grid is "presnivs" from "disvert". |
| 8 |
|
|
| 9 |
use dimens_m, 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 |
Parent Directory
| 
Revision Log
| 
Patch