/[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.35 by cnh, Tue Sep 29 18:50:57 1998 UTC revision 1.36 by cnh, Wed Oct 28 03:11:37 1998 UTC
# Line 357  C--      Get temporary terms used by ten Line 357  C--      Get temporary terms used by ten
357       I        bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,       I        bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
358       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,       O        xA,yA,uTrans,vTrans,rTrans,rVel,maskC,maskUp,
359       I        myThid)       I        myThid)
 CcnhDebugStarts  
 C        IF ( K .EQ. 1 ) THEN  
 C          CALL PLOT_FIELD_XYRL( rVel(1,1,1), 'K=1 Current rVel.1 ' , myIter, myThid )  
 C          CALL PLOT_FIELD_XYRL( rVel(1,1,2), 'K=1 Current rVel.2 ' , myIter, myThid )  
 C        ENDIF  
 CcnhDebugEnds  
360  C--      Calculate the total vertical diffusivity  C--      Calculate the total vertical diffusivity
361           CALL CALC_DIFFUSIVITY(           CALL CALC_DIFFUSIVITY(
362       I        bi,bj,iMin,iMax,jMin,jMax,K,       I        bi,bj,iMin,iMax,jMin,jMax,K,
# Line 456  C     write(0,*) 'dynamics: S  ',minval( Line 450  C     write(0,*) 'dynamics: S  ',minval(
450  C    &                           maxval(salt(1:sNx,1:sNy,:,:,:))  C    &                           maxval(salt(1:sNx,1:sNy,:,:,:))
451  C     write(0,*) 'dynamics: phiHyd ',minval(phiHyd/(Gravity*Rhonil),mask=phiHyd.NE.0.),  C     write(0,*) 'dynamics: phiHyd ',minval(phiHyd/(Gravity*Rhonil),mask=phiHyd.NE.0.),
452  C    &                           maxval(phiHyd/(Gravity*Rhonil))  C    &                           maxval(phiHyd/(Gravity*Rhonil))
453    C     CALL PLOT_FIELD_XYZRL( gU, ' GU exiting dyanmics ' ,
454    C    &Nr, 1, myThid )
455    C     CALL PLOT_FIELD_XYZRL( gV, ' GV exiting dyanmics ' ,
456    C    &Nr, 1, myThid )
457    C     CALL PLOT_FIELD_XYZRL( gS, ' GS exiting dyanmics ' ,
458    C    &Nr, 1, myThid )
459    C     CALL PLOT_FIELD_XYZRL( gT, ' GT exiting dyanmics ' ,
460    C    &Nr, 1, myThid )
461    
462    
463        RETURN        RETURN
464        END        END
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22