!||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| module io_tools 17,7 !BOP ! ! !MODULE: io_tools ! ! !DESCRIPTION: ! This module contains routines intended to facilitate io ! Presently, only routines used to document output are included ! ! !REVISION HISTORY: ! SVN:$Id: io_tools.F90 17212 2009-07-20 23:01:42Z njn01 $ ! ! !USES use POP_KindsMod use POP_IOUnitsMod use kinds_mod use io_types use communicate implicit none save !EOP !BOC !----------------------------------------------------------------------- ! interfaces !----------------------------------------------------------------------- interface document 271 module procedure document_char document_int, & document_log, & document_dbl, & document_real end interface !EOC !*********************************************************************** contains !*********************************************************************** !BOP ! !IROUTINE: document ! !INTERFACE: subroutine document_char (sub_name,message,char_val) 1,2 ! !DESCRIPTION: ! This routine writes out the calling subroutine name and two ! associated messages ! ! !REVISION HISTORY: ! same as module ! ! !REMARKS: ! This is actually the specific interface for the generic document ! routine corresponding to a character string ! !INPUT PARAMETERS: character (*) :: sub_name, message character (*), optional :: char_val !EOP !BOC character(*),parameter :: fmt1 = "( 5x, '(',a,') ',a)" character(*),parameter :: fmt2 = "( 5x, '(',a,') ',a,' = ',a)" if (my_task == master_task) then if (present(char_val)) then write(stdout,fmt2) sub_name, message, trim(char_val) else write(stdout,fmt1) sub_name, trim(message) endif call POP_IOUnitsFlush(POP_stdout) ; call POP_IOUnitsFlush(stdout) endif !EOC end subroutine document_char !*********************************************************************** !BOP ! !IROUTINE: document ! !INTERFACE: subroutine document_int (sub_name,message,ival),2 ! !DESCRIPTION: ! This routine writes out the calling subroutine name and an ! associated message ! ! !REVISION HISTORY: ! same as module ! ! !REMARKS: ! This is actually the specific interface for the generic document ! routine corresponding to an integer ! !INPUT PARAMETERS: character (*) :: sub_name, message integer (int_kind) :: ival !EOP !BOC character(*),parameter :: fmt = "( 5x, '(',a,') ',a,' = ',i10)" if (my_task == master_task) then write(stdout,fmt) sub_name, message, ival call POP_IOUnitsFlush(POP_stdout) ; call POP_IOUnitsFlush(stdout) endif !EOC end subroutine document_int !*********************************************************************** !BOP ! !IROUTINE: document ! !INTERFACE: subroutine document_log (sub_name,message,lval),2 ! !DESCRIPTION: ! This routine writes out the calling subroutine name and an ! associated message ! ! !REVISION HISTORY: ! same as module ! ! !REMARKS: ! This is actually the specific interface for the generic document ! routine corresponding to a logical variable ! !INPUT PARAMETERS: character (*) :: sub_name, message logical (log_kind) :: lval !EOP !BOC character(*),parameter :: fmt = "( 5x, '(',a,') ',a,' = ',L3)" if (my_task == master_task) then write(stdout,fmt) sub_name, message, lval call POP_IOUnitsFlush(POP_stdout) ; call POP_IOUnitsFlush(stdout) endif !EOC end subroutine document_log !*********************************************************************** !BOP ! !IROUTINE: document ! !INTERFACE: subroutine document_dbl (sub_name,message,dval),2 ! !DESCRIPTION: ! This routine writes out the calling subroutine name and an ! associated message ! ! !REVISION HISTORY: ! same as module ! ! !REMARKS: ! This is actually the specific interface for the generic document ! routine corresponding to a r8 variable ! !INPUT PARAMETERS: character (*) :: sub_name, message real (r8) :: dval !EOP !BOC character(*),parameter :: fmt = "( 5x, '(',a,') ',a,' = ',1pe23.16)" if (my_task == master_task) then write(stdout,fmt) sub_name, message, dval call POP_IOUnitsFlush(POP_stdout) ; call POP_IOUnitsFlush(stdout) endif !EOC end subroutine document_dbl !*********************************************************************** !BOP ! !IROUTINE: document ! !INTERFACE: subroutine document_real (sub_name,message,rval),2 ! !DESCRIPTION: ! This routine writes out the calling subroutine name and an ! associated message ! ! !REVISION HISTORY: ! same as module ! ! !REMARKS: ! This is actually the specific interface for the generic document ! routine corresponding to a r8 variable ! !INPUT PARAMETERS: character (*) :: sub_name, message real(r4) :: rval !EOP !BOC character(*),parameter :: fmt = "( 5x, '(',a,') ',a,' = ',1pe23.16)" if (my_task == master_task) then write(stdout,fmt) sub_name, message, rval call POP_IOUnitsFlush(POP_stdout) ; call POP_IOUnitsFlush(stdout) endif !EOC end subroutine document_real end module io_tools !|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||