/[MITgcm]/MITgcm/pkg/mom_fluxform/mom_v_adv_wv.F
ViewVC logotype

Diff of /MITgcm/pkg/mom_fluxform/mom_v_adv_wv.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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 51  CEOP Line 51  CEOP
51        _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
52    
53        IF ( k.EQ.Nr+1 .AND.        IF ( k.EQ.Nr+1 .AND.
54       &     useRealFreshWaterFlux .AND.       &     useRealFreshWaterFlux .AND. usingPCoords ) THEN
      &     buoyancyRelation .EQ. 'OCEANICP' ) THEN  
55         DO j=1-Oly+1,sNy+Oly         DO j=1-Oly+1,sNy+Oly
56          DO i=1-Olx+1,sNx+Olx          DO i=1-Olx+1,sNx+Olx
57           advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj)           advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22