pkg/monitor/mon_init.F

91672e10e3 Alis*0001 #include "MONITOR_OPTIONS.h"
1389d71047 Chri*0002
7633b97660 Ed H*0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: MON_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE MON_INIT( myThid )
1389d71047 Chri*0009
7633b97660 Ed H*0010 C     !DESCRIPTION:
                0011 C     Set default monitor internal setup.
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
1389d71047 Chri*0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
357126def9 Ed H*0017 #include "PARAMS.h"
1389d71047 Chri*0018 #include "MONITOR.h"
                0019
7633b97660 Ed H*0020 C     !INPUT PARAMETERS:
1389d71047 Chri*0021       INTEGER myThid
7633b97660 Ed H*0022 CEOP
1389d71047 Chri*0023
357126def9 Ed H*0024 C     !LOCAL VARIABLES:
2cf110c259 Jean*0025 c     CHARACTER*(MAX_LEN_MBUF) msgbuf
357126def9 Ed H*0026
a30418b6b9 Ed H*0027 C     Since monitor does not have a "data" file of its own, all its
                0028 C     output flags are set in "model/src/ini_parms.F".  Please see the
                0029 C     IO section of that file for the monitor flags.
357126def9 Ed H*0030
1389d71047 Chri*0031 C     Set monitor I/O to standard output by default
                0032 C     and prefix monitor "variables" with mon by default.
                0033       CALL MON_SET_IOUNIT( standardMessageUnit, myThid )
                0034       CALL MON_SET_PREF  ( mon_string_none    , myThid )
                0035
ba41d6c98e Jean*0036       _BEGIN_MASTER(myThid)
dd92b9a824 Jean*0037
91672e10e3 Alis*0038 C     Internal parameter for continuing when monitor_solution would
                0039 C     otherwise decide to stop the code.
ba41d6c98e Jean*0040 c     mon_overrideStop=.FALSE.
                0041       monSolutionMaxRange = 1. _d +4
                0042       IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3
dd92b9a824 Jean*0043
eeca444c33 Jean*0044       mon_output_AM = fluidIsAir .AND. useCoriolis
                0045      &                           .AND. selectCoriMap.GE.2
dd92b9a824 Jean*0046       mon_trAdvCFL(1) = 0.
                0047       mon_trAdvCFL(2) = 0.
                0048       mon_trAdvCFL(3) = 0.
                0049
9b8b001637 Jean*0050       _END_MASTER(myThid)
                0051
                0052       _BARRIER
91672e10e3 Alis*0053
1389d71047 Chri*0054       RETURN
                0055       END