| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
155 |
NO PROCEDURE |
COMMON/LOOKUP_GRID/ atm_oc_ind, atm_oc_wgt, |
|
./pkg/atm2d/ATM2D_VARS.h |
158 |
NO PROCEDURE |
INTEGER atm_oc_ind(sNy) ! lookup of (first) atm grid for given ocean lat |
|
./pkg/atm2d/calc_1dto2d.F |
50 |
CALC_1DTO2D |
& atm_runoff(atm_oc_ind(j))*atm_oc_frac1(j) + |
|
./pkg/atm2d/calc_1dto2d.F |
51 |
CALC_1DTO2D |
& atm_runoff(atm_oc_ind(j)+1)*atm_oc_frac2(j) |
|
./pkg/atm2d/calc_1dto2d.F |
68 |
CALC_1DTO2D |
CALL CALC_WGHT2D(i,j,atm_oc_ind(j),atm_oc_wgt(j)) |
|
./pkg/atm2d/calc_1dto2d.F |
71 |
CALC_1DTO2D |
& CALL CALC_WGHT2D(i, j, atm_oc_ind(j)+1, |
|
./pkg/atm2d/calc_zonal_means.F |
101 |
CALC_ZONAL_MEANS |
cco2flux(atm_oc_ind(j)+1)= cco2flux(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/calc_zonal_means.F |
104 |
CALC_ZONAL_MEANS |
ctice(atm_oc_ind(j)+1)= ctice(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/calc_zonal_means.F |
106 |
CALC_ZONAL_MEANS |
csAlb(atm_oc_ind(j)+1)= csAlb(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/calc_zonal_means.F |
108 |
CALC_ZONAL_MEANS |
csAlbNIR(atm_oc_ind(j)+1)= csAlbNIR(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/calc_zonal_means.F |
76 |
CALC_ZONAL_MEANS |
ctocn(atm_oc_ind(j))= ctocn(atm_oc_ind(j)) + |
|
./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 |
81 |
CALC_ZONAL_MEANS |
cco2flux(atm_oc_ind(j))=cco2flux(atm_oc_ind(j)) + |
|
./pkg/atm2d/calc_zonal_means.F |
84 |
CALC_ZONAL_MEANS |
ctice(atm_oc_ind(j))=ctice(atm_oc_ind(j)) + Tsrf(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
86 |
CALC_ZONAL_MEANS |
csAlb(atm_oc_ind(j))=csAlb(atm_oc_ind(j)) + siceAlb(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
88 |
CALC_ZONAL_MEANS |
csAlbNIR(atm_oc_ind(j))=csAlbNIR(atm_oc_ind(j)) + |
|
./pkg/atm2d/calc_zonal_means.F |
96 |
CALC_ZONAL_MEANS |
ctocn(atm_oc_ind(j)+1)= ctocn(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/calc_zonal_means.F |
99 |
CALC_ZONAL_MEANS |
cfice(atm_oc_ind(j)+1)= cfice(atm_oc_ind(j)+1) + |
|
./pkg/atm2d/init_atm2d.F |
114 |
INIT_ATM2D |
atm_oc_ind(j)=j_atm |
|
./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 |
191 |
INIT_ATM2D |
PRINT *, atm_oc_ind,atm_oc_wgt |
|
./pkg/atm2d/init_atm2d.F |
84 |
INIT_ATM2D |
atm_oc_ind(1)=2 |
|
./pkg/atm2d/init_atm2d.F |
90 |
INIT_ATM2D |
atm_oc_ind(sNy)=jm0-1 |