| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_VARS.h |
57 |
NO PROCEDURE |
& siceAlb, icAlbNIR, |
|
./pkg/thsice/THSICE_VARS.h |
67 |
NO PROCEDURE |
_RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ave.F |
73 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE( ice_albedo_Ave, siceAlb, |
|
./pkg/thsice/thsice_get_ocean.F |
102 |
THSICE_GET_OCEAN |
siceAlb (i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ini_vars.F |
73 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
190 |
THSICE_STEP_FWD |
CALL DIAGNOSTICS_FRACT_FILL( siceAlb, iceMask, oneRL, 1, |
|
./pkg/thsice/thsice_step_fwd.F |
196 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_temp.F |
127 |
THSICE_STEP_TEMP |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/thsice/thsice_step_temp.F |
158 |
THSICE_STEP_TEMP |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |
|
./pkg/aim_v23/aim_sice2aim.F |
109 |
AIM_SICE2AIM |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/aim_v23/aim_sice2aim.F |
113 |
AIM_SICE2AIM |
aimAlb(i,j) = siceAlb(i,j,bi,bj) |
|
./pkg/atm2d/atm2d_read_pickup.F |
61 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,siceAlb, 18, nIter0, myThid) |
|
./pkg/atm2d/atm2d_write_pickup.F |
171 |
ATM2D_WRITE_PICKUP_NOW |
CALL WRITE_REC_3D_RL( fn,prec,1,siceAlb, 18,myIter,myThid ) |
|
./pkg/atm2d/calc_zonal_means.F |
107 |
CALC_ZONAL_MEANS |
& siceAlb(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
67 |
CALC_ZONAL_MEANS |
O siceAlb(siLo,sjLo,1,1), icAlbNIR(siLo,sjLo,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/pass_thsice_fluxes.F |
40 |
PASS_THSICE_FLUXES |
netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW |
|
./pkg/cheapaml/cheapaml_seaice.F |
169 |
CHEAPAML_SEAICE |
O siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj), |
|
./pkg/cheapaml/cheapaml_seaice.F |
177 |
CHEAPAML_SEAICE |
& *(1. _d 0 - siceAlb(i,j,bi,bj)) |