/[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.16 by cnh, Tue Jun 9 16:34:03 1998 UTC revision 1.17 by cnh, Wed Jun 10 01:44:03 1998 UTC
# Line 366  C--     Implicit diffusion Line 366  C--     Implicit diffusion
366         ENDDO         ENDDO
367        ENDDO        ENDDO
368    
369        write(0,*) 'dynamics: pS ',minval(cg2d_x(1:sNx,1:sNy,:,:)),  C     write(0,*) 'dynamics: pS ',minval(cg2d_x(1:sNx,1:sNy,:,:)),
370       &                           maxval(cg2d_x(1:sNx,1:sNy,:,:))  C    &                           maxval(cg2d_x(1:sNx,1:sNy,:,:))
371        write(0,*) 'dynamics: U  ',minval(uVel(1:sNx,1:sNy,:,:,:)),  C     write(0,*) 'dynamics: U  ',minval(uVel(1:sNx,1:sNy,:,:,:)),
372       &                           maxval(uVel(1:sNx,1:sNy,:,:,:))  C    &                           maxval(uVel(1:sNx,1:sNy,:,:,:))
373        write(0,*) 'dynamics: V  ',minval(vVel(1:sNx,1:sNy,:,:,:)),  C     write(0,*) 'dynamics: V  ',minval(vVel(1:sNx,1:sNy,:,:,:)),
374       &                           maxval(vVel(1:sNx,1:sNy,:,:,:))  C    &                           maxval(vVel(1:sNx,1:sNy,:,:,:))
375  cblk  write(0,*) 'dynamics: K13',minval(K13(1:sNx,1:sNy,:)),  cblk  write(0,*) 'dynamics: K13',minval(K13(1:sNx,1:sNy,:)),
376  cblk &                           maxval(K13(1:sNx,1:sNy,:))  cblk &                           maxval(K13(1:sNx,1:sNy,:))
377  cblk  write(0,*) 'dynamics: K23',minval(K23(1:sNx,1:sNy,:)),  cblk  write(0,*) 'dynamics: K23',minval(K23(1:sNx,1:sNy,:)),
378  cblk &                           maxval(K23(1:sNx,1:sNy,:))  cblk &                           maxval(K23(1:sNx,1:sNy,:))
379  cblk  write(0,*) 'dynamics: K33',minval(K33(1:sNx,1:sNy,:)),  cblk  write(0,*) 'dynamics: K33',minval(K33(1:sNx,1:sNy,:)),
380  cblk &                           maxval(K33(1:sNx,1:sNy,:))  cblk &                           maxval(K33(1:sNx,1:sNy,:))
381        write(0,*) 'dynamics: gT ',minval(gT(1:sNx,1:sNy,:,:,:)),  C     write(0,*) 'dynamics: gT ',minval(gT(1:sNx,1:sNy,:,:,:)),
382       &                           maxval(gT(1:sNx,1:sNy,:,:,:))  C    &                           maxval(gT(1:sNx,1:sNy,:,:,:))
383        write(0,*) 'dynamics: T  ',minval(Theta(1:sNx,1:sNy,:,:,:)),  C     write(0,*) 'dynamics: T  ',minval(Theta(1:sNx,1:sNy,:,:,:)),
384       &                           maxval(Theta(1:sNx,1:sNy,:,:,:))  C    &                           maxval(Theta(1:sNx,1:sNy,:,:,:))
385  cblk  write(0,*) 'dynamics: pH ',minval(pH/(Gravity*Rhonil)),  cblk  write(0,*) 'dynamics: pH ',minval(pH/(Gravity*Rhonil)),
386  cblk &                           maxval(pH/(Gravity*Rhonil))  cblk &                           maxval(pH/(Gravity*Rhonil))
387    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22