| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
152 |
TURBIO |
_RL fmu,hice,tref,pref,cti,ed |
|
./pkg/fizhi/fizhi_turb.F |
155 |
TURBIO |
parameter ( hice = 300. ) |
|
./pkg/fizhi/fizhi_turb.F |
468 |
TURBIO |
const = ( cti / hice ) * cltj10 |
|
./pkg/fizhi/fizhi_turb.F |
5087 |
SEAICE |
subroutine SEAICE ( nocean, timstp, hice, |
|
./pkg/fizhi/fizhi_turb.F |
5106 |
SEAICE |
_RL faceps,getcon,latent,codt,deltg,hice |
|
./pkg/fizhi/fizhi_turb.F |
5112 |
SEAICE |
codt = rhoC * (hice/100) / timstp |
|
./pkg/fizhi/fizhi_turb.F |
806 |
TURBIO |
call SEAICE ( nocean, timstp, hice, |
|
./pkg/seaice/seaice_budget_ice.F |
169 |
SEAICE_BUDGET_ICE |
& *(ONE-XIO*EXP(-1.5 _d 0*hice(I,J))) |
|
./pkg/seaice/seaice_budget_ice.F |
201 |
SEAICE_BUDGET_ICE |
& XKS/(hSnwLoc(I,J)/hice(I,J)+XKS/XKI)/hice(I,J) |
|
./pkg/seaice/seaice_budget_ice.F |
248 |
SEAICE_BUDGET_ICE |
& *XIO*EXP(-1.5 _d 0*hice(I,J)) |