| 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 |
159 |
NO PROCEDURE |
_RL atm_oc_wgt(sNy) ! weight of first atm grid for given ocean lat |
|
./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 |
70 |
CALC_1DTO2D |
IF (atm_oc_wgt(j).LT.1. _d 0) |
|
./pkg/atm2d/calc_1dto2d.F |
72 |
CALC_1DTO2D |
& 1. _d 0-atm_oc_wgt(j)) |
|
./pkg/atm2d/calc_zonal_means.F |
78 |
CALC_ZONAL_MEANS |
& (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
80 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
82 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
85 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
87 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
90 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
93 |
CALC_ZONAL_MEANS |
IF (atm_oc_wgt(j).LT.1. _d 0) THEN |
|
./pkg/atm2d/calc_zonal_means.F |
94 |
CALC_ZONAL_MEANS |
mWgt= 1. _d 0-atm_oc_wgt(j) |
|
./pkg/atm2d/init_atm2d.F |
121 |
INIT_ATM2D |
atm_oc_wgt(j)=(enda2-end1)/ (end2-end1) |
|
./pkg/atm2d/init_atm2d.F |
125 |
INIT_ATM2D |
atm_oc_wgt(j)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
160 |
INIT_ATM2D |
& rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/init_atm2d.F |
161 |
INIT_ATM2D |
IF (atm_oc_wgt(j).LT.1.d0) THEN |
|
./pkg/atm2d/init_atm2d.F |
163 |
INIT_ATM2D |
& rA(i,j,1,1)*(1.d0-atm_oc_wgt(j)) |
|
./pkg/atm2d/init_atm2d.F |
191 |
INIT_ATM2D |
PRINT *, atm_oc_ind,atm_oc_wgt |
|
./pkg/atm2d/init_atm2d.F |
85 |
INIT_ATM2D |
atm_oc_wgt(1)=1. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
91 |
INIT_ATM2D |
atm_oc_wgt(sNy)=1. _d 0 |