subroutine module_sf_ruclsm::sice |
( |
logical, intent(in) | debug_print, |
|
|
real (kind_phys), intent(in) | xlat, |
|
|
real (kind_phys), intent(in) | xlon, |
|
|
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) | prcpms, |
|
|
real (kind_phys) | rainf, |
|
|
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) | emiss, |
|
|
real (kind_phys), intent(inout) | rnet, |
|
|
real (kind_phys), intent(in) | qkms, |
|
|
real (kind_phys), intent(in) | tkms, |
|
|
real (kind_phys), intent(in) | rho, |
|
|
logical, intent(in) | myj, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | tice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | rhosice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | capice, |
|
|
real (kind_phys), dimension(1:nzs), intent(in) | thdifice, |
|
|
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) | cw, |
|
|
real (kind_phys) | stbolt, |
|
|
real (kind_phys) | tabs, |
|
|
real (kind_phys), dimension( 1:nzs ), intent(inout) | tso, |
|
|
real (kind_phys), intent(inout) | dew, |
|
|
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), 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) | evapl, |
|
|
real (kind_phys), intent(inout) | prcpl, |
|
|
real (kind_phys) | fltot ) |
|
private |