/[MITgcm]/MITgcm/eesupp/src/eewrite_eeenv.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/eewrite_eeenv.F

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

revision 1.7 by cnh, Fri Sep 21 03:54:34 2001 UTC revision 1.10 by jmc, Tue Apr 21 16:01:32 2009 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     *==========================================================*  C     *==========================================================*
15  C     | SUBROUTINE EERWITE_EEENV                                    C     | SUBROUTINE EERWITE\_EEENV
16  C     | o Write execution environment summary                      C     | o Write execution environment summary
17  C     *==========================================================*  C     *==========================================================*
18  C     | Write a summary of the execution environment as            C     | Write a summary of the execution environment as
19  C     | configured for this run. The execution environment is      C     | configured for this run. The execution environment is
20  C     | the computational mode in which the model operatoes. It    C     | the computational mode in which the model operatoes. It
21  C     | includes the computational grid but does not include any    C     | includes the computational grid but does not include any
22  C     | model specific nuerical parameters.                        C     | model specific nuerical parameters.
23  C     *==========================================================*  C     *==========================================================*
24    
25  C     !USES:  C     !USES:
# Line 33  C     == Local variables == Line 33  C     == Local variables ==
33  C     msgBuf :: Temp. for building text messages.  C     msgBuf :: Temp. for building text messages.
34        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
35  CEOP  CEOP
36          
37        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
38       & '// ======================================================='       & '// ======================================================='
39        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
40       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
41    
42        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
43       & '// Computational Grid Specification ( see files "SIZE.h" )'       & '// Computational Grid Specification ( see files "SIZE.h" )'
44        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
45       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
46    
47        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
48       & '//                                  ( and "eedata"       )'       & '//                                  ( and "eedata"       )'
49        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
51    
52        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
53       & '// ======================================================='       & '// ======================================================='
54        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
55       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
# Line 109  CEOP Line 109  CEOP
109        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
110       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
111    
112        WRITE(msgBuf,'(A,I5,A)') '      nX =', nX,        WRITE(msgBuf,'(A,I5,A)') '      Nx =', Nx,
113       & ' ; /* Total domain size in X ( = nPx*nSx*sNx ) */'       & ' ; /* Total domain size in X ( = nPx*nSx*sNx ) */'
114        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
115       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
116    
117        WRITE(msgBuf,'(A,I5,A)') '      nY =', nY,        WRITE(msgBuf,'(A,I5,A)') '      Ny =', Ny,
118       & ' ; /* Total domain size in Y ( = nPy*nSy*sNy ) */'       & ' ; /* Total domain size in Y ( = nPy*nSy*sNy ) */'
119        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
120       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
# Line 154  CEOP Line 154  CEOP
154        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
155       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
156    
157          WRITE(msgBuf,'(A,L4,A)') 'useCoupler=', useCoupler,
158         & ' ; /* Flag used to control communications with */'
159          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
160         &  SQUEEZE_RIGHT , 1)
161          WRITE(msgBuf,'(A,A,A)') '          ', '     ' ,
162         & '   /*  other model components, through a coupler */'
163          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
164         &  SQUEEZE_RIGHT , 1)
165    
166          CALL WRITE_0D_L( printMapIncludesZeros, INDEX_NONE,
167         &                'printMapIncludesZeros=',
168         &                ' /* print zeros in Std.Output maps */' )
169          CALL WRITE_0D_I( maxLengthPrt1D, INDEX_NONE, 'maxLengthPrt1D=',
170         &           ' /* max length of 1.D array printed to Std.Out */' )
171    
172        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
173        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
174       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22