/[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.6 by cnh, Sun Feb 4 14:38:43 2001 UTC revision 1.12 by jmc, Wed Jun 8 12:17:54 2011 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: EEWRITE_EEENV
8    
9    C     !INTERFACE:
10        SUBROUTINE EEWRITE_EEENV        SUBROUTINE EEWRITE_EEENV
 C     /==========================================================\  
 C     | SUBROUTINE EERWITE_EEENV                                 |  
 C     | o Write execution environment summary                    |  
 C     |==========================================================|  
 C     | Write a summary of the execution environment as          |  
 C     | configured for this run. The execution environment is    |  
 C     | the computational mode in which the model operatoes. It  |  
 C     | includes the computational grid but does not include any |  
 C     | model specific nuerical parameters.                      |  
 C     \==========================================================/  
       IMPLICIT NONE  
11    
12  C     === Global data ===  C     !DESCRIPTION:
13    C     *==========================================================*
14    C     | SUBROUTINE EERWITE\_EEENV
15    C     | o Write execution environment summary
16    C     *==========================================================*
17    C     | Write a summary of the execution environment as
18    C     | configured for this run. The execution environment is
19    C     | the computational mode in which the model operatoes. It
20    C     | includes the computational grid but does not include any
21    C     | model specific nuerical parameters.
22    C     *==========================================================*
23    
24    C     !USES:
25          IMPLICIT NONE
26    C     == Global data ==
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "EESUPPORT.h"  #include "EESUPPORT.h"
30    
31  CEndOfInterface  C     !LOCAL VARIABLES:
32    C     == Local variables ==
33  C     === Local variables ===  C     msgBuf :: Temp. for building text messages.
34        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
35          CEOP
36        WRITE(msgBuf,'(A)')  
37          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 102  C     === Local variables === Line 109  C     === Local variables ===
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 147  C     === Local variables === Line 154  C     === Local variables ===
154        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
155       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
156    
157          WRITE(msgBuf,'(A,L5,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          WRITE(msgBuf,'(A,L5,A)') 'debugMode =', debugMode,
167         & ' ; /* print debug msg. (sequence of S/R calls)  */'
168          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169         &                    SQUEEZE_RIGHT , 1)
170          WRITE(msgBuf,'(A,L5,A)')
171         &  'printMapIncludesZeros=', printMapIncludesZeros,
172         &  ' ; /* print zeros in Std.Output maps */'
173          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
174         &                    SQUEEZE_RIGHT , 1)
175          WRITE(msgBuf,'(A,I5,A)') 'maxLengthPrt1D=', maxLengthPrt1D,
176         &           ' /* maxLength of 1D array printed to StdOut */'
177          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178         &                    SQUEEZE_RIGHT , 1)
179    
180        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
181        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
182       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
183    
 C  
184        RETURN        RETURN
185        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22