/[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.10 by jmc, Tue Apr 21 16:01:32 2009 UTC revision 1.11 by jmc, Thu May 7 18:30:07 2009 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,        WRITE(msgBuf,'(A,L5,A)') 'useCoupler=', useCoupler,
158       & ' ; /* Flag used to control communications with */'       & ' ;/* Flag used to control communications with   */'
159        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
160       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
161        WRITE(msgBuf,'(A,A,A)') '          ', '     ' ,        WRITE(msgBuf,'(A,A,A)')  '           ', '     ',
162       & '   /*  other model components, through a coupler */'       & '  /*  other model components, through a coupler */'
163        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
164       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
165    
166        CALL WRITE_0D_L( printMapIncludesZeros, INDEX_NONE,        WRITE(msgBuf,'(A,L5,A)')
167       &                'printMapIncludesZeros=',       &  'printMapIncludesZeros=', printMapIncludesZeros,
168       &                ' /* print zeros in Std.Output maps */' )       &  ' ; /* print zeros in Std.Output maps */'
169        CALL WRITE_0D_I( maxLengthPrt1D, INDEX_NONE, 'maxLengthPrt1D=',        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
170       &           ' /* max length of 1.D array printed to Std.Out */' )       &                    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.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22