subroutine module_sf_ruclsm::snowtemp |
( |
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, |
|
|
integer, intent(in) | isncond_opt, |
|
|
integer, intent(in) | isncovr_opt, |
|
|
real (kind_phys), intent(inout) | snwe, |
|
|
real (kind_phys), intent(in) | snwepr, |
|
|
real (kind_phys), intent(inout) | snhei, |
|
|
real (kind_phys), intent(in) | newsnow, |
|
|
real (kind_phys), intent(inout) | snowfrac, |
|
|
real (kind_phys), intent(in) | snhei_crit, |
|
|
real (kind_phys) | beta, |
|
|
real (kind_phys), intent(in) | deltsn, |
|
|
real (kind_phys), intent(in) | snth, |
|
|
real (kind_phys), intent(inout) | rhosn, |
|
|
real (kind_phys), intent(in) | rhonewsn, |
|
|
real (kind_phys), intent(in) | meltfactor, |
|
|
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) | glw, |
|
|
real (kind_phys), intent(in) | gsw, |
|
|
real (kind_phys), intent(inout) | emiss, |
|
|
real (kind_phys) | 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), 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) | cst, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | tranf, |
|
|
real (kind_phys), intent(in) | transum, |
|
|
real (kind_phys), intent(inout) | dew, |
|
|
real (kind_phys), intent(inout) | mavail, |
|
|
real (kind_phys), intent(in) | dqm, |
|
|
real (kind_phys), intent(in) | qmin, |
|
|
real (kind_phys), intent(in) | psis, |
|
|
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) | xlvm, |
|
|
real (kind_phys), intent(in) | cp, |
|
|
real (kind_phys), intent(in) | rovcp, |
|
|
real (kind_phys), intent(in) | g0_p, |
|
|
real (kind_phys), intent(in) | cvw, |
|
|
real (kind_phys), intent(in) | stbolt, |
|
|
real (kind_phys), intent(out) | snweprint, |
|
|
real (kind_phys), intent(out) | snheiprint, |
|
|
real (kind_phys), intent(out) | rsm, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | tso, |
|
|
real (kind_phys), intent(inout) | soilt, |
|
|
real (kind_phys), intent(inout) | soilt1, |
|
|
real (kind_phys), intent(inout) | tsnav, |
|
|
real (kind_phys), intent(inout) | qvg, |
|
|
real (kind_phys), intent(inout) | qsg, |
|
|
real (kind_phys), intent(inout) | qcg, |
|
|
real (kind_phys), intent(inout) | smelt, |
|
|
real (kind_phys), intent(inout) | snoh, |
|
|
real (kind_phys), intent(inout) | snflx, |
|
|
real (kind_phys), intent(inout) | s, |
|
|
integer, intent(out) | ilnb, |
|
|
real (kind_phys) | x ) |
|
private |