/[MITgcm]/MITgcm/model/src/impldiff.F
ViewVC logotype

Diff of /MITgcm/model/src/impldiff.F

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

revision 1.23 by jmc, Thu Dec 16 23:20:06 2004 UTC revision 1.24 by jmc, Mon Dec 20 19:11:14 2004 UTC
# Line 57  C     == Local variables == Line 57  C     == Local variables ==
57        _RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL bet(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
58        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
59  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
       INTEGER     kk  
60        CHARACTER*8 diagName        CHARACTER*8 diagName
61        CHARACTER*4 diagSufx        CHARACTER*4 diagSufx
62  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
# Line 240  C         otherwise counter is not incre Line 239  C         otherwise counter is not incre
239               ENDDO               ENDDO
240              ENDDO              ENDDO
241            ENDIF            ENDIF
242            kk = -k            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
           CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid)  
243           ENDDO           ENDDO
244          ENDIF          ENDIF
245        ENDIF        ENDIF
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22