Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by edhill, Thu Oct 9 04:19:20 2003 UTC | revision 1.8 by jmc, Tue Oct 19 02:43:06 2004 UTC | |
---|---|---|
# | Line 50 CEOP | Line 50 CEOP |
50 | _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) | _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
51 | ||
52 | IF ( k.EQ.Nr+1 .AND. | IF ( k.EQ.Nr+1 .AND. |
53 | & useRealFreshWaterFlux .AND. | & useRealFreshWaterFlux .AND. usingPCoords ) THEN |
& buoyancyRelation .EQ. 'OCEANICP' ) THEN | ||
54 | DO j=1-Oly+1,sNy+Oly | DO j=1-Oly+1,sNy+Oly |
55 | DO i=1-Olx+1,sNx+Olx | DO i=1-Olx+1,sNx+Olx |
56 | advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) | advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |