/[MITgcm]/MITgcm/pkg/monitor/mon_solution.F
ViewVC logotype

Contents of /MITgcm/pkg/monitor/mon_solution.F

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

Revision 1.1 - (show annotations) (download)
Tue May 13 18:18:05 2003 UTC (21 years ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint51e_post, checkpoint51k_post, checkpoint51o_pre, checkpoint50e_post, checkpoint51n_pre, checkpoint51l_post, checkpoint51q_post, checkpoint51j_post, checkpoint50g_post, branch-netcdf, checkpoint52d_pre, checkpoint52b_pre, checkpoint51a_post, checkpoint51c_post, checkpoint51f_pre, checkpoint51, checkpoint51o_post, checkpoint51p_post, checkpoint52a_pre, checkpoint51i_post, checkpoint52, checkpoint51f_post, checkpoint51b_post, checkpoint51r_post, checkpoint51b_pre, checkpoint52a_post, checkpoint52b_post, branchpoint-genmake2, checkpoint50h_post, checkpoint52c_post, checkpoint51h_pre, checkpoint51l_pre, checkpoint51g_post, ecco_c52_e35, checkpoint50f_post, checkpoint50f_pre, checkpoint51d_post, checkpoint51t_post, checkpoint51n_post, checkpoint51i_pre, checkpoint50i_post, checkpoint51u_post, checkpoint50e_pre, checkpoint51m_post, checkpoint51s_post
Branch point for: branch-nonh, branch-genmake2, tg2-branch, checkpoint51n_branch, ecco-branch, netcdf-sm0 
 o split mon_set.F into mon_set_iounit.F and mon_set_pref.F
 o replaced ref's to CPP_OPTIONS with MONITOR_OPTIONS
 o added new s/r monitor_solution.F that checks that model state
   and if unlikely lets the model die cleanly
   - this is to reduce the number of hanging processes we encounter
     if the model dies due to FPEs
1 C $Header: /u/gcmpack/models/MITgcmUV/pkg/monitor/monitor.F,v 1.8 2001/11/08 16:47:34 jmc Exp $
2 C $Name: $
3
4 #include "MONITOR_OPTIONS.h"
5
6 SUBROUTINE MON_SOLUTION(
7 I myIter, myTime, myThid )
8 C /==========================================================\
9 C | SUBROUTINE MON_SOLUTION |
10 C | o Checks that the solutions is within bounds |
11 C |==========================================================|
12 C \==========================================================/
13 IMPLICIT NONE
14
15 C === Global data ===
16 #include "SIZE.h"
17 #include "EEPARAMS.h"
18 #include "PARAMS.h"
19 #include "DYNVARS.h"
20 #include "GRID.h"
21 #include "MONITOR.h"
22
23 C === Routine arguments ===
24 INTEGER myIter
25 _RL myTime
26 INTEGER myThid
27
28 C === Functions ====
29
30 C === Local variables ====
31 CHARACTER*(MAX_LEN_MBUF) msgBuf
32 _RL tMin,tMax,tMean,tSD,tDel2,tVol
33
34 C Statistics for T
35 CALL MON_STATS_RL(
36 I Nr, theta, maskC,hFacC,rA,drF,
37 O tMin,tMax,tMean,tSD,tDel2,tVol,
38 I myThid )
39
40 IF (tMax-tMin.GT.1.e3) THEN
41 _BEGIN_MASTER(myThid)
42 WRITE(msgBuf,'(A,1P2E12.3)')
43 & 'SOLUTION IS HEADING OUT OF BOUNDS: tMin,tMax=',tMin,tMax
44 CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
45 WRITE(msgBuf,'(A)') 'STOPPING CALCULATION'
46 CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
47 _END_MASTER(myThid)
48
49 CALL EEDIE
50 STOP 'MON_SOLUTION: STOPPED DUE TO EXTREME VALUES OF SOLUTION'
51 ENDIF
52
53 RETURN
54 END
  ViewVC Help
Powered by ViewVC 1.1.22