subroutine ozphys_2015::ozphys_2015_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
ko3, |
|
|
real(kind=kind_phys), intent(in) |
dt, |
|
|
real(kind=kind_phys), dimension(im,levs), intent(inout) |
oz, |
|
|
real(kind=kind_phys), dimension(im,levs), intent(in) |
tin, |
|
|
real(kind=kind_phys), dimension(ko3), intent(in) |
po3, |
|
|
real(kind=kind_phys), dimension(im,levs), intent(in) |
prsl, |
|
|
real(kind=kind_phys), dimension(im,ko3,pl_coeff), intent(in) |
prdout, |
|
|
integer, intent(in) |
pl_coeff, |
|
|
real(kind=kind_phys), dimension(im,levs), intent(in) |
delp, |
|
|
logical |
ldiag3d, |
|
|
logical |
qdiag3d, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
ozp1, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
ozp2, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
ozp3, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
ozp4, |
|
|
real(kind=kind_phys), intent(in) |
con_g, |
|
|
integer, intent(in) |
me, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |