| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/read_atmos.F |
121 |
COMBINE_ENDS |
INTEGER ind2 |
|
./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 |
132 |
COMBINE_ENDS |
& a2*atm_precip(ind2))*rsuma |
|
./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 |
135 |
COMBINE_ENDS |
& a2*atm_evap_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
136 |
COMBINE_ENDS |
atm_evap_ocn(ind2)= (a1*atm_evap_ocn(ind1) + |
|
./pkg/atm2d/read_atmos.F |
137 |
COMBINE_ENDS |
& a2*atm_evap_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
138 |
COMBINE_ENDS |
atm_qnet_ice(ind2)= (a1*atm_qnet_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
139 |
COMBINE_ENDS |
& a2*atm_qnet_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
140 |
COMBINE_ENDS |
atm_qnet_ocn(ind2)= (a1*atm_qnet_ocn(ind1) + |
|
./pkg/atm2d/read_atmos.F |
141 |
COMBINE_ENDS |
& a2*atm_qnet_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
142 |
COMBINE_ENDS |
atm_dFdt_ice(ind2)= (a1*atm_dFdt_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
143 |
COMBINE_ENDS |
& a2*atm_dFdt_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
144 |
COMBINE_ENDS |
atm_dFdt_ocn(ind2)= (a1*atm_dFdt_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
145 |
COMBINE_ENDS |
& a2*atm_dFdt_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
146 |
COMBINE_ENDS |
atm_dLdt_ice(ind2)= (a1*atm_dLdt_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
147 |
COMBINE_ENDS |
& a2*atm_dLdt_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
148 |
COMBINE_ENDS |
atm_dLdt_ocn(ind2)= (a1*atm_dLdt_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
149 |
COMBINE_ENDS |
& a2*atm_dLdt_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
150 |
COMBINE_ENDS |
atm_dFdt_iceq(ind2)= (a1*atm_dFdt_iceq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
151 |
COMBINE_ENDS |
& a2*atm_dFdt_iceq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
152 |
COMBINE_ENDS |
atm_dFdt_ocnq(ind2)= (a1*atm_dFdt_ocnq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
153 |
COMBINE_ENDS |
& a2*atm_dFdt_ocnq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
154 |
COMBINE_ENDS |
atm_dLdt_iceq(ind2)= (a1*atm_dLdt_iceq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
155 |
COMBINE_ENDS |
& a2*atm_dLdt_iceq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
156 |
COMBINE_ENDS |
atm_dLdt_ocnq(ind2)= (a1*atm_dLdt_ocnq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
157 |
COMBINE_ENDS |
& a2*atm_dLdt_ocnq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
158 |
COMBINE_ENDS |
atm_solarinc(ind2)= (a1*atm_solarinc(ind1) + |
|
./pkg/atm2d/read_atmos.F |
159 |
COMBINE_ENDS |
& a2*atm_solarinc(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
160 |
COMBINE_ENDS |
atm_solar_ocn(ind2)= (a1*atm_solar_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
161 |
COMBINE_ENDS |
& a2*atm_solar_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
162 |
COMBINE_ENDS |
atm_solar_ice(ind2)= (a1*atm_solar_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
163 |
COMBINE_ENDS |
& a2*atm_solar_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
164 |
COMBINE_ENDS |
atm_windspeed(ind2)= (a1*atm_windspeed(ind1) + |
|
./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) |