/[MITgcm]/MITgcm/pkg/thsice/thsice_monitor.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_monitor.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Wed Sep 8 02:07:48 2004 UTC revision 1.5 by jmc, Fri Dec 17 04:59:48 2004 UTC
# Line 49  C     == Local variables == Line 49  C     == Local variables ==
49        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
50        CHARACTER*10 mon_var        CHARACTER*10 mon_var
51        CHARACTER*2 mon_sufx(0:2)        CHARACTER*2 mon_sufx(0:2)
52          INTEGER k
53        _RS yBand(2), locDr(1)        _RS yBand(2), locDr(1)
54        _RL theMin(2), theMax(2)        _RL theMin(2), theMax(2)
55        _RL theMean(2), theVar(2), theVol(2)        _RL theMean(2), theVar(2), theVol(2)
# Line 65  C---+----1----+----2----+----3----+----4 Line 66  C---+----1----+----2----+----3----+----4
66        IF ( DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,myTime-deltaTclock)        IF ( DIFFERENT_MULTIPLE(thSIce_monFreq,myTime,myTime-deltaTclock)
67       &     .OR. myIter.EQ.nIter0 ) THEN       &     .OR. myIter.EQ.nIter0 ) THEN
68    
69          mon_write_stdout = .TRUE.          mon_write_stdout = .FALSE.
70            mon_write_mnc    = .FALSE.
71            IF ( thSIce_mon_stdio ) mon_write_stdout = .TRUE.
72    
73         _BEGIN_MASTER(myThid)  #ifdef ALLOW_MNC
74          WRITE(msgBuf,'(A)')          IF (useMNC .AND. thSIce_mon_mnc) THEN
75       &'// ======================================================='            DO k = 1,MAX_LEN_MBUF
76          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)              mon_fname(k:k) = ' '
77          WRITE(msgBuf,'(A)') '// Begin MONITOR Therm.SeaIce statistics'            ENDDO
78          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)            mon_fname(1:12) = 'monitor_sice'
79          WRITE(msgBuf,'(A)')            CALL MNC_CW_APPEND_VNAME(
80       &'// ======================================================='       &         'iter', '-_-_--__-__t', 0,0, myThid)
81          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)            CALL MNC_CW_SET_UDIM(mon_fname, -1, myThid)
82         _END_MASTER(myThid)            CALL MNC_CW_I_W_S(
83         &        'I',mon_fname,1,1,'iter', myIter, myThid)
84              CALL MNC_CW_SET_UDIM(mon_fname, 0, myThid)
85              mon_write_mnc = .TRUE.
86            ENDIF
87    #endif /*  ALLOW_MNC  */
88    
89            IF (mon_write_stdout) THEN
90             _BEGIN_MASTER(myThid)
91              WRITE(msgBuf,'(A)')
92         &    '// ======================================================='
93              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
94              WRITE(msgBuf,'(A)') '// Begin MONITOR Therm.SeaIce statistics'
95              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
96              WRITE(msgBuf,'(A)')
97         &    '// ======================================================='
98              CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
99             _END_MASTER(myThid)
100            ENDIF
101    
102          CALL MON_SET_PREF('thSI_',myThid)          CALL MON_SET_PREF('thSI_',myThid)
103          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)          CALL MON_OUT_RL('time_sec', myTime,mon_string_none,myThid)
# Line 201  C-- 2nd  level (volume-mean) Temp. : Line 222  C-- 2nd  level (volume-mean) Temp. :
222          CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid)          CALL MON_OUT_RL(mon_var, theMax(1), mon_sufx(1), myThid)
223          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)          CALL MON_OUT_RL(mon_var, theMax(2), mon_sufx(2), myThid)
224    
225         _BEGIN_MASTER(myThid)          IF (mon_write_stdout) THEN
226          WRITE(msgBuf,'(A)')           _BEGIN_MASTER(myThid)
227       &'// ======================================================='            WRITE(msgBuf,'(A)')
228          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)       &    '// ======================================================='
229          WRITE(msgBuf,'(A)') '// End MONITOR Therm.SeaIce statistics'            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
230          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)            WRITE(msgBuf,'(A)') '// End MONITOR Therm.SeaIce statistics'
231          WRITE(msgBuf,'(A)')            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
232       &'// ======================================================='            WRITE(msgBuf,'(A)')
233          CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)       &    '// ======================================================='
234         _END_MASTER(myThid)            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
235             _END_MASTER(myThid)
236            ENDIF
237    
238          mon_write_stdout = .FALSE.          mon_write_stdout = .FALSE.
239            mon_write_mnc    = .FALSE.
240    
241        ENDIF        ENDIF
242    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22