subroutine gfs_photochemistry::gfs_photochemistry_run |
( |
real(kind=kind_phys), intent(in) | dtp, |
|
|
type(ty_ozphys), intent(in) | ozphys, |
|
|
logical, intent(in) | oz_phys_2015, |
|
|
logical, intent(in) | oz_phys_2006, |
|
|
real(kind=kind_phys), intent(in) | con_1ovg, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | prsl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | dp, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | ozpl, |
|
|
logical, intent(in) | h2o_phys, |
|
|
type(ty_h2ophys), intent(in) | h2ophys, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) | h2opl, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | h2o0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | oz0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | gt0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | do3_dt_prd, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | do3_dt_ozmx, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | do3_dt_temp, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | do3_dt_ohoz, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |