Parent Directory | Revision Log | Revision Graph | Patch
revision 1.31 by cnh, Sat Aug 22 17:51:08 1998 UTC | revision 1.32 by cnh, Sun Aug 23 15:34:40 1998 UTC | |
---|---|---|
# | Line 273 C-- Recompute density after mixing | Line 273 C-- Recompute density after mixing |
273 | I myThid ) | I myThid ) |
274 | ENDIF | ENDIF |
275 | C-- Calculate buoyancy | C-- Calculate buoyancy |
276 | CALL CALC_BUOY( | CALL CALC_BUOYANCY( |
277 | I bi,bj,iMin,iMax,jMin,jMax,K,rhoKm1, | I bi,bj,iMin,iMax,jMin,jMax,K,rhoKm1, |
278 | O buoyKm1, | O buoyKm1, |
279 | I myThid ) | I myThid ) |
# | Line 313 C-- Recompute density after mixing | Line 313 C-- Recompute density after mixing |
313 | I myThid ) | I myThid ) |
314 | ENDIF | ENDIF |
315 | C-- Calculate buoyancy | C-- Calculate buoyancy |
316 | CALL CALC_BUOY( | CALL CALC_BUOYANCY( |
317 | I bi,bj,iMin,iMax,jMin,jMax,K,rhoK, | I bi,bj,iMin,iMax,jMin,jMax,K,rhoK, |
318 | O buoyK, | O buoyK, |
319 | I myThid ) | I myThid ) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |