| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
111 |
NO PROCEDURE |
& ocnArea, cco2flux |
|
./pkg/atm2d/ATM2D_VARS.h |
117 |
NO PROCEDURE |
_RL ocnArea(jm0) ! ocean area of latitude strip on atm grid (m2) |
|
./pkg/atm2d/calc_zonal_means.F |
119 |
CALC_ZONAL_MEANS |
IF (ocnArea(j_atm).GT.1. _d -32) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
122 |
CALC_ZONAL_MEANS |
& cfice(j_atm)= cfice(j_atm)/ocnArea(j_atm) |
|
./pkg/atm2d/calc_zonal_means.F |
124 |
CALC_ZONAL_MEANS |
ctice(j_atm)= ctice(j_atm)/ocnArea(j_atm)/cfice(j_atm) |
|
./pkg/atm2d/calc_zonal_means.F |
125 |
CALC_ZONAL_MEANS |
csAlb(j_atm)= csAlb(j_atm)/ocnArea(j_atm)/cfice(j_atm) |
|
./pkg/atm2d/calc_zonal_means.F |
126 |
CALC_ZONAL_MEANS |
csAlbNIR(j_atm)= csAlbNIR(j_atm)/ocnArea(j_atm)/cfice(j_atm) |
|
./pkg/atm2d/calc_zonal_means.F |
130 |
CALC_ZONAL_MEANS |
& ctocn(j_atm)= ctocn(j_atm)/ocnArea(j_atm) |
|
./pkg/atm2d/init_atm2d.F |
153 |
INIT_ATM2D |
ocnArea(j_atm)=0. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
159 |
INIT_ATM2D |
ocnArea(atm_oc_ind(j))=ocnArea(atm_oc_ind(j)) + |
|
./pkg/atm2d/init_atm2d.F |
162 |
INIT_ATM2D |
ocnArea(atm_oc_ind(j)+1)=ocnArea(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/init_atm2d.F |
170 |
INIT_ATM2D |
cflan(j_atm)=1. _d 0 - ocnArea(j_atm) / |
|
./pkg/atm2d/init_atm2d.F |
177 |
INIT_ATM2D |
cflan(2)= 1. _d 0 - ocnArea(2) / |
|
./pkg/atm2d/init_atm2d.F |
182 |
INIT_ATM2D |
cflan(jm0-1)= 1.d0 - ocnArea(jm0-1) / |