/[MITgcm]/MITgcm/pkg/zonal_filt/zonal_filt_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/zonal_filt/zonal_filt_readparms.F

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

revision 1.1 by jmc, Tue Dec 11 14:47:32 2001 UTC revision 1.2 by jmc, Wed Jul 31 21:02:06 2002 UTC
# Line 92  C    with some option of the code. Line 92  C    with some option of the code.
92          ELSEIF ( .NOT.exactConserv ) THEN          ELSEIF ( .NOT.exactConserv ) THEN
93           WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ',           WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ',
94       &    'applying Filter after SOLVE_FOR_P (zonal_filt_uvStar=FALSE)'       &    'applying Filter after SOLVE_FOR_P (zonal_filt_uvStar=FALSE)'
95           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1)
96           WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ',           WRITE(msgBuf,'(2A)') 'S/R ZONAL_FILT_READPARMS: WARNING <<< ',
97       &    'requires to recompute Eta after ==> turn on exactConserv !'       &    'requires to recompute Eta after ==> turn on exactConserv !'
98           CALL PRINT_ERROR( msgBuf , 1)           CALL PRINT_MESSAGE(msgBuf, errorMessageUnit, SQUEEZE_RIGHT,1)
99          ENDIF                                                ENDIF                                      
100    
101         ENDIF                                               ENDIF                                      
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22