subroutine, public dcyc2t3::dcyc2t3_run |
( |
real(kind=kind_phys), intent(in) | solhr, |
|
|
real(kind=kind_phys), intent(in) | slag, |
|
|
real(kind=kind_phys), intent(in) | sdec, |
|
|
real(kind=kind_phys), intent(in) | cdec, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sinlat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | coslat, |
|
|
real(kind_phys), intent(in) | con_g, |
|
|
real(kind_phys), intent(in) | con_cp, |
|
|
real(kind_phys), intent(in) | con_pi, |
|
|
real(kind_phys), intent(in) | con_sbc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | xlon, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | coszen, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsfc_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsfc_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsfc_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tf, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsflw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | tsfc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcemis_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcemis_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcemis_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcdswc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcnsw, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcdlw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | swh, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | swhc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | hlw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | hlwc, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcnirbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcnirdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcvisbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcvisdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcnirbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcnirdfd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcvisbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfcvisdfd, |
|
|
integer, intent(in) | im, |
|
|
integer, intent(in) | levs, |
|
|
real(kind=kind_phys), intent(in) | deltim, |
|
|
real(kind=kind_phys), intent(in) | fhswr, |
|
|
logical, dimension(:), intent(in) | dry, |
|
|
logical, dimension(:), intent(in) | icy, |
|
|
logical, dimension(:), intent(in) | wet, |
|
|
logical, intent(in) | damp_lw_fluxadj, |
|
|
real(kind=kind_phys), intent(in) | lfnc_k, |
|
|
real(kind=kind_phys), intent(in) | lfnc_p0, |
|
|
logical, intent(in) | use_lw_jacobian, |
|
|
real(kind=kind_phys), dimension(:), intent(in) | sfculw, |
|
|
logical, intent(in) | use_med_flux, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | sfculw_med, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in), optional | fluxlwup_jac, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | t_lay, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | p_lay, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) | p_lev, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in), optional | flux2d_lwup, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in), optional | flux2d_lwdown, |
|
|
logical, intent(in) | pert_radtend, |
|
|
logical, intent(in) | do_sppt, |
|
|
logical, intent(in) | ca_global, |
|
|
real(kind=kind_phys), dimension(:), intent(in), optional | tsfc_radtime, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) | dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | dtdtnp, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout), optional | htrlw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfcdswc, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfcnsw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfcdlw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfculw_lnd, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfculw_ice, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjsfculw_wat, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | xmu, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | xcosz, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjnirbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjnirdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjvisbmu, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjvisdfu, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjnirbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjnirdfd, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjvisbmd, |
|
|
real(kind=kind_phys), dimension(:), intent(out) | adjvisdfd, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |