/[MITgcm]/MITgcm/pkg/gmredi/gmredi_slope_psi.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_slope_psi.F

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

revision 1.9 by jmc, Thu Dec 8 21:40:16 2005 UTC revision 1.10 by heimbach, Tue Jun 26 15:34:15 2007 UTC
# Line 165  CADJ STORE dSigmaDrS(:,:)    = comlev1_b Line 165  CADJ STORE dSigmaDrS(:,:)    = comlev1_b
165    
166  #endif /* GM_EXCLUDE_CLIPPING */  #endif /* GM_EXCLUDE_CLIPPING */
167    
168          ELSEIF (GM_taper_scheme.EQ.'fm07') THEN
169    
170            STOP 'GMREDI_SLOPE_PSI: AdvForm not yet implemented for fm07'
171    
172        ELSE        ELSE
173    
174  #ifdef GM_EXCLUDE_TAPERING  #ifdef GM_EXCLUDE_TAPERING
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22