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