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) |
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, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
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) |
flux2D_lwUP, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
flux2D_lwDOWN, |
|
|
logical, intent(in) |
pert_radtend, |
|
|
logical, intent(in) |
do_sppt, |
|
|
logical, intent(in) |
ca_global, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
tsfc_radtime, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dtdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
dtdtnp, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
htrlw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
adjsfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
adjsfcnsw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
adjsfcdlw, |
|
|
real(kind=kind_phys), dimension(:), intent(out) |
adjsfculw, |
|
|
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 |
|
) |
| |