Symbol Description Uses
diffKrBL79surf T/S surface diffusivity (m^2/s) Bryan and Lewis, 1979 12


File Line number Procedure Code
./model/inc/PARAMS.h 732 NO PROCEDURE 
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/inc/PARAMS.h 820 NO PROCEDURE 
      _RL diffKrBL79surf
./model/src/calc_3d_diffusivity.F 80 CALC_3D_DIFFUSIVITY 
        KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/calc_diffusivity.F 66 CALC_DIFFUSIVITY 
       KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/config_summary.F 170 CONFIG_SUMMARY 
      CALL WRITE_0D_RL( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
./pkg/ptracers/ptracers_calc_diff.F 65 PTRACERS_CALC_DIFF 
      KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/ini_parms.F 192 INI_PARMS 
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/src/ini_parms.F 527 INI_PARMS 
      IF (diffKrBLEQsurf .EQ. UNSET_RL) diffKrBLEQsurf = diffKrBL79surf
./model/src/set_defaults.F 122 SET_DEFAULTS 
      diffKrBL79surf      = 0. _d 0