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

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

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

revision 1.20 by adcroft, Thu Jun 18 13:56:06 1998 UTC revision 1.21 by adcroft, Wed Jul 1 19:49:36 1998 UTC
# Line 383  C     o Time step count Line 383  C     o Time step count
383        ENDIF        ENDIF
384  C     o Finish time  C     o Finish time
385        IF ( endTime .EQ. 0. ) endTime = FLOAT(nTimeSteps)*deltaTClock        IF ( endTime .EQ. 0. ) endTime = FLOAT(nTimeSteps)*deltaTClock
386    
387    C     o If taveFreq is finite, then we must make sure the diagnostics
388    C       code is being compiled
389    #ifndef ALLOW_DIAGNOSTICS
390          IF (taveFreq.NE.0.) THEN
391            WRITE(msgBuf,'(A)')
392         &  'S/R INI_PARMS: taveFreq <> 0  but you have'
393            CALL PRINT_ERROR( msgBuf , 1)
394            WRITE(msgBuf,'(A)')
395         &  'not compiled the model with the diagnostics routines.'
396            CALL PRINT_ERROR( msgBuf , 1)
397            WRITE(msgBuf,'(A)')
398         &  'Re-compile with:  #define ALLOW_DIAGNOSTICS  or  -DALLOW_DIAGNOSTICS'
399            CALL PRINT_ERROR( msgBuf , 1)
400            STOP 'ABNORMAL END: S/R INI_PARMS'
401          ENDIF
402    #endif
403    
404  C--   Grid parameters  C--   Grid parameters
405  C     In cartesian coords distances are in metres  C     In cartesian coords distances are in metres
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22