/[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.4 by jmc, Tue Dec 10 02:55:47 2002 UTC revision 1.5 by jmc, Fri Jan 24 18:26:53 2003 UTC
# Line 251  c     ENDIF Line 251  c     ENDIF
251          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,          CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
252       &                    SQUEEZE_RIGHT , myThid)                             &                    SQUEEZE_RIGHT , myThid)                      
253        ENDIF        ENDIF
254    
255          IF (select_rStar .NE. 0) THEN
256            WRITE(msgBuf,'(A)')
257         &   'CONFIG_CHECK: rStar is part of NonLin-FS '
258            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
259         &                    SQUEEZE_RIGHT , myThid)                      
260            WRITE(msgBuf,'(A)')
261         &   'CONFIG_CHECK: ==> use #define NONLIN_FRSURF to use it'
262            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
263         &                    SQUEEZE_RIGHT , myThid)                      
264          ENDIF
265  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
266    
267        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'        WRITE(msgBuf,'(A)') 'CONFIG_CHECK: OK'
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22