/[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.69 by jmc, Fri Jul 13 23:24:52 2012 UTC revision 1.70 by jmc, Fri Nov 9 22:31:45 2012 UTC
# Line 63  C       code is being compiled Line 63  C       code is being compiled
63          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
64       &  'CONFIG_CHECK: diffKrFile is set but never used.'       &  'CONFIG_CHECK: diffKrFile is set but never used.'
65          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
66          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
67       &  'Re-compile with:  #define ALLOW_3D_DIFFKR'       &  'Re-compile with: "#define ALLOW_3D_DIFFKR"'
68          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
69          errCount = errCount + 1          errCount = errCount + 1
70        ENDIF        ENDIF
# Line 231  C       code is being compiled Line 231  C       code is being compiled
231  #ifndef ALLOW_ADDFLUID  #ifndef ALLOW_ADDFLUID
232        IF ( selectAddFluid.NE.0 ) THEN        IF ( selectAddFluid.NE.0 ) THEN
233          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
234       &   'CONFIG_CHECK: #undef ALLOW_ADDFLUID and'       &   'CONFIG_CHECK: #undef ALLOW_ADDFLUID (CPP_OPTIONS.h) and'
235          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
236          WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=',          WRITE(msgBuf,'(A,I4,A)') 'CONFIG_CHECK: selectAddFluid=',
237       &                           selectAddFluid, ' is not zero'       &                           selectAddFluid, ' is not zero'
# Line 248  C       code is being compiled Line 248  C       code is being compiled
248       &  'CONFIG_CHECK: pLoadFile is set but you have not'       &  'CONFIG_CHECK: pLoadFile is set but you have not'
249          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
250          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
251       &  'compiled the model with the pressure loading code.'       &  ' compiled the model with the pressure loading code.'
252          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
253          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
254       &  'Re-compile with:  #define ATMOSPHERIC_LOADING'       &  ' Re-compile with: "#define ATMOSPHERIC_LOADING"'
255          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
256          errCount = errCount + 1          errCount = errCount + 1
257        ENDIF        ENDIF
# Line 260  C       code is being compiled Line 260  C       code is being compiled
260       &  'CONFIG_CHECK: sIceLoad is computed but'       &  'CONFIG_CHECK: sIceLoad is computed but'
261          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
262          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
263       &  'pressure loading code is not compiled.'       &  ' pressure loading code is not compiled.'
264          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
265          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
266       &  'Re-compile with:  #define ATMOSPHERIC_LOADING'       &  ' Re-compile with: "#define ATMOSPHERIC_LOADING"'
267            CALL PRINT_ERROR( msgBuf, myThid )
268            errCount = errCount + 1
269          ENDIF
270    #endif
271    
272    #ifndef ALLOW_FRICTION_HEATING
273          IF ( addFrictionHeating ) THEN
274            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating=T',
275         &  ' but FRICTIONAL_HEATING code is not compiled.'
276            CALL PRINT_ERROR( msgBuf, myThid )
277            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: Re-compile with:',
278         &   ' "#define ALLOW_FRICTION_HEATING" (CPP_OPTIONS.h)'
279          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
280          errCount = errCount + 1          errCount = errCount + 1
281        ENDIF        ENDIF
# Line 275  C       code is being compiled Line 287  C       code is being compiled
287       &  'CONFIG_CHECK: balanceEmPmR/Qnet is set but balance code ',       &  'CONFIG_CHECK: balanceEmPmR/Qnet is set but balance code ',
288       &  'is not compiled.'       &  'is not compiled.'
289          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
290          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
291       &  'Re-compile with  ALLOW_BALANCE_FLUXES defined'       &  'Re-compile with:  ALLOW_BALANCE_FLUXES defined'
292          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
293          errCount = errCount + 1          errCount = errCount + 1
294        ENDIF        ENDIF
# Line 288  C       code is being compiled Line 300  C       code is being compiled
300       &  'CONFIG_CHECK: balanceTheta/SaltClimRelax is set ',       &  'CONFIG_CHECK: balanceTheta/SaltClimRelax is set ',
301       &  'but balance code is not compiled.'       &  'but balance code is not compiled.'
302          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
303          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: ',
304       &  'Re-compile with  ALLOW_BALANCE_RELAX defined'       &  'Re-compile with  ALLOW_BALANCE_RELAX defined'
305          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
306          errCount = errCount + 1          errCount = errCount + 1
# Line 492  c       STOP 'ABNORMAL END: S/R CONFIG_C Line 504  c       STOP 'ABNORMAL END: S/R CONFIG_C
504  c     ENDIF  c     ENDIF
505    
506        IF ( nonlinFreeSurf.NE.0 .AND.        IF ( nonlinFreeSurf.NE.0 .AND.
507       &     deltaTfreesurf.NE.dTtracerLev(1) ) THEN       &     deltaTFreeSurf.NE.dTtracerLev(1) ) THEN
508          WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ',          WRITE(msgBuf,'(2A)') '** WARNING ** CONFIG_CHECK: ',
509       &                       'nonlinFreeSurf might cause problems'       &                       'nonlinFreeSurf might cause problems'
510          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
# Line 581  c     ENDIF Line 593  c     ENDIF
593       &                      SQUEEZE_RIGHT, myThid )       &                      SQUEEZE_RIGHT, myThid )
594        ENDIF        ENDIF
595    
596          IF ( addFrictionHeating .AND. .NOT.staggerTimeStep ) THEN
597            WRITE(msgBuf,'(2A)') 'CONFIG_CHECK: addFrictionHeating',
598         &  ' not yet coded for synchronous time-stepping.'
599            CALL PRINT_ERROR( msgBuf, myThid )
600            errCount = errCount + 1
601          ENDIF
602    
603  C--   Non-hydrostatic and 3-D solver related limitations:  C--   Non-hydrostatic and 3-D solver related limitations:
604        IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN        IF (nonlinFreeSurf.NE.0 .AND. use3Dsolver) THEN
605          WRITE(msgBuf,'(A)')          WRITE(msgBuf,'(A)')
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.70
  ViewVC Help
Powered by ViewVC 1.1.22