pkg/monitor/mon_init.F

C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_init.F,v 1.10 2006/10/17 19:01:48 jmc Exp $
C $Name:  $

#include "MONITOR_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: MON_INIT

C     !INTERFACE:
      SUBROUTINE MON_INIT( myThid )

C     !DESCRIPTION:
C     Set default monitor internal setup.

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "MONITOR.h"

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
c     CHARACTER*(MAX_LEN_MBUF) msgbuf

C     Since monitor does not have a "data" file of its own, all its
C     output flags are set in "model/src/ini_parms.F".  Please see the
C     IO section of that file for the monitor flags.

C     Set monitor I/O to standard output by default
C     and prefix monitor "variables" with mon by default.
      CALL MON_SET_IOUNIT( standardMessageUnit, myThid )
      CALL MON_SET_PREF  ( mon_string_none    , myThid )

      _BEGIN_MASTER(myThid)
C     Internal parameter for continuing when monitor_solution would
C     otherwise decide to stop the code.
c     mon_overrideStop=.FALSE.
      monSolutionMaxRange = 1. _d +4
      IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3
      _END_MASTER(myThid)

      _BARRIER

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/monitor/mon_init.F,v 1.10 2006/10/17 19:01:48 jmc Exp $
2	C $Name: $
3
4	#include "MONITOR_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: MON_INIT
9
10	C !INTERFACE:
11	SUBROUTINE MON_INIT( myThid )
12
13	C !DESCRIPTION:
14	C Set default monitor internal setup.
15
16	C !USES:
17	IMPLICIT NONE
18	#include "SIZE.h"
19	#include "EEPARAMS.h"
20	#include "PARAMS.h"
21	#include "MONITOR.h"
22
23	C !INPUT PARAMETERS:
24	INTEGER myThid
25	CEOP
26
27	C !LOCAL VARIABLES:
28	c CHARACTER*(MAX_LEN_MBUF) msgbuf
29
30	C Since monitor does not have a "data" file of its own, all its
31	C output flags are set in "model/src/ini_parms.F". Please see the
32	C IO section of that file for the monitor flags.
33
34	C Set monitor I/O to standard output by default
35	C and prefix monitor "variables" with mon by default.
36	CALL MON_SET_IOUNIT( standardMessageUnit, myThid )
37	CALL MON_SET_PREF ( mon_string_none , myThid )
38
39	_BEGIN_MASTER(myThid)
40	C Internal parameter for continuing when monitor_solution would
41	C otherwise decide to stop the code.
42	c mon_overrideStop=.FALSE.
43	monSolutionMaxRange = 1. _d +4
44	IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3
45	_END_MASTER(myThid)
46
47	_BARRIER
48
49	RETURN
50	END