/[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.11 by jmc, Thu May 7 18:30:07 2009 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     \==========================================================/  
11        IMPLICIT NONE        IMPLICIT NONE
12    
13  C     === Global data ===  C     !DESCRIPTION:
14    C     *==========================================================*
15    C     | SUBROUTINE EERWITE\_EEENV
16    C     | o Write execution environment summary
17    C     *==========================================================*
18    C     | Write a summary of the execution environment as
19    C     | configured for this run. The execution environment is
20    C     | the computational mode in which the model operatoes. It
21    C     | includes the computational grid but does not include any
22    C     | model specific nuerical parameters.
23    C     *==========================================================*
24    
25    C     !USES:
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)')
167         &  'printMapIncludesZeros=', printMapIncludesZeros,
168         &  ' ; /* print zeros in Std.Output maps */'
169          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
170         &                    SQUEEZE_RIGHT , 1)
171          WRITE(msgBuf,'(A,I5,A)') 'maxLengthPrt1D=', maxLengthPrt1D,
172         &           ' /* maxLength of 1D array printed to StdOut */'
173          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
174         &                    SQUEEZE_RIGHT , 1)
175    
176        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
177        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
179    
 C  
180        RETURN        RETURN
181        END        END
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22