/[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.6 by jmc, Sun Jan 26 21:18:50 2003 UTC revision 1.9 by jmc, Fri Nov 4 01:31:59 2005 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "MOM_FLUXFORM_OPTIONS.h"
5  #undef OLD_MOM_ADV_W  #undef OLD_MOM_ADV_W
6    
7  CBOP  CBOP
# Line 48  C !LOCAL VARIABLES: ==================== Line 48  C !LOCAL VARIABLES: ====================
48  C  i,j                  :: loop indices  C  i,j                  :: loop indices
49        INTEGER I,J        INTEGER I,J
50  CEOP  CEOP
       _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           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.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22