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

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

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

revision 1.33 by cnh, Sun Sep 6 17:35:20 1998 UTC revision 1.34 by cnh, Mon Sep 7 16:23:11 1998 UTC
# Line 356  C--      Get temporary terms used by ten Line 356  C--      Get temporary terms used by ten
356       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,
357       I        myThid)       I        myThid)
358  CcnhDebugStarts  CcnhDebugStarts
359           IF ( K .EQ. 1 ) THEN  C        IF ( K .EQ. 1 ) THEN
360             CALL PLOT_FIELD_XYRL( rVel(1,1,1), 'K=1 Current rVel.1 ' , myIter, myThid )  C          CALL PLOT_FIELD_XYRL( rVel(1,1,1), 'K=1 Current rVel.1 ' , myIter, myThid )
361             CALL PLOT_FIELD_XYRL( rVel(1,1,2), 'K=1 Current rVel.2 ' , myIter, myThid )  C          CALL PLOT_FIELD_XYRL( rVel(1,1,2), 'K=1 Current rVel.2 ' , myIter, myThid )
362           ENDIF  C        ENDIF
363  CcnhDebugEnds  CcnhDebugEnds
364  C--      Calculate the total vertical diffusivity  C--      Calculate the total vertical diffusivity
365           CALL CALC_DIFFUSIVITY(           CALL CALC_DIFFUSIVITY(
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22