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 |