/[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.11 by jmc, Thu May 7 18:30:07 2009 UTC revision 1.12 by jmc, Wed Jun 8 12:17:54 2011 UTC
# Line 8  C     !ROUTINE: EEWRITE_EEENV Line 8  C     !ROUTINE: EEWRITE_EEENV
8    
9  C     !INTERFACE:  C     !INTERFACE:
10        SUBROUTINE EEWRITE_EEENV        SUBROUTINE EEWRITE_EEENV
       IMPLICIT NONE  
11    
12  C     !DESCRIPTION:  C     !DESCRIPTION:
13  C     *==========================================================*  C     *==========================================================*
# Line 23  C     | model specific nuerical paramete Line 22  C     | model specific nuerical paramete
22  C     *==========================================================*  C     *==========================================================*
23    
24  C     !USES:  C     !USES:
25          IMPLICIT NONE
26  C     == Global data ==  C     == Global data ==
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 163  CEOP Line 163  CEOP
163        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
164       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
165    
166        WRITE(msgBuf,'(A,L5,A)')        WRITE(msgBuf,'(A,L5,A)') 'debugMode =', debugMode,
167         & ' ; /* print debug msg. (sequence of S/R calls)  */'
168          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169         &                    SQUEEZE_RIGHT , 1)
170          WRITE(msgBuf,'(A,L5,A)')
171       &  'printMapIncludesZeros=', printMapIncludesZeros,       &  'printMapIncludesZeros=', printMapIncludesZeros,
172       &  ' ; /* print zeros in Std.Output maps */'       &  ' ; /* print zeros in Std.Output maps */'
173        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22