23 |
CEndOfInterface |
CEndOfInterface |
24 |
|
|
25 |
C Local variables |
C Local variables |
26 |
INTEGER i,j,bi,bj |
INTEGER i,j,k,bi,bj |
27 |
|
|
28 |
#ifdef ALLOW_CD |
#ifdef ALLOW_CD |
29 |
C-- Save previous solution. |
C-- Save previous solution. |
42 |
C-- gradient solver. |
C-- gradient solver. |
43 |
C see CG2D.h for the interface to this routine. |
C see CG2D.h for the interface to this routine. |
44 |
CALL CG2D( |
CALL CG2D( |
45 |
|
I cg2d_b, |
46 |
|
U cg2d_x, |
47 |
I myThid ) |
I myThid ) |
48 |
|
|
|
C-- Solve for a three-dimensional pressure term (NH or IGW or both ). |
|
|
C see CG3D.h for the interface to this routine. |
|
|
C*P* CALL CG3D( |
|
|
C*P* I myThid ) |
|
49 |
|
|
50 |
RETURN |
RETURN |
51 |
END |
END |