-
Notifications
You must be signed in to change notification settings - Fork 237
/
mon_init.F
55 lines (41 loc) · 1.4 KB
/
mon_init.F
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
#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
mon_output_AM = fluidIsAir .AND. useCoriolis
& .AND. selectCoriMap.GE.2
mon_trAdvCFL(1) = 0.
mon_trAdvCFL(2) = 0.
mon_trAdvCFL(3) = 0.
_END_MASTER(myThid)
_BARRIER
RETURN
END