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