/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_implicit_r.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_implicit_r.F

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

revision 1.8 by jmc, Thu Dec 16 22:28:43 2004 UTC revision 1.9 by jmc, Mon Dec 20 19:10:13 2004 UTC
# Line 73  C errCode   :: > 0 if singular matrix Line 73  C errCode   :: > 0 if singular matrix
73        _RL rTransKp1(1-Olx:sNx+Olx,1-Oly:sNy+Oly)        _RL rTransKp1(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
74        _RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)        _RL localTijk(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
75  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
       INTEGER     kk  
76        CHARACTER*8 diagName        CHARACTER*8 diagName
77        CHARACTER*4 GAD_DIAG_SUFX, diagSufx        CHARACTER*4 GAD_DIAG_SUFX, diagSufx
78        EXTERNAL    GAD_DIAG_SUFX        EXTERNAL    GAD_DIAG_SUFX
# Line 299  C         otherwise counter is not incre Line 298  C         otherwise counter is not incre
298               ENDDO               ENDDO
299              ENDDO              ENDDO
300            ENDIF            ENDIF
301            kk = -k            CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
           CALL DIAGNOSTICS_FILL(df,diagName, kk,1, 2,bi,bj, myThid)  
302           ENDDO           ENDDO
303          ENDIF          ENDIF
304        ENDIF        ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22