Subroutine vom_open_ncp_output
473 :
474 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
475 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
476 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
477 : !*-----File opening (saving ncp)----------------------------------------
478 :
479 : subroutine vom_open_ncp_output ()
480 : use vegwatmod
481 : ! use vegmod
482 : implicit none
483 :
484 : open(kfile_model_output, file=sfile_model_output(1:len_trim(sfile_model_output)))
485 :
486 : return
487 : end subroutine vom_open_ncp_output