/[MITgcm]/MITgcm/pkg/thsice/thsice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_readparms.F

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

revision 1.11 by jmc, Wed Apr 4 02:11:35 2007 UTC revision 1.12 by jmc, Sun Apr 8 18:54:04 2007 UTC
# Line 197  C     Set I/O parameters Line 197  C     Set I/O parameters
197        ENDIF        ENDIF
198  #endif  #endif
199    
200    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
201  C--   Check parameter consistency:  C--   Check parameter consistency:
202          IF ( thSIceAdvScheme.EQ.0 .AND. thSIce_diffK.NE.0. ) THEN
203            WRITE(msgBuf,'(2A)')
204         &   'THSICE_READPARMS: to use thSIce_diffK, needs to select',
205         &   ' one advection scheme (thSIceAdvScheme<>0)'
206            CALL PRINT_ERROR( msgBuf , myThid )
207            STOP 'ABNORMAL END: THSICE_READPARMS'
208          ENDIF
209    #ifndef ALLOW_GENERIC_ADVDIFF
210          IF ( thSIceAdvScheme.NE.0 ) THEN
211            WRITE(msgBuf,'(2A)')
212         &   'THSICE_READPARMS: Need to compile "generic_advdiff" pkg',
213         &   ' in order to use thSIceAdvScheme'
214            CALL PRINT_ERROR( msgBuf , myThid )
215            STOP 'ABNORMAL END: THSICE_READPARMS'
216          ENDIF
217    #endif /* ndef ALLOW_GENERIC_ADVDIFF */
218    
219        IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN        IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN
220  C--     If useSEAICE=.true., the stress is computed in seaice_model,  C--     If useSEAICE=.true., the stress is computed in seaice_model,
221  C--     so that it does not need any further reduction  C--     so that it does not need any further reduction
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22