/[MITgcm]/MITgcm/pkg/gmredi/gmredi_check.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_check.F

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

revision 1.2 by heimbach, Mon Jan 29 20:07:39 2001 UTC revision 1.3 by adcroft, Fri Feb 2 21:36:29 2001 UTC
# Line 26  C     msgBuf      - Informational/error Line 26  C     msgBuf      - Informational/error
26    
27    
28  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
   
29        IF (GMRediIsOn) THEN        IF (GMRediIsOn) THEN
30    
31         WRITE(msgBuf,'(A)') 'GMREDI_PKG_CHECK: #define GMREDI'         WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI'
32           CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
33         &                    SQUEEZE_RIGHT , 1)
34    
35  C      GM/Redi needs implicit diffusion (will be packaged later)  C      GM/Redi needs implicit diffusion (will be packaged later)
36         IF (.NOT.implicitDiffusion) THEN         IF (.NOT.implicitDiffusion) THEN
37          WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'          WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'
38          CALL PRINT_ERROR( msgBuf , 1)          CALL PRINT_ERROR( msgBuf , 1)
39          STOP 'ABNORMAL END: S/R PACKAGE_CHECK'          STOP 'ABNORMAL END: S/R GMREDI_CHECK'
40         ENDIF         ENDIF
41    
42        ENDIF        ENDIF
43    
44  #endif  #endif
45          RETURN
46          END
       return  
       end  
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22