Symbol Description Uses
wswdown0 7


File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1307 ECCO_COST_WEIGHTS 
              wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0)
./pkg/ecco/ecco_local_params.h 312 NO PROCEDURE 
     &        wswflux0, wswdown0, wlwflux0, wlwdown0,
./pkg/ecco/ecco_local_params.h 322 NO PROCEDURE 
      _RL wswdown0
./pkg/ecco/ecco_readparms.F 161 ECCO_READPARMS 
     &                   wprecip0, wswflux0, wswdown0, wwind0,
./pkg/ecco/ecco_readparms.F 470 ECCO_READPARMS 
        wswdown0              =      0. _d 0
./pkg/ecco/ecco_cost.h 1093 NO PROCEDURE 
     &        wswflux0, wswdown0, wlwflux0, wlwdown0,
./pkg/ecco/ecco_cost.h 1103 NO PROCEDURE 
      _RL wswdown0