| subroutine module_sf_ruclsm::snowsoil |
( |
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) | 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(in) | meltfactor, |
|
|
real (kind_phys), intent(in) | rhonewsn, |
|
|
real (kind_phys), intent(in) | snhei_crit, |
|
|
integer, intent(inout) | iland, |
|
|
real (kind_phys), intent(in) | prcpms, |
|
|
real (kind_phys), intent(in) | rainf, |
|
|
real (kind_phys), intent(in) | newsnow, |
|
|
real (kind_phys), intent(inout) | snhei, |
|
|
real (kind_phys), intent(inout) | snwe, |
|
|
real (kind_phys), intent(inout) | snowfrac, |
|
|
real (kind_phys), intent(inout) | rhosn, |
|
|
real (kind_phys), intent(in) | patm, |
|
|
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(in) | gswin, |
|
|
real (kind_phys), intent(inout) | emiss, |
|
|
real (kind_phys) | rnet, |
|
|
integer, intent(in) | ivgtyp, |
|
|
real (kind_phys), intent(in) | qkms, |
|
|
real (kind_phys), intent(in) | tkms, |
|
|
real (kind_phys), intent(in) | pc, |
|
|
real (kind_phys), intent(inout) | cst, |
|
|
real (kind_phys), intent(inout) | drip, |
|
|
real (kind_phys), intent(in) | infwater, |
|
|
real (kind_phys), intent(in) | rho, |
|
|
real (kind_phys), intent(in) | vegfrac, |
|
|
real (kind_phys), intent(inout) | alb, |
|
|
real (kind_phys), intent(inout) | znt, |
|
|
real (kind_phys), intent(in) | lai, |
|
|
logical, intent(in) | myj, |
|
|
real (kind_phys), intent(in) | qwrtz, |
|
|
real (kind_phys), intent(in) | rhocs, |
|
|
real (kind_phys), intent(in) | dqm, |
|
|
real (kind_phys), intent(in) | qmin, |
|
|
real (kind_phys), intent(in) | ref, |
|
|
real (kind_phys), intent(in) | wilt, |
|
|
real (kind_phys), intent(in) | psis, |
|
|
real (kind_phys), intent(in) | bclh, |
|
|
real (kind_phys), intent(in) | ksat, |
|
|
real (kind_phys), intent(in) | sat, |
|
|
real (kind_phys), intent(in) | cn, |
|
|
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:nzs), intent(in) | dtdzs2, |
|
|
real (kind_phys), dimension(1:5001), intent(in) | tbq, |
|
|
real (kind_phys), intent(in) | xlv, |
|
|
real (kind_phys) | cp, |
|
|
real (kind_phys) | rovcp, |
|
|
real (kind_phys), intent(in) | g0_p, |
|
|
real (kind_phys), intent(in) | cw, |
|
|
real (kind_phys) | stbolt, |
|
|
real (kind_phys) | tabs, |
|
|
real (kind_phys), intent(in) | kqwrtz, |
|
|
real (kind_phys), intent(in) | kice, |
|
|
real (kind_phys), intent(in) | kwt, |
|
|
integer, intent(inout) | ilnb, |
|
|
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) | soilmois, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | tso, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | smfrkeep, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | keepfr, |
|
|
real (kind_phys), intent(inout) | dew, |
|
|
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) | snom, |
|
|
real (kind_phys), intent(inout) | edir1, |
|
|
real (kind_phys), intent(inout) | ec1, |
|
|
real (kind_phys), intent(inout) | ett1, |
|
|
real (kind_phys), intent(inout) | eeta, |
|
|
real (kind_phys), intent(inout) | qfx, |
|
|
real (kind_phys), intent(inout) | hfx, |
|
|
real (kind_phys), intent(inout) | s, |
|
|
real (kind_phys), intent(inout) | sublim, |
|
|
real (kind_phys), intent(inout) | prcpl, |
|
|
real (kind_phys) | fltot, |
|
|
real (kind_phys), intent(inout) | runoff1, |
|
|
real (kind_phys), intent(inout) | runoff2, |
|
|
real (kind_phys), intent(inout) | mavail, |
|
|
real (kind_phys), dimension(1:nzs), intent(out) | soilice, |
|
|
real (kind_phys), dimension(1:nzs), intent(out) | soiliqw, |
|
|
real (kind_phys) | infiltrp ) |
|
private |
1.12.0