/[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.25 by jmc, Sun Jul 31 22:07:47 2005 UTC revision 1.30 by jmc, Tue Oct 17 18:20:18 2006 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    #include "GRID.h"
24  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
25  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
26  #endif  #endif
 #include "GRID.h"  
27  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
28  #include "MONITOR.h"  #include "MONITOR.h"
29  #endif  #endif
# Line 32  C     !INPUT/OUTPUT PARAMETERS: Line 32  C     !INPUT/OUTPUT PARAMETERS:
32        INTEGER myThid        INTEGER myThid
33  CEOP  CEOP
34    
35    C     === Functions ====
36          LOGICAL  MASTER_CPU_IO
37          EXTERNAL MASTER_CPU_IO
38    
39  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
40  C     msgBuf - Used for informational I/O.  C     msgBuf - Used for informational I/O.
41        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
42    #ifdef ALLOW_MNC
43        INTEGER i        INTEGER i
44    #endif
45    
46  C     load grid spacing (vector) from files  C     load grid spacing (vector) from files
47        CALL LOAD_GRID_SPACING( myThid )        CALL LOAD_GRID_SPACING( myThid )
# Line 78  C     Set up horizontal grid and coordin Line 84  C     Set up horizontal grid and coordin
84        ENDIF        ENDIF
85    
86  #ifdef ALLOW_MONITOR  #ifdef ALLOW_MONITOR
87        mon_write_stdout = .FALSE.        IF ( MASTER_CPU_IO(myThid) ) THEN
88        mon_write_mnc    = .FALSE.  C--   only the master thread is allowed to switch On/Off mon_write_stdout
89        IF (monitor_stdio) THEN  C     & mon_write_mnc (since it's the only thread that uses those flags):
90          mon_write_stdout = .TRUE.  
91        ENDIF          IF (monitor_stdio) THEN
92                    mon_write_stdout = .TRUE.
93            ELSE
94              mon_write_stdout = .FALSE.
95            ENDIF
96            mon_write_mnc = .FALSE.
97  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
98        IF (useMNC .AND. monitor_mnc) THEN          IF (useMNC .AND. monitor_mnc) THEN
99          DO i = 1,MAX_LEN_MBUF            DO i = 1,MAX_LEN_MBUF
100            mon_fname(i:i) = ' '              mon_fname(i:i) = ' '
101          ENDDO            ENDDO
102          mon_fname(1:12) = 'monitor_grid'            mon_fname(1:12) = 'monitor_grid'
103          CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid)            CALL MNC_CW_SET_UDIM(mon_fname, 1, myThid)
104          mon_write_mnc = .TRUE.            mon_write_mnc = .TRUE.
105        ENDIF          ENDIF
106  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
107          
108          ENDIF
109    
110  C     Print out statistics of each horizontal grid array (helps when  C     Print out statistics of each horizontal grid array (helps when
111  C     debugging)  C     debugging)
112        CALL MON_PRINTSTATS_RS(1,XC,'XC',myThid)        CALL MON_PRINTSTATS_RS(1,xC,'XC',myThid)
113        CALL MON_PRINTSTATS_RS(1,XG,'XG',myThid)        CALL MON_PRINTSTATS_RS(1,xG,'XG',myThid)
114        CALL MON_PRINTSTATS_RS(1,DXC,'DXC',myThid)        CALL MON_PRINTSTATS_RS(1,dxC,'DXC',myThid)
115        CALL MON_PRINTSTATS_RS(1,DXF,'DXF',myThid)        CALL MON_PRINTSTATS_RS(1,dxF,'DXF',myThid)
116        CALL MON_PRINTSTATS_RS(1,DXG,'DXG',myThid)        CALL MON_PRINTSTATS_RS(1,dxG,'DXG',myThid)
117        CALL MON_PRINTSTATS_RS(1,DXV,'DXV',myThid)        CALL MON_PRINTSTATS_RS(1,dxV,'DXV',myThid)
118        CALL MON_PRINTSTATS_RS(1,YC,'YC',myThid)        CALL MON_PRINTSTATS_RS(1,yC,'YC',myThid)
119        CALL MON_PRINTSTATS_RS(1,YG,'YG',myThid)        CALL MON_PRINTSTATS_RS(1,yG,'YG',myThid)
120        CALL MON_PRINTSTATS_RS(1,DYC,'DYC',myThid)        CALL MON_PRINTSTATS_RS(1,dyC,'DYC',myThid)
121        CALL MON_PRINTSTATS_RS(1,DYF,'DYF',myThid)        CALL MON_PRINTSTATS_RS(1,dyF,'DYF',myThid)
122        CALL MON_PRINTSTATS_RS(1,DYG,'DYG',myThid)        CALL MON_PRINTSTATS_RS(1,dyG,'DYG',myThid)
123        CALL MON_PRINTSTATS_RS(1,DYU,'DYU',myThid)        CALL MON_PRINTSTATS_RS(1,dyU,'DYU',myThid)
124        CALL MON_PRINTSTATS_RS(1,RA,'RA',myThid)        CALL MON_PRINTSTATS_RS(1,rA,'RA',myThid)
125        CALL MON_PRINTSTATS_RS(1,RAW,'RAW',myThid)        CALL MON_PRINTSTATS_RS(1,rAw,'RAW',myThid)
126        CALL MON_PRINTSTATS_RS(1,RAS,'RAS',myThid)        CALL MON_PRINTSTATS_RS(1,rAs,'RAS',myThid)
127        CALL MON_PRINTSTATS_RS(1,RAZ,'RAZ',myThid)        CALL MON_PRINTSTATS_RS(1,rAz,'RAZ',myThid)
128        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)        CALL MON_PRINTSTATS_RS(1,angleCosC,'AngleCS',myThid)
129        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)        CALL MON_PRINTSTATS_RS(1,angleSinC,'AngleSN',myThid)
130    
131        mon_write_stdout = .FALSE.        IF ( MASTER_CPU_IO(myThid) ) THEN
132        mon_write_mnc    = .FALSE.          mon_write_stdout = .FALSE.
133  #endif          mon_write_mnc    = .FALSE.
134          ENDIF
135    #endif /* ALLOW_MONITOR */
136    
137    C--   Everyone else must wait for the grid to be set
138          _BARRIER
139    
140        RETURN        RETURN
141        END        END
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22