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