/[MITgcm]/MITgcm/model/src/pre_cg3d.F
ViewVC logotype

Diff of /MITgcm/model/src/pre_cg3d.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Thu Dec 15 22:45:16 2011 UTC revision 1.5 by jmc, Wed Apr 11 15:49:38 2012 UTC
# Line 89  C      (has been done for cg2d_b ; and a Line 89  C      (has been done for cg2d_b ; and a
89          ENDIF          ENDIF
90    
91  C--   Update or Add free-surface contribution to cg3d_b:  C--   Update or Add free-surface contribution to cg3d_b:
 c        IF ( select_rStar.EQ.0 .AND. exactConserv ) THEN  
92           IF ( select_rStar.EQ.0 .AND. .NOT.oldFreeSurfTerm ) THEN           IF ( select_rStar.EQ.0 .AND. .NOT.oldFreeSurfTerm ) THEN
93             tmpFac = 0.             tmpFac = 0.
94             DO j=1,sNy             DO j=1,sNy
# Line 138  c    &                  +freeSurfFac*(et Line 137  c    &                  +freeSurfFac*(et
137              ENDDO              ENDDO
138             ENDDO             ENDDO
139  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
140           ELSEIF ( usingZCoords ) THEN           ELSEIF ( uniformFreeSurfLev ) THEN
141  C-       Z coordinate: assume surface @ level k=1  C-       Z coordinate: assume surface @ level k=1
142             tmpFac = freeSurfFac*deepFac2F(1)             tmpFac = freeSurfFac*deepFac2F(1)
143           ELSE           ELSE
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22