/[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.7 by cnh, Fri Sep 21 03:54:34 2001 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                
37        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
38       & '// ======================================================='       & '// ======================================================='
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22