Symbol Description Uses
rsuma 22


File Line number Procedure Code
./pkg/atm2d/read_atmos.F 122 COMBINE_ENDS 
      _RL  rsuma
./pkg/atm2d/read_atmos.F 130 COMBINE_ENDS 
      atm_tair(ind2)= (a1*atm_tair(ind1) + a2*atm_tair(ind2))*rsuma
./pkg/atm2d/read_atmos.F 132 COMBINE_ENDS 
     &                   a2*atm_precip(ind2))*rsuma
./pkg/atm2d/read_atmos.F 135 COMBINE_ENDS 
     &                     a2*atm_evap_ice(ind2))*rsuma
./pkg/atm2d/read_atmos.F 137 COMBINE_ENDS 
     &                     a2*atm_evap_ocn(ind2))*rsuma
./pkg/atm2d/read_atmos.F 139 COMBINE_ENDS 
     &                     a2*atm_qnet_ice(ind2))*rsuma
./pkg/atm2d/read_atmos.F 141 COMBINE_ENDS 
     &                     a2*atm_qnet_ocn(ind2))*rsuma
./pkg/atm2d/read_atmos.F 143 COMBINE_ENDS 
     &                     a2*atm_dFdt_ice(ind2))*rsuma
./pkg/atm2d/read_atmos.F 145 COMBINE_ENDS 
     &                     a2*atm_dFdt_ocn(ind2))*rsuma
./pkg/atm2d/read_atmos.F 147 COMBINE_ENDS 
     &                     a2*atm_dLdt_ice(ind2))*rsuma
./pkg/atm2d/read_atmos.F 149 COMBINE_ENDS 
     &                     a2*atm_dLdt_ocn(ind2))*rsuma
./pkg/atm2d/read_atmos.F 151 COMBINE_ENDS 
     &                      a2*atm_dFdt_iceq(ind2))*rsuma
./pkg/atm2d/read_atmos.F 153 COMBINE_ENDS 
     &                      a2*atm_dFdt_ocnq(ind2))*rsuma
./pkg/atm2d/read_atmos.F 155 COMBINE_ENDS 
     &                      a2*atm_dLdt_iceq(ind2))*rsuma
./pkg/atm2d/read_atmos.F 157 COMBINE_ENDS 
     &                      a2*atm_dLdt_ocnq(ind2))*rsuma
./pkg/atm2d/read_atmos.F 159 COMBINE_ENDS 
     &                     a2*atm_solarinc(ind2))*rsuma
./pkg/atm2d/read_atmos.F 161 COMBINE_ENDS 
     &                       a2*atm_solar_ocn(ind2))*rsuma
./pkg/atm2d/read_atmos.F 163 COMBINE_ENDS 
     &                     a2*atm_solar_ice(ind2))*rsuma
./pkg/atm2d/read_atmos.F 165 COMBINE_ENDS 
     &                      a2*atm_windspeed(ind2))*rsuma
./pkg/atm2d/read_atmos.F 166 COMBINE_ENDS 
      atm_slp(ind2)= (a1*atm_slp(ind1) + a2*atm_slp(ind2))*rsuma
./pkg/atm2d/read_atmos.F 167 COMBINE_ENDS 
      atm_pco2(ind2)= (a1*atm_pco2(ind1)+a2*atm_pco2(ind2))*rsuma
./pkg/atm2d/read_atmos.F 95 COMBINE_ENDS 
      SUBROUTINE COMBINE_ENDS(a1,a2,ind1,ind2,rsuma)