| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_main.F |
132 |
THSICE_MAIN |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_ave.F |
137 |
THSICE_AVE |
CALL DIAGNOSTICS_FILL(siceAlb,'SIalbedo',0,1,1,bi,bj,myThid) |
|
./pkg/thsice/thsice_ave.F |
74 |
THSICE_AVE |
CALL TIMEAVE_CUMULATE(ice_albedo_Ave, siceAlb, |
|
./pkg/thsice/thsice_step_fwd.F |
153 |
THSICE_STEP_FWD |
siceAlb(i,j,bi,bj) = icFrac*albedo |
|
./pkg/thsice/THSICE_VARS.h |
50 |
NO PROCEDURE |
& snowPrc, siceAlb |
|
./pkg/thsice/THSICE_VARS.h |
62 |
NO PROCEDURE |
_RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ini_vars.F |
70 |
THSICE_INI_VARS |
siceAlb(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_sice2aim.F |
112 |
AIM_SICE2AIM |
siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*aimAlb(i,j) |