Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.9 by adcroft, Mon Mar 22 15:54:05 1999 UTC | revision 1.10 by adcroft, Mon May 24 14:15:15 1999 UTC | |
|---|---|---|
| # | Line 57 C see CG2D.h for the interface to th | Line 57 C see CG2D.h for the interface to th |
| 57 | U cg2d_x, | U cg2d_x, |
| 58 | I myThid ) | I myThid ) |
| 59 | ||
| 60 | _EXCH_XY_R8(cg2d_x, myThid ) | |
| 61 | ||
| 62 | #ifdef ALLOW_NONHYDROSTATIC | #ifdef ALLOW_NONHYDROSTATIC |
| 63 | IF ( nonHydrostatic ) THEN | IF ( nonHydrostatic ) THEN |
| 64 | ||
| # | Line 118 c cg3d_x(i,j,k,bi,bj) = 0. | Line 120 c cg3d_x(i,j,k,bi,bj) = 0. |
| 120 | ||
| 121 | CALL CG3D( myThid ) | CALL CG3D( myThid ) |
| 122 | ||
| 123 | _EXCH_XYZ_R8(cg3d_x, myThid ) | |
| 124 | ||
| 125 | ENDIF | ENDIF |
| 126 | #endif | #endif |
| 127 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |