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

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

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

revision 1.3 by cnh, Mon Sep 7 15:36:24 1998 UTC revision 1.4 by cnh, Tue Sep 8 01:37:49 1998 UTC
# Line 39  C     == Local variables == Line 39  C     == Local variables ==
39        INTEGER i,j        INTEGER i,j
40        _RL pf (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL pf (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
41    
42    CcnhDEbugStarts
43          INTEGER i1, j1
44    CcnhDebugEnds
45    
46  C--   Pressure equation source term  C--   Pressure equation source term
47  C     Term is the vertical integral of the divergence of the  C     Term is the vertical integral of the divergence of the
48  C     time tendency terms along with a relaxation term that  C     time tendency terms along with a relaxation term that
# Line 83  C    &     cg2d_x(I  ,J  ,bi,bj)/deltaTM Line 87  C    &     cg2d_x(I  ,J  ,bi,bj)/deltaTM
87         ENDDO         ENDDO
88        ENDDO        ENDDO
89    
90    CcnhDebugSTarts
91    C     IF ( K .EQ. 10 .OR. K .EQ. 1 ) THEN
92    C      i1 = 54
93    C      j1 = 26
94    C      WRITE(0,*) ' @ I = ', i1, ' , J = ', j1, ' K = ', K
95    C      WRITE(0,*) '  cg2d_b = ', cg2d_b(i1,j1,bi,bj)
96    C     ENDIF
97    CcnhDebugEnds
98    
99    
100        RETURN        RETURN
101        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22