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) |