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