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

Annotation of /MITgcm/pkg/monitor/mon_set_iounit.F

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

Revision 1.1 - (hide annotations) (download)
Tue May 13 18:18:05 2003 UTC (21 years ago) by adcroft
Branch: MAIN
CVS Tags: checkpoint51e_post, checkpoint51k_post, checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52j_post, checkpoint51o_pre, checkpoint50e_post, checkpoint52e_post, checkpoint51n_pre, checkpoint51l_post, checkpoint51q_post, checkpoint51j_post, checkpoint50g_post, hrcube_1, branch-netcdf, checkpoint52d_pre, checkpoint52l_post, checkpoint52k_post, checkpoint52b_pre, checkpoint51a_post, checkpoint51c_post, checkpoint51f_pre, checkpoint51, checkpoint51o_post, checkpoint51p_post, checkpoint52a_pre, checkpoint51i_post, checkpoint52, checkpoint51f_post, checkpoint52d_post, checkpoint51b_post, checkpoint51r_post, checkpoint51b_pre, checkpoint52a_post, checkpoint52b_post, checkpoint52f_post, branchpoint-genmake2, checkpoint50h_post, checkpoint52c_post, checkpoint51h_pre, checkpoint51l_pre, checkpoint51g_post, ecco_c52_e35, hrcube5, checkpoint50f_post, checkpoint50f_pre, checkpoint51d_post, checkpoint52i_post, checkpoint52j_pre, checkpoint51t_post, checkpoint51n_post, checkpoint51i_pre, checkpoint50i_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint50e_pre, checkpoint52f_pre, hrcube_2, hrcube_3, 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 adcroft 1.1 C $Header: $
2     C $Name: $
3    
4     #include "MONITOR_OPTIONS.h"
5    
6     SUBROUTINE MON_SET_IOUNIT(unit, myThid )
7     C /==========================================================\
8     C | SUBROUTINE MON_SET_IOUNIT |
9     C | o Set default monitor unit for I/O. |
10     C \==========================================================/
11     IMPLICIT NONE
12    
13     C === Global data ===
14     #include "SIZE.h"
15     #include "EEPARAMS.h"
16     #include "MONITOR.h"
17    
18     C === Routine arguments ===
19     C unit - Unit number to use for monitor output
20     C myThid - Instance number of this call to monitor
21     INTEGER unit
22     INTEGER myThid
23    
24     C Dont change before everyone is ready
25     CALL BAR2( myThid )
26    
27     C Set monitor I/O unit
28     mon_ioUnit = standardMessageUnit
29    
30     C Make sure everyone sees the change
31     CALL BAR2( myThid )
32    
33     RETURN
34     END
  ViewVC Help
Powered by ViewVC 1.1.22