Symbol Description Uses
ind1 23


File Line number Procedure Code
./pkg/atm2d/read_atmos.F 120 COMBINE_ENDS 
      INTEGER ind1
./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 131 COMBINE_ENDS 
      atm_precip(ind2)= (a1*atm_precip(ind1) +
./pkg/atm2d/read_atmos.F 133 COMBINE_ENDS 
      atm_runoff(ind2)= atm_runoff(ind1)+ atm_runoff(ind2)
./pkg/atm2d/read_atmos.F 134 COMBINE_ENDS 
      atm_evap_ice(ind2)= (a1*atm_evap_ice(ind1) +
./pkg/atm2d/read_atmos.F 136 COMBINE_ENDS 
      atm_evap_ocn(ind2)= (a1*atm_evap_ocn(ind1) +
./pkg/atm2d/read_atmos.F 138 COMBINE_ENDS 
      atm_qnet_ice(ind2)= (a1*atm_qnet_ice(ind1)+
./pkg/atm2d/read_atmos.F 140 COMBINE_ENDS 
      atm_qnet_ocn(ind2)= (a1*atm_qnet_ocn(ind1) +
./pkg/atm2d/read_atmos.F 142 COMBINE_ENDS 
      atm_dFdt_ice(ind2)= (a1*atm_dFdt_ice(ind1)+
./pkg/atm2d/read_atmos.F 144 COMBINE_ENDS 
      atm_dFdt_ocn(ind2)= (a1*atm_dFdt_ocn(ind1)+
./pkg/atm2d/read_atmos.F 146 COMBINE_ENDS 
      atm_dLdt_ice(ind2)= (a1*atm_dLdt_ice(ind1)+
./pkg/atm2d/read_atmos.F 148 COMBINE_ENDS 
      atm_dLdt_ocn(ind2)= (a1*atm_dLdt_ocn(ind1)+
./pkg/atm2d/read_atmos.F 150 COMBINE_ENDS 
      atm_dFdt_iceq(ind2)= (a1*atm_dFdt_iceq(ind1)+
./pkg/atm2d/read_atmos.F 152 COMBINE_ENDS 
      atm_dFdt_ocnq(ind2)= (a1*atm_dFdt_ocnq(ind1)+
./pkg/atm2d/read_atmos.F 154 COMBINE_ENDS 
      atm_dLdt_iceq(ind2)= (a1*atm_dLdt_iceq(ind1)+
./pkg/atm2d/read_atmos.F 156 COMBINE_ENDS 
      atm_dLdt_ocnq(ind2)= (a1*atm_dLdt_ocnq(ind1)+
./pkg/atm2d/read_atmos.F 158 COMBINE_ENDS 
      atm_solarinc(ind2)= (a1*atm_solarinc(ind1) +
./pkg/atm2d/read_atmos.F 160 COMBINE_ENDS 
      atm_solar_ocn(ind2)= (a1*atm_solar_ocn(ind1)+
./pkg/atm2d/read_atmos.F 162 COMBINE_ENDS 
      atm_solar_ice(ind2)= (a1*atm_solar_ice(ind1)+
./pkg/atm2d/read_atmos.F 164 COMBINE_ENDS 
      atm_windspeed(ind2)= (a1*atm_windspeed(ind1) +
./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)