Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.33 by adcroft, Fri Jun 21 18:36:06 2002 UTC | revision 1.34 by adcroft, Mon Sep 23 16:13:31 2002 UTC | |
|---|---|---|
| # | Line 74 C-- Save previous solution & Initialis | Line 74 C-- Save previous solution & Initialis |
| 74 | IF (useRealFreshWaterFlux) THEN | IF (useRealFreshWaterFlux) THEN |
| 75 | tmpFac = freeSurfFac | tmpFac = freeSurfFac |
| 76 | IF (exactConserv) tmpFac = freeSurfFac*implicDiv2DFlow | IF (exactConserv) tmpFac = freeSurfFac*implicDiv2DFlow |
| 77 | IF ( buoyancyRelation .eq. 'OCEANICP' ) THEN | |
| 78 | tmpFac = tmpFac*horiVertRatio | |
| 79 | ENDIF | |
| 80 | DO j=1,sNy | DO j=1,sNy |
| 81 | DO i=1,sNx | DO i=1,sNx |
| 82 | cg2d_b(i,j,bi,bj) = | cg2d_b(i,j,bi,bj) = |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |