Subroutine vom_open_output

624 : 
625 : 
626 : 
627 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
628 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
629 : !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
630 : !*-----File opening (saving climate and gstom ass data)-----------------
631 : 
632 :       subroutine vom_open_output ()
633 :       use vom_vegwat_mod
634 :       implicit none
635 : 
636 : 
637 :       open(kfile_resultshourly, FILE=trim(adjustl(i_outputpath))//      &
638 :            trim(adjustl(sfile_resultshourly)), STATUS='replace')
639 :       write(kfile_resultshourly,'(A6,A7,A7,A7,A7,22A15)') 'fyear',     &
640 :      &  'fmonth', 'fday', 'nday', 'nhour', 'rain', 'tair', 'par', 'vd',&
641 :      &  'esoil', 'pc', 'jmax25t', 'jmax25g', 'mqt', 'rl', 'lambdat',   &
642 :      &  'lambdag', 'rr', 'asst', 'assg', 'etmt', 'etmg', 'su_1',       &
643 :      &  'zw', 'ws', 'spgfcf', 'infx'
644 : 
645 :       open(kfile_resultsdaily, FILE=trim(adjustl(i_outputpath))// &
646 :            trim(adjustl(sfile_resultsdaily)), STATUS='replace')
647 :       write(kfile_resultsdaily,'(A6,A7,A7,A7,A7, 34A15)') 'fyear',      &
648 :      &  'fmonth', 'fday', 'nday', 'nhour', 'rain', 'tairmax', 'tairmin', &
649 :      &  'par', 'vd', 'esoil', 'jmax25t', 'jmax25g', 'pc', 'rlt', 'rlg', &
650 :      &  'lambdat', 'lambdag', 'rrt', 'rrg', 'asst', 'assg', 'su_avg',  &
651 :      &  'zw', 'ws', 'spgfcf', 'infx', 'etmt', 'etmg', 'su_1', 'topt',  &
652 :      &  'tcg', 'tct', 'cpccg_d', 'cpcct_d',  'lai_t', 'lai_g', &
653 :      &'ncp_g', 'ncp_t'
654 : 
655 :       open(kfile_resultsyearly, FILE=trim(adjustl(i_outputpath))// &
656 :            trim(adjustl(sfile_resultsyearly)), STATUS='replace')
657 :       write(kfile_resultsyearly,'(A6,18A16)') "nyear", "rain", "par",  &
658 :      &  "srad", "vd", "esoil", "etmt", "etmg", "assg", "rlg", "rrg",   &
659 :      &  "cpccg", "tcg", "etmt", "asst", "rlt", "rrt", "cpcct", "tct"
660 : 
661 :         open(kfile_rsurfdaily, FILE=trim(adjustl(i_outputpath))// &
662 :              trim(adjustl(sfile_rsurfdaily)), STATUS='replace')
663 :         write(kfile_rsurfdaily,'(2A6,A4,A7,A)') 'fyear', 'fmonth',     &
664 :      &    'fday', 'nday', 'rsurft_sublayer'
665 : 
666 :         open(kfile_delzhourly, FILE=trim(adjustl(i_outputpath))// &
667 :              trim(adjustl(sfile_delzhourly)), STATUS='replace')
668 :         write(kfile_delzhourly,'(2A6,A4,A7,A5,A)') 'fyear', 'fmonth',  &
669 :      &    'fday', 'nday', 'nhour', 'delz_sublayer'
670 : 
671 :         open(kfile_ruptkthourly, FILE=trim(adjustl(i_outputpath))// &
672 :              trim(adjustl(sfile_ruptkthourly)), STATUS='replace')
673 :         write(kfile_ruptkthourly,'(2A6,A4,A7,A5,A)') 'fyear', 'fmonth',&
674 :      &    'fday', 'nday', 'nhour', 'ruptkt_sublayer'
675 : 
676 :         open(kfile_suhourly, FILE=trim(adjustl(i_outputpath))// &
677 :              trim(adjustl(sfile_suhourly)), STATUS='replace')
678 :         write(kfile_suhourly,'(2A6,A4,A7,A5,A)') 'fyear', 'fmonth',    &
679 :      &    'fday', 'nday', 'nhour', 'su_sublayer'
680 : 
681 :       return
682 :       end subroutine vom_open_output