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