& .AND.useGMRedi
PTRACERS_useGMRedi(iTracer)=useGMRedi
LOGICAL useGMRedi
& useGMRedi, useOBCS, useAIM, useLand,
IF (useGMRedi .AND. K.GT.1) THEN
IF (useGMRedi) THEN
IF (useGMRedi .AND. myIter.NE.nIter0 .AND. .NOT.useOffLine )
IF (useGMRedi) CALL GMREDI_INIT( myThid )
IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
IF (useGMRedi) CALL GMREDI_CHECK( myThid )
IF (useGMRedi) CALL PACKAGES_CHECK_ERROR('GMREDI', myThid)
IF ( useGMRedi ) THEN
useGMRedi =.FALSE.
& useGMRedi,
IF ( useGMRedi .OR. (k.GT.1 .AND. ivdc_kappa.NE.0.)
IF ( useGMRedi .AND. KPP_ghatUseTotalDiffus ) THEN
IF (useGMRedi)
& (diffKh.NE.0. .OR. diffK4 .NE.0. .OR. useGMRedi) ) THEN
& (.NOT.implicitDiffusion .OR. useGMRedi) ) THEN