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


File Line number Procedure Code
./model/src/config_summary.F 152 CONFIG_SUMMARY 
      CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
./model/src/ini_parms.F 168 INI_PARMS 
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/src/calc_3d_diffusivity.F 114 CALC_3D_DIFFUSIVITY 
        KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/calc_3d_diffusivity.F 73 CALC_3D_DIFFUSIVITY 
        KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/calc_3d_diffusivity.F 92 CALC_3D_DIFFUSIVITY 
        KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/inc/PARAMS.h 587 NO PROCEDURE 
     & diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
./model/inc/PARAMS.h 667 NO PROCEDURE 
      _RL diffKrBL79surf
./pkg/ptracers/ptracers_calc_diff.F 58 PTRACERS_CALC_DIFF 
      KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/calc_diffusivity.F 59 CALC_DIFFUSIVITY 
      KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
./model/src/set_defaults.F 109 SET_DEFAULTS 
      diffKrBL79surf      = 0.D0