Subroutine vom_subhourly_init
1454 :
1455 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1456 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1457 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1458 : !*----- setting variables from previous loop----------------------------
1459 :
1460 : subroutine vom_subhourly_init ()
1461 : use vom_vegwat_mod
1462 : implicit none
1463 :
1464 : if (wlayernew .lt. pos_slt) then
1465 : rsurft_(wlayernew+1:pos_slt) = i_rsurfmin * s_delz(wlayernew+1:pos_slt)
1466 : endif
1467 : if (wlayernew .lt. pos_slg) then
1468 : rsurfg_(wlayernew+1:pos_slg) = i_rsurfmin * s_delz(wlayernew+1:pos_slt)
1469 : endif
1470 :
1471 : mqt_ = mqtnew
1472 : zw_ = zwnew
1473 : wlayer_ = wlayernew
1474 : su__(:) = sunew(:)
1475 : pcap_(:) = pcapnew(:)
1476 : kunsat_(:) = kunsatnew(:)
1477 :
1478 : return
1479 : end subroutine vom_subhourly_init