00         cPsi0_plus = 0.0          select case (trim(gls_stability_option))         case ("KanthaClayson-00")             cPsi0_minus = -0.00         case ("Canuto-00-A")             cPsi0_minus = -0.00         case ("Canuto-00-B")             cPsi0_minus = -0.00          case ("GibsonLaunder-00")             cPsi0_minus = -0.0000         end select         psi_min = 0.e-00     case ("