Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.27 by cnh, Thu Aug 20 16:03:15 1998 UTC | revision 1.28 by cnh, Thu Aug 20 19:25:05 1998 UTC | |
|---|---|---|
| # | Line 227 C-- Set up work arrays that need val | Line 227 C-- Set up work arrays that need val |
| 227 | BOTTOM_LAYER = K .EQ. Nz | BOTTOM_LAYER = K .EQ. Nz |
| 228 | ||
| 229 | C-- Calculate gradient of surface pressure | C-- Calculate gradient of surface pressure |
| 230 | CALL GRAD_PSURF( | CALL CALC_GRAD_ETA_SURF( |
| 231 | I bi,bj,iMin,iMax,jMin,jMax, | I bi,bj,iMin,iMax,jMin,jMax, |
| 232 | O pSurfX,pSurfY, | O pSurfX,pSurfY, |
| 233 | I myThid) | I myThid) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |