| Symbol | Description | Uses |
| atm_qnet_ocn | 7 |
| File | Line number | Procedure | Code |
| ./pkg/atm2d/ATM2D_VARS.h | 76 | NO PROCEDURE |
& atm_qnet_ice, atm_qnet_ocn, |
| ./pkg/atm2d/ATM2D_VARS.h | 92 | NO PROCEDURE |
_RL atm_qnet_ocn(jm0) ! ocean surf. heat flux (W/m2) (+=upward) |
| ./pkg/atm2d/calc_1dto2d.F | 139 | CALC_WGHT2D |
qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt |
| ./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 | 63 | READ_ATMOS |
atm_qnet_ocn(j_atm) = -hfluxo(j_atm) |