subroutine module_sf_ruclsm::soiltemp |
( |
logical, intent(in) | debug_print, |
|
|
real (kind_phys), intent(in) | xlat, |
|
|
real (kind_phys), intent(in) | xlon, |
|
|
real (kind_phys), intent(in) | testptlat, |
|
|
real (kind_phys), intent(in) | testptlon, |
|
|
integer, intent(in) | i, |
|
|
integer, intent(in) | j, |
|
|
integer, intent(in) | iland, |
|
|
integer, intent(in) | isoil, |
|
|
real (kind_phys), intent(in) | delt, |
|
|
integer, intent(in) | ktau, |
|
|
real (kind_phys), intent(in) | conflx, |
|
|
integer, intent(in) | nzs, |
|
|
integer, intent(in) | nddzs, |
|
|
integer, intent(in) | nroot, |
|
|
real (kind_phys), intent(in) | prcpms, |
|
|
real (kind_phys), intent(in) | rainf, |
|
|
real (kind_phys), intent(in) | patm, |
|
|
real (kind_phys), intent(in) | tabs, |
|
|
real (kind_phys), intent(in) | qvatm, |
|
|
real (kind_phys), intent(in) | qcatm, |
|
|
real (kind_phys), intent(in) | emiss, |
|
|
real (kind_phys), intent(in) | rnet, |
|
|
real (kind_phys), intent(in) | qkms, |
|
|
real (kind_phys), intent(in) | tkms, |
|
|
real (kind_phys), intent(in) | pc, |
|
|
real (kind_phys), intent(in) | rho, |
|
|
real (kind_phys), intent(in) | vegfrac, |
|
|
real (kind_phys), intent(in) | lai, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | thdif, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | cap, |
|
|
real (kind_phys), intent(inout) | drycan, |
|
|
real (kind_phys), intent(inout) | wetcan, |
|
|
real (kind_phys), intent(inout) | transum, |
|
|
real (kind_phys), intent(in) | dew, |
|
|
real (kind_phys), intent(inout) | mavail, |
|
|
real (kind_phys), intent(in) | soilres, |
|
|
real (kind_phys), intent(in) | alfa, |
|
|
real (kind_phys), intent(in) | dqm, |
|
|
real (kind_phys), intent(in) | qmin, |
|
|
real (kind_phys), intent(in) | bclh, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | zsmain, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | zshalf, |
|
|
real (kind_phys), dimension(1:nddzs), intent(in) | dtdzs, |
|
|
real (kind_phys), dimension(1:5001), intent(in) | tbq, |
|
|
real (kind_phys), intent(in) | xlv, |
|
|
real (kind_phys), intent(in) | cp, |
|
|
real (kind_phys), intent(in) | g0_p, |
|
|
real (kind_phys), intent(in) | cvw, |
|
|
real (kind_phys), intent(in) | stbolt, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | tso, |
|
|
real (kind_phys), intent(inout) | soilt, |
|
|
real (kind_phys), intent(inout) | qvg, |
|
|
real (kind_phys), intent(inout) | qsg, |
|
|
real (kind_phys), intent(inout) | qcg, |
|
|
real (kind_phys) | x ) |
|
private |