/[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.4 by heimbach, Thu Apr 19 16:06:43 2012 UTC revision 1.5 by jmc, Thu Aug 2 01:23:16 2012 UTC
# Line 35  C     !USES: Line 35  C     !USES:
35  #endif  #endif
36    
37  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
       INTEGER myIter  
       _RL myTime  
38        INTEGER iwhen        INTEGER iwhen
39          _RL myTime
40          INTEGER myIter
41        INTEGER myThid        INTEGER myThid
42  CEOP  CEOP
43    
# Line 182  cph     &             maskInS, maskInS, Line 182  cph     &             maskInS, maskInS,
182    
183          ELSEIF ( iwhen .EQ.3 ) THEN          ELSEIF ( iwhen .EQ.3 ) THEN
184    
185            CALL MON_WRITESTATS_RL( 1, adfu, '_adfu',            CALL MON_WRITESTATS_RS( 1, adfu, '_adfu',
186       &             maskInC, maskInC, rA , drF, dummyRL, myThid )       &             maskInC, maskInC, rA , drF, dummyRL, myThid )
187            CALL MON_WRITESTATS_RL( 1, adfv, '_adfv',            CALL MON_WRITESTATS_RS( 1, adfv, '_adfv',
188       &             maskInC, maskInC, rA , drF, dummyRL, myThid )       &             maskInC, maskInC, rA , drF, dummyRL, myThid )
189            CALL MON_WRITESTATS_RL( 1, adqnet,   '_adqnet',            CALL MON_WRITESTATS_RS( 1, adqnet,   '_adqnet',
190       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
191            CALL MON_WRITESTATS_RL( 1, adempmr,   '_adempmr',            CALL MON_WRITESTATS_RS( 1, adempmr,   '_adempmr',
192       &           maskInC, maskInC, rA , drF, dummyRL, myThid )       &           maskInC, maskInC, rA , drF, dummyRL, myThid )
193    
194          ENDIF          ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22