/[MITgcm]/MITgcm/model/src/ini_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_grid.F

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

revision 1.27 by cnh, Mon Nov 7 18:26:02 2005 UTC revision 1.28 by jmc, Tue Jul 25 22:23:36 2006 UTC
# Line 19  C     !USES: Line 19  C     !USES:
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22    #include "EESUPPORT.h"
23  #include "PARAMS.h"  #include "PARAMS.h"
24    #include "GRID.h"
25  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
26  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
27  #endif  #endif
 #include "GRID.h"  
28  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
29  #include "MONITOR.h"  #include "MONITOR.h"
30  #endif  #endif
# Line 82  C     Set up horizontal grid and coordin Line 83  C     Set up horizontal grid and coordin
83        ENDIF        ENDIF
84    
85  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
86        mon_write_stdout = .FALSE.  #ifdef ALLOW_USE_MPI
87        mon_write_mnc    = .FALSE.        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
88        IF (monitor_stdio) THEN  #endif /* ALLOW_USE_MPI */
89          mon_write_stdout = .TRUE.          _BEGIN_MASTER(myThid)
90        ENDIF  C--   only the master thread is allowed to switch On/Off mon_write_stdout
91          C     & mon_write_mnc (since it's the only thread that uses those flags):
92    
93            IF (monitor_stdio) THEN
94              mon_write_stdout = .TRUE.
95            ELSE
96              mon_write_stdout = .FALSE.
97            ENDIF
98            mon_write_mnc = .FALSE.
99  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
100        IF (useMNC .AND. monitor_mnc) THEN          IF (useMNC .AND. monitor_mnc) THEN
101          DO i = 1,MAX_LEN_MBUF            DO i = 1,MAX_LEN_MBUF
102            mon_fname(i:i) = ' '              mon_fname(i:i) = ' '
103          ENDDO            ENDDO
104          mon_fname(1:12) = 'monitor_grid'            mon_fname(1:12) = 'monitor_grid'
105          CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid)
106          mon_write_mnc = .TRUE.            mon_write_mnc = .TRUE.
107        ENDIF          ENDIF
108  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
109          
110            _END_MASTER(myThid)
111    #ifdef ALLOW_USE_MPI
112          ENDIF
113    #endif /* ALLOW_USE_MPI */
114    
115  C     Print out statistics of each horizontal grid array (helps when  C     Print out statistics of each horizontal grid array (helps when
116  C     debugging)  C     debugging)
117        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,xC,'XC',myThid)
118        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,xG,'XG',myThid)
119        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,dxC,'DXC',myThid)
120        CALL MON_PRINTSTATS_RS(1,DXF,'DXF',myThid)        CALL MON_PRINTSTATS_RS(1,dxF,'DXF',myThid)
121        CALL MON_PRINTSTATS_RS(1,DXG,'DXG',myThid)        CALL MON_PRINTSTATS_RS(1,dxG,'DXG',myThid)
122        CALL MON_PRINTSTATS_RS(1,DXV,'DXV',myThid)        CALL MON_PRINTSTATS_RS(1,dxV,'DXV',myThid)
123        CALL MON_PRINTSTATS_RS(1,YC,'YC',myThid)        CALL MON_PRINTSTATS_RS(1,yC,'YC',myThid)
124        CALL MON_PRINTSTATS_RS(1,YG,'YG',myThid)        CALL MON_PRINTSTATS_RS(1,yG,'YG',myThid)
125        CALL MON_PRINTSTATS_RS(1,DYC,'DYC',myThid)        CALL MON_PRINTSTATS_RS(1,dyC,'DYC',myThid)
126        CALL MON_PRINTSTATS_RS(1,DYF,'DYF',myThid)        CALL MON_PRINTSTATS_RS(1,dyF,'DYF',myThid)
127        CALL MON_PRINTSTATS_RS(1,DYG,'DYG',myThid)        CALL MON_PRINTSTATS_RS(1,dyG,'DYG',myThid)
128        CALL MON_PRINTSTATS_RS(1,DYU,'DYU',myThid)        CALL MON_PRINTSTATS_RS(1,dyU,'DYU',myThid)
129        CALL MON_PRINTSTATS_RS(1,RA,'RA',myThid)        CALL MON_PRINTSTATS_RS(1,rA,'RA',myThid)
130        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)        CALL MON_PRINTSTATS_RS(1,rAw,'RAW',myThid)
131        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)        CALL MON_PRINTSTATS_RS(1,rAs,'RAS',myThid)
132        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)        CALL MON_PRINTSTATS_RS(1,rAz,'RAZ',myThid)
133        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)
134        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)
135    
136        mon_write_stdout = .FALSE.  #ifdef ALLOW_USE_MPI
137        mon_write_mnc    = .FALSE.        IF ( .NOT.useSingleCPUIO .OR. mpiMyId.EQ.0 ) THEN
138  #endif  #endif /* ALLOW_USE_MPI */
139            _BEGIN_MASTER(myThid)
140    
141            mon_write_stdout = .FALSE.
142            mon_write_mnc    = .FALSE.
143    
144            _END_MASTER(myThid)
145    #ifdef ALLOW_USE_MPI
146          ENDIF
147    #endif /* ALLOW_USE_MPI */
148    #endif /* ALLOW_MONITOR */
149    
150        RETURN        RETURN
151        END        END
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22