175 |
& + act3*max0*max1*max2 |
& + act3*max0*max1*max2 |
176 |
& + act4*max0*max1*max2*max3 |
& + act4*max0*max1*max2*max3 |
177 |
IF (tracerIdentity.GT.maxpass) THEN |
IF (tracerIdentity.GT.maxpass) THEN |
178 |
WRITE(msgBuf,'(A,2I3)') |
WRITE(msgBuf,'(A,2I3)') |
179 |
& 'GAD_ADVECTION: maxpass < tracerIdentity ', |
& 'GAD_ADVECTION: maxpass < tracerIdentity ', |
180 |
& maxpass, tracerIdentity |
& maxpass, tracerIdentity |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
|
|
& SQUEEZE_RIGHT , myThid ) |
|
181 |
CALL PRINT_ERROR( msgBuf, myThid ) |
CALL PRINT_ERROR( msgBuf, myThid ) |
182 |
STOP 'ABNORMAL END: S/R GAD_ADVECTION' |
STOP 'ABNORMAL END: S/R GAD_ADVECTION' |
183 |
ENDIF |
ENDIF |