| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
110 |
NO PROCEDURE |
COMMON/OCN_ZONALMN/ ctocn, ctice, cfice, csAlb, csAlbNIR, |
|
./pkg/atm2d/ATM2D_VARS.h |
114 |
NO PROCEDURE |
_RL cfice(jm0) ! zonal mean ice fraction |
|
./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 |
123 |
CALC_ZONAL_MEANS |
IF (cfice(j_atm).GT.1. _d -32) THEN |
|
./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 |
129 |
CALC_ZONAL_MEANS |
IF ((1. _d 0-cfice(j_atm).GT.1. _d -32).AND.doAll) |
|
./pkg/atm2d/calc_zonal_means.F |
131 |
CALC_ZONAL_MEANS |
& /(1. _d 0-cfice(j_atm)) |
|
./pkg/atm2d/calc_zonal_means.F |
139 |
CALC_ZONAL_MEANS |
mmfice(j_atm)= cfice(j_atm) |
|
./pkg/atm2d/calc_zonal_means.F |
152 |
CALC_ZONAL_MEANS |
mmfice(1)= cfice(2) |
|
./pkg/atm2d/calc_zonal_means.F |
153 |
CALC_ZONAL_MEANS |
mmfice(jm0)= cfice(jm0-1) |
|
./pkg/atm2d/calc_zonal_means.F |
53 |
CALC_ZONAL_MEANS |
cfice(j_atm)=0. _d 0 |
|
./pkg/atm2d/calc_zonal_means.F |
79 |
CALC_ZONAL_MEANS |
cfice(atm_oc_ind(j))=cfice(atm_oc_ind(j)) + |
|
./pkg/atm2d/calc_zonal_means.F |
99 |
CALC_ZONAL_MEANS |
cfice(atm_oc_ind(j)+1)= cfice(atm_oc_ind(j)+1) + |