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

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

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

revision 1.38 by jmc, Sat Jul 30 22:09:38 2005 UTC revision 1.39 by jmc, Sun Sep 4 19:24:26 2005 UTC
# Line 283  C     Step forward meridional velocity ( Line 283  C     Step forward meridional velocity (
283          ENDDO          ENDDO
284        ENDDO        ENDDO
285    
286    #ifdef ALLOW_DIAGNOSTICS
287    #ifdef ALLOW_CD_CODE
288          IF ( useCDscheme .AND. useDiagnostics ) THEN
289              CALL DIAGNOSTICS_FILL(guCor,'Um_Cori ',k,1,2,bi,bj,myThid)
290              CALL DIAGNOSTICS_FILL(gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid)
291          ENDIF
292    #endif /* ALLOW_CD_CODE */
293    #endif /* ALLOW_DIAGNOSTICS */
294    
295        RETURN        RETURN
296        END        END
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22