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

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

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

revision 1.7 by jmc, Sat Nov 5 01:00:57 2005 UTC revision 1.8 by heimbach, Thu Dec 8 15:44:33 2005 UTC
# Line 68  CEOP Line 68  CEOP
68    
69  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
70        IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.4 ) THEN        IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.4 ) THEN
71    # ifndef DISABLE_RSTAR_CODE
72  C-    Integral of b.dr = rStarFac * Integral of b.dr* :  C-    Integral of b.dr = rStarFac * Integral of b.dr* :
73  C      and will add later (select_rStar=2) the contribution of  C      and will add later (select_rStar=2) the contribution of
74  C      the slope of the r* coordinate.  C      the slope of the r* coordinate.
# Line 126  C-     Consistent with Phi'= Integr[ the Line 127  C-     Consistent with Phi'= Integr[ the
127           ENDDO           ENDDO
128          ENDDO          ENDDO
129         ENDIF         ENDIF
130    # endif /* DISABLE_RSTAR_CODE */
131        ELSE        ELSE
132  #else /* NONLIN_FRSURF */  #else /* NONLIN_FRSURF */
133        IF (.TRUE.) THEN        IF (.TRUE.) THEN
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22