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 |