Subroutine vom_alloc
537 :
538 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
539 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
540 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
541 : !*-----allocate vector sizes--------------------------------------------
542 :
543 : subroutine vom_alloc ()
544 : use vom_vegwat_mod
545 : implicit none
546 :
547 : allocate(dayyear(c_maxday))
548 : allocate(fday(c_maxday))
549 : allocate(fmonth(c_maxday))
550 : allocate(fyear(c_maxday))
551 :
552 : allocate(tairmax_d(c_maxday))
553 : allocate(tairmin_d(c_maxday))
554 : allocate(rain_d(c_maxday))
555 : allocate(srad_d(c_maxday))
556 : allocate(vp_d(c_maxday))
557 : allocate(press_d(c_maxday))
558 : allocate(ca_d(c_maxday))
559 :
560 : allocate(par_h(c_maxhour))
561 : allocate(vd_h(c_maxhour))
562 : allocate(tair_h(c_maxhour))
563 : allocate(rain_h(c_maxhour))
564 : allocate(ca_h(c_maxhour))
565 :
566 : allocate(par_d(c_maxday))
567 :
568 : allocate(s_delz(s_maxlayer))
569 : allocate(s_ksat(s_maxlayer))
570 : allocate(s_avg(s_maxlayer))
571 : allocate(s_nvg(s_maxlayer))
572 : allocate(s_thetas(s_maxlayer))
573 : allocate(s_thetar(s_maxlayer))
574 : allocate(c_mvg(s_maxlayer))
575 : allocate(c_hhydrst(s_maxlayer))
576 :
577 : return
578 : end subroutine vom_alloc