OpenAndWriteHeader.f90

Go to the documentation of this file.

!==============================================================================
!
!  Name   :  OpenAndWriteHeader
!
!  Remarks:  contains the SUBROUTINES
!
!            OpenAndWriteHeader, OpenAndWriteHeaderLight
!
!==============================================================================
! design          : H. Lischke, N. Zimmermann
! author(s)       : H. Lischke, N. Zimmermann
! implementation  : H. Lischke, N. Zimmermann
! cleaner         : T.J. Loeffler
! copyright       : (c) 1999, 03 by H. Lischke
!==============================================================================
!==============================================================================
!==============================================================================
 
SUBROUTINE openandwriteheader(theFile, nspc)
    use filehandlingmodule, only: file, openfilew
    use loggermodule 
    use all_par, only: tabsepoutput, spec
 
    IMPLICIT NONE
 
    ! Passed variables>--------------------------------------------------------------------------------
    INTEGER, INTENT(in)      :: nspc
    TYPE(file), INTENT(in) :: theFile
    ! Local variables>---------------------------------------------------------------------------------
    INTEGER      :: ispec, err
    Character*1  :: tab
 
    ! ere the SUBROUTINE starts>**********************************************************************
    if (tabsepoutput) then
        tab = char(9)
    else
        tab = ','
    end if
    call openfilew(thefile, err)
    if (err /= 0) then
        call logerror("Could not create file: "//thefile%path)
    end if
    write (thefile%unit, 100) "lat", tab, "lon", tab, "year", tab, &
        ((spec(ispec)%nl), tab, ispec=1, nspc), "all_species"
100 FORMAT(a3, a1, a3, a1, a4, a1, 58(a, a1))
end SUBROUTINE openandwriteheader
 
!==============================================================================
!==============================================================================
SUBROUTINE openandwriteheaderlight(theFile)
    use filehandlingmodule, only: file, openfilew
    use loggermodule,       only: logerror
    ! CALL modules for TYPE definitions and +- fixed variables>---------------------------------------------------------------
    use all_par, only: tabsepoutput,  maxlc
 
    IMPLICIT NONE
 
    ! Passed variables>--------------------------------------------------------------------------------
 
    TYPE(file), INTENT(in) :: theFile
    ! Local variables>---------------------------------------------------------------------------------
    INTEGER      ::  err, ilc
    Character*1  :: tab
    character*2  :: lclcharvec (maxlc)
    
 
    ! Here the SUBROUTINE starts>**********************************************************************
    if (tabsepoutput) then
        tab = char(9)
    else
        tab = ','
    end if
    call openfilew(thefile, err)
    if (err /= 0) then
        call logerror("Could not create file: "//thefile%path)
    end if
    do ilc = 1,maxlc
        write(lclcharvec(ilc),"(I2.2)") ilc
    end do
        
    write (thefile%unit, 100) "lat", tab, "lon", tab, "year", tab, "h_cl", tab,&
        ("l_cl"//lclcharvec(ilc), tab, ilc=1, maxlc) 
100 FORMAT(a3, a1, a3, a1, a4, a1, a4, a1, 40(a, a1))
end SUBROUTINE openandwriteheaderlight
 
!done