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