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

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

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

revision 1.29 by jmc, Thu Jun 15 16:27:54 2006 UTC revision 1.30 by jscott, Wed Sep 6 15:30:25 2006 UTC
# Line 162  CADJ STORE uvel,vvel           = comlev1 Line 162  CADJ STORE uvel,vvel           = comlev1
162        ENDIF        ENDIF
163  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
164    
165  #ifdef ALLOW_THSICE  #if (defined ALLOW_THSICE) && !(defined ALLOW_ATM2D)
166        IF ( useThSIce .AND. fluidIsWater ) THEN        IF ( useThSIce .AND. fluidIsWater ) THEN
167  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
168          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22