/[MITgcm]/MITgcm/pkg/exf/exf_monitor_ad.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_monitor_ad.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.6 by gforget, Tue Aug 28 19:17:46 2012 UTC revision 1.7 by jmc, Sat Oct 5 19:36:13 2013 UTC
# Line 88  C     & mon_write_mnc (since it is the o Line 88  C     & mon_write_mnc (since it is the o
88              WRITE(msgBuf,'(2A)') '// ===========================',              WRITE(msgBuf,'(2A)') '// ===========================',
89       &           '============================'       &           '============================'
90              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
91              WRITE(msgBuf,'(A,I2)')              WRITE(msgBuf,'(A,I2)')
92       &           '// Begin AD_MONITOR EXF statistics for iwhen = ',       &           '// Begin AD_MONITOR EXF statistics for iwhen = ',
93       &           iwhen       &           iwhen
94              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
# Line 161  cph     &           maskInC, maskInC, rA Line 161  cph     &           maskInC, maskInC, rA
161  cph        CALL MON_WRITESTATS_RL( 1, adrunoff,  '_adrunoff',  cph        CALL MON_WRITESTATS_RL( 1, adrunoff,  '_adrunoff',
162  cph     &           maskInC, maskInC, rA , drF, dummyRL, myThid )  cph     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
163  #endif  #endif
164  #ifdef EXF_ALLOW_SEAICE_RELAX  #ifdef EXF_SEAICE_FRACTION
165  cph        CALL MON_WRITESTATS_RL( 1, areamask,'_areamask',  cph        CALL MON_WRITESTATS_RL( 1, areamask,'_areamask',
166  cph     &           maskInC, maskInC, rA , drF, dummyRL, myThid )  cph     &           maskInC, maskInC, rA , drF, dummyRL, myThid )
167  #endif  #endif
# Line 201  C     & mon_write_mnc (since it is the o Line 201  C     & mon_write_mnc (since it is the o
201              WRITE(msgBuf,'(2A)') '// ===========================',              WRITE(msgBuf,'(2A)') '// ===========================',
202       &           '============================'       &           '============================'
203              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
204              WRITE(msgBuf,'(A,I2)')              WRITE(msgBuf,'(A,I2)')
205       &           '// End AD_MONITOR EXF statistics for iwhen = ',       &           '// End AD_MONITOR EXF statistics for iwhen = ',
206       &           iwhen       &           iwhen
207              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)              CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22