/[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.3 by adcroft, Wed Sep 26 19:05:21 2001 UTC revision 1.4 by jmc, Tue Dec 10 03:02:38 2002 UTC
# Line 25  C !USES: =============================== Line 25  C !USES: ===============================
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28    #ifdef NONLIN_FRSURF
29    #include "SURFACE.h"
30    #endif
31    
32  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
33  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
# Line 46  C  i,j                  :: loop indices Line 49  C  i,j                  :: loop indices
49        INTEGER I,J        INTEGER I,J
50  CEOP  CEOP
51    
52    #ifdef NONLIN_FRSURF
53          IF ( k.EQ.Nr+1 .AND.
54         &     useRealFreshWaterFlux .AND.
55         &     buoyancyRelation .EQ. 'OCEANICP' ) THEN
56           DO j=1-Oly+1,sNy+Oly
57            DO i=1-Olx,sNx+Olx
58             advectiveFluxWV(i,j) = convertEmP2rUnit*
59         &      ( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj)
60         &       +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj)
61         &      )*0.5 _d 0 * vFld(i,j,k-1,bi,bj)
62            ENDDO
63           ENDDO
64    
65          ELSEIF ( k.GT.Nr .OR. (k.EQ.1.AND.rigidLid) ) THEN
66    #else /* NONLIN_FRSURF */
67        IF ( k.GT.Nr .OR.        IF ( k.GT.Nr .OR.
68       &    (k.EQ.1.AND.rigidLid) ) THEN       &    (k.EQ.1.AND.rigidLid) ) THEN
69    #endif /* NONLIN_FRSURF */
70  C     Advective flux = 0  at k=Nr+1 ; = 0 at k=1 if rigid-lid  C     Advective flux = 0  at k=Nr+1 ; = 0 at k=1 if rigid-lid
71    
72        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22