stdout_mod Module Reference

Functions/Subroutines
integer function, public	stdout_unit (mymaster)

Variables
logical, save	set_stdoutunit = .TRUE.

Function/Subroutine Documentation

stdout_unit()

integer function, public stdout_mod::stdout_unit

(

logical, intent(in)

mymaster

)

Definition at line 47 of file stdout_mod.F.

!
!***********************************************************************
!                                                                      !
!  This function determines ROMS standard output unit to write its     !
!  running verbose information.                                        !
!                                                                      !
!  On Input:                                                           !
!                                                                      !
!     MyMaster    Switch indicating Master process (logical)           !
!                                                                      !
!  On Output:                                                          !
!                                                                      !
!     StdOutUnit  Assigned standard output unit (integer; default=6)   !
!                                                                      !
!***********************************************************************
!
!  Imported variable declarations.
!
      logical, intent(in)  :: MyMaster
!
!  Local variable declararions
!
      integer :: io_err
      integer :: StdOutUnit
!
      character (len=10 )          :: stdout_file
      character (len=256)          :: io_errmsg
      character (len=*), parameter :: MyFile =                          &
     &  __FILE__//", stdout_unit"
!
      sourcefile=myfile
!
!-----------------------------------------------------------------------
!  Set ROMS standard input unit. If requested, set and open standard
!  output file for writing.
!-----------------------------------------------------------------------
 
#ifdef ROMS_STDOUT
!
!  Set the Fortran standard output unit (default unit 6) to direct the
!  ROMS run information to a specific filename. It is advantageous in
!  coupling or disjointed applications that need ROMS information
!  separated from other components.
!
# if defined DISTRIBUTE && defined DISJOINTED
      stdoutunit=60+forkcolor
      WRITE (stdout_file,'(a,i2.2,a)') 'log', forkcolor+1, '.roms'
# else
      stdoutunit=60
      stdout_file='log.roms'
# endif
#else
!
! Set default standard output unit in Fortran.
!
      stdoutunit=6
#endif
 
#ifdef ROMS_STDOUT
!
!-----------------------------------------------------------------------
!  Open ROMS standard output file.
!-----------------------------------------------------------------------
!
      io_err=0
      IF (lappend) THEN
        OPEN (stdoutunit, file=trim(stdout_file),                       &
     &        form='formatted', status='old', position='append',        &
     &        action='write', iostat=io_err, iomsg=io_errmsg)
      ELSE
        OPEN (stdoutunit, file=trim(stdout_file),                       &
     &        form='formatted', status='replace',                       &
     &        iostat=io_err, iomsg=io_errmsg)
      END IF
      IF (io_err.ne.0) THEN
        IF (mymaster) WRITE (stdoutunit,10) trim(stdout_file),          &
     &                                      trim(io_errmsg)
        exit_flag=5
 10     FORMAT (/,' STDOUT_UNIT - Cannot open standard output file: ',  &
     &          a,/,15x,'ERROR: ',a)
        IF (founderror(exit_flag, noerror, __line__, myfile)) RETURN
      END IF
#endif
!

References mod_scalars::exit_flag, strings_mod::founderror(), mod_scalars::lappend, mod_parallel::mymaster, mod_scalars::noerror, and mod_iounits::sourcefile.

Referenced by mod_esmf_esm::read_esmconfig(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), and cmeps_roms_mod::roms_setinitializep1().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

set_stdoutunit

logical, save stdout_mod::set_stdoutunit = .TRUE.

Definition at line 41 of file stdout_mod.F.

      logical, save :: Set_StdOutUnit = .true.

Referenced by mod_esmf_esm::read_esmconfig(), roms_kernel_mod::roms_initialize(), roms_kernel_mod::roms_initializep1(), and cmeps_roms_mod::roms_setinitializep1().