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



File Line number Procedure Code
./model/inc/PARAMS.h 814 NO PROCEDURE
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/inc/PARAMS.h 910 NO PROCEDURE
      _RL diffKrBL79scl
./model/src/calc_3d_diffusivity.F 86 CALC_3D_DIFFUSIVITY
     &       *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0)
./model/src/config_summary.F 234 CONFIG_SUMMARY
      CALL WRITE_0D_RL( diffKrBL79scl, INDEX_NONE,'diffKrBL79scl =',
./model/src/ini_parms.F 221 INI_PARMS
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/src/ini_parms.F 590 INI_PARMS
      IF (diffKrBLEQscl  .EQ. UNSET_RL) diffKrBLEQscl  = diffKrBL79scl
./model/src/set_defaults.F 161 SET_DEFAULTS
      diffKrBL79scl       = 200. _d 0