Symbol Description Uses
diffKrBL79scl depth scale for arctan fn (m) Bryan and Lewis, 1979 7



File Line number Procedure Code
./model/inc/PARAMS.h 765 NO PROCEDURE
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/inc/PARAMS.h 857 NO PROCEDURE
      _RL diffKrBL79scl
./model/src/calc_3d_diffusivity.F 81 CALC_3D_DIFFUSIVITY
     &       *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0)
./model/src/config_summary.F 229 CONFIG_SUMMARY
      CALL WRITE_0D_RL( diffKrBL79scl, INDEX_NONE,'diffKrBL79scl =',
./model/src/ini_parms.F 211 INI_PARMS
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/src/ini_parms.F 550 INI_PARMS
      IF (diffKrBLEQscl  .EQ. UNSET_RL) diffKrBLEQscl  = diffKrBL79scl
./model/src/set_defaults.F 156 SET_DEFAULTS
      diffKrBL79scl       = 200. _d 0