Subroutine transpmodel_init_once

279 : 
280 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
281 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
282 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
283 : 
284 :       subroutine transpmodel_init_once (vom_command)
285 :       use vom_vegwat_mod
286 :       implicit none
287 : 
288 :       INTEGER, INTENT(in) :: vom_command
289 : 
290 : !     * Reading input parameter
291 : 
292 :       call vom_read_input()
293 : 
294 : !     * allocate vector sizes
295 : 
296 :       call vom_alloc()
297 : 
298 : !     * File opening (saving climate and gstom ass data)
299 : 
300 :       if (vom_command .eq. 2) call vom_open_output()
301 : 
302 : !     * PARAMETER READING FROM SOILPROFILE.PAR
303 : 
304 :       call vom_get_soilprofile()
305 : 
306 : !     * Climate and Calendar data reading
307 : 
308 :       call vom_get_hourly_clim()
309 : 
310 : !     * get timeseries of vegetation cover
311 :       if(i_read_pc == 1) then
312 :          call vom_get_perc_cov()
313 :       end if
314 : 
315 :       return
316 :       end subroutine transpmodel_init_once