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 |
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 |