113 |
|
|
114 |
!--------------------------------- |
!--------------------------------- |
115 |
|
|
116 |
print *, "Call sequence information: regr_coefoz" |
print *, "Call sequence information: regr_lat_time_coefoz" |
117 |
|
|
118 |
! Names of ozone parameters: |
! Names of ozone parameters: |
119 |
i_v = 0 |
i_v = 0 |
239 |
use dimens_m, only: jjm |
use dimens_m, only: jjm |
240 |
use comgeom, only: rlatu |
use comgeom, only: rlatu |
241 |
use comconst, only: pi |
use comconst, only: pi |
242 |
use nrutil, only: assert_eq |
use numer_rec, only: assert_eq |
243 |
|
|
244 |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, & |
245 |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |
nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var |