/[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.5 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.8 by jmc, Mon Dec 15 02:02:39 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    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                
37        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
38       & '// ======================================================='       & '// ======================================================='
# Line 146  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,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    
167        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
168        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22