1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: ADJUST_LEQ(RESID, LEQ_IT, LEQ_METHOD, LEQI, LEQM, IER) C 4 ! Purpose: Adjusts liner equation solver method and iterations C 5 ! C 6 ! C 7 ! Author: M. Syamlal Date: 23-MAY-97 C 8 ! Reviewer: Date: C 9 ! C 10 ! C 11 ! Literature/Document References: C 12 ! C 13 ! Variables referenced: C 14 ! Variables modified: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 ! 20 SUBROUTINE ADJUST_LEQ(RESID, LEQ_ITL, LEQ_METHODL, LEQI, LEQM) 21 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 22 !...Switches: -xf 23 !----------------------------------------------- 24 ! M o d u l e s 25 !----------------------------------------------- 26 USE param 27 USE param1 28 USE toleranc 29 USE leqsol 30 IMPLICIT NONE 31 !----------------------------------------------- 32 ! D u m m y A r g u m e n t s 33 !----------------------------------------------- 34 INTEGER LEQ_ITL, LEQ_METHODL, LEQI, LEQM 35 DOUBLE PRECISION RESID 36 !----------------------------------------------- 37 ! L o c a l P a r a m e t e r s 38 !----------------------------------------------- 39 ! Linear equation solver parameters used when 40 ! a particular equation set has converged 41 INTEGER, PARAMETER :: LEQ_IT_CONV = 5 42 INTEGER, PARAMETER :: LEQ_METHOD_CONV = 1 43 !----------------------------------------------- 44 ! L o c a l V a r i a b l e s 45 !----------------------------------------------- 46 !----------------------------------------------- 47 ! 48 ! The adjustment is disabled, because it was adversely affecting species 49 ! conservation 50 ! IF (LEQ_ADJUST .AND. RESID<=TOL_RESID*0.1) THEN 51 ! LEQM = LEQ_METHOD_CONV 52 ! LEQI = MIN(LEQ_IT_CONV,LEQ_ITL) 53 ! ELSE 54 LEQM = LEQ_METHODL 55 LEQI = LEQ_ITL 56 ! ENDIF 57 ! 58 RETURN 59 END SUBROUTINE ADJUST_LEQ 60