/[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.9 by edhill, Sat Mar 27 03:51:51 2004 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          
# 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    
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.7  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22