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

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

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

revision 1.51 by heimbach, Sat Oct 10 22:36:14 2009 UTC revision 1.52 by mlosch, Tue Nov 24 09:06:29 2009 UTC
# Line 221  C       code is being compiled Line 221  C       code is being compiled
221        ENDIF        ENDIF
222  #endif  #endif
223    
224    #ifndef ALLOW_SRCG
225          IF (useSRCGSolver) THEN
226            WRITE(msgBuf,'(A,A)')
227         &  'CONFIG_CHECK: useSRCGSolver = .TRUE., but single reduction ',
228         &  'code is not compiled.'
229            CALL PRINT_ERROR( msgBuf , 1)
230            WRITE(msgBuf,'(A)')
231         &  'CONFIG_CHECK: Re-compile with ALLOW_SRCG defined'
232            CALL PRINT_ERROR( msgBuf , 1)
233            STOP 'ABNORMAL END: S/R CONFIG_CHECK'
234          ENDIF
235    #endif /* ALLOW_SRCG */
236    
237  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
238    
239  C--   Check parameter consistency :  C--   Check parameter consistency :
Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52
  ViewVC Help
Powered by ViewVC 1.1.22