/[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.8 by jmc, Mon Dec 15 02:02:39 2003 UTC
# 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.8
  ViewVC Help
Powered by ViewVC 1.1.22