Symbol Description Uses
sq Justification option 13


File Line number Procedure Code
./pkg/generic_advdiff/gad_pqm_fun.F 26 NO PROCEDURE 
          _RL sq,a0,b0
./pkg/generic_advdiff/gad_pqm_fun.F 31 NO PROCEDURE 
          sq = bb * bb - 4. _d 0 * aa * cc
./pkg/generic_advdiff/gad_pqm_fun.F 35 NO PROCEDURE 
          if (sq .ge. 0. _d 0) then
./pkg/generic_advdiff/gad_pqm_fun.F 39 NO PROCEDURE 
              sq = sqrt(sq)
./pkg/generic_advdiff/gad_pqm_fun.F 41 NO PROCEDURE 
              xx(1) =  - bb + sq
./pkg/generic_advdiff/gad_pqm_fun.F 42 NO PROCEDURE 
              xx(2) =  - bb - sq
./eesupp/src/print.F 26 PRINT_MESSAGE 
      SUBROUTINE PRINT_MESSAGE( message, unit, sq , myThid )
./eesupp/src/print.F 60 PRINT_MESSAGE 
      CHARACTER*(*) sq
./eesupp/src/print.F 79 PRINT_MESSAGE 
      IF ( sq .EQ. SQUEEZE_BOTH .OR.
./eesupp/src/print.F 80 PRINT_MESSAGE 
     &     sq .EQ. SQUEEZE_LEFT ) THEN
./eesupp/src/print.F 85 PRINT_MESSAGE 
      IF ( sq .EQ. SQUEEZE_BOTH .OR.
./eesupp/src/print.F 86 PRINT_MESSAGE 
     &     sq .EQ. SQUEEZE_RIGHT ) THEN