/[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.77 by jmc, Wed Aug 6 23:11:49 2014 UTC revision 1.78 by jmc, Mon Aug 11 15:27:11 2014 UTC
# Line 283  C       code is being compiled Line 283  C       code is being compiled
283        ENDIF        ENDIF
284  #endif  #endif
285    
286    C     o Need to define ALLOW_GEOTHERMAL_FLUX to use geothermalFile forcing
287    #ifndef ALLOW_GEOTHERMAL_FLUX
288          IF ( geothermalFile.NE.' ' ) THEN
289            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
290         &  'geothermalFile is set but Geothermal-Flux code'
291            CALL PRINT_ERROR( msgBuf, myThid )
292            WRITE(msgBuf,'(2A)')' is not compiled.',
293         &  ' Re-compile with "#define ALLOW_GEOTHERMAL_FLUX"'
294            CALL PRINT_ERROR( msgBuf, myThid )
295            errCount = errCount + 1
296          ENDIF
297    #endif /* ALLOW_GEOTHERMAL_FLUX */
298    
299  #ifndef ALLOW_FRICTION_HEATING  #ifndef ALLOW_FRICTION_HEATING
300        IF ( addFrictionHeating ) THEN        IF ( addFrictionHeating ) THEN
301          WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T',          WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T',
Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22