| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
10 |
SEAICE_BUDGET_ICE_IF |
O F_io_net,F_ia_net,F_ia, IcePenetSWFlux, |
|
./pkg/seaice/seaice_budget_ice_if.F |
134 |
SEAICE_BUDGET_ICE_IF |
F_ia_net (I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
305 |
SEAICE_BUDGET_ICE_IF |
F_ia_net(I,J) = 0.0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
308 |
SEAICE_BUDGET_ICE_IF |
F_ia_net(I,J) = F_lwd(I,J) + F_swi(I,J) + F_lwu(I,J) + |
|
./pkg/seaice/seaice_budget_ice_if.F |
344 |
SEAICE_BUDGET_ICE_IF |
& F_io_net(I,J), F_ia_net(I,J), F_ia(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
51 |
SEAICE_BUDGET_ICE_IF |
_RL F_ia_net (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_growth_if.F |
1115 |
SEAICE_GROWTH_IF |
& F_ia_net(i,j), |
|
./pkg/seaice/seaice_growth_if.F |
147 |
SEAICE_GROWTH_IF |
_RL F_ia_net (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_growth_if.F |
242 |
SEAICE_GROWTH_IF |
F_ia_net (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
448 |
SEAICE_GROWTH_IF |
O F_io_net,F_ia_net,F_ia, QSWI, |
|
./pkg/seaice/seaice_growth_if.F |
461 |
SEAICE_GROWTH_IF |
F_ia_net (I,J) = 0.0 |
|
./pkg/seaice/seaice_growth_if.F |
477 |
SEAICE_GROWTH_IF |
& F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
482 |
SEAICE_GROWTH_IF |
F_ia_net_before_snow(I,J) = F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
499 |
SEAICE_GROWTH_IF |
PotSnowMeltRateFromSurf(I,J)= - F_ia_net(I,J)*QS |
|
./pkg/seaice/seaice_growth_if.F |
535 |
SEAICE_GROWTH_IF |
SurfHeatFluxConvergToSnowMelt(I,J) =F_ia_net(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
540 |
SEAICE_GROWTH_IF |
F_ia_net(I,J) = |
|
./pkg/seaice/seaice_growth_if.F |
541 |
SEAICE_GROWTH_IF |
& F_ia_net(I,J)-SurfHeatFluxConvergToSnowMelt(I,J) |
|
./pkg/seaice/seaice_growth_if.F |
543 |
SEAICE_GROWTH_IF |
IceGrowthRateFromSurface(I,J) = F_ia_net(I,J)*QI |
|
./pkg/seaice/seaice_growth_if.F |
893 |
SEAICE_GROWTH_IF |
& (F_ia_net(I,J) + F_io_net(I,J) + QSWI(I,J)) |
|
./pkg/seaice/seaice_growth_if.F |
970 |
SEAICE_GROWTH_IF |
& -F_ia_net(I,J)*AREANm1(I,J,bi,bj)*FLUX_TO_DELTA_TEMP |
|
./pkg/seaice/seaice_solve4temp.F |
13 |
SEAICE_SOLVE4TEMP |
O F_io_net, F_ia_net, |
|
./pkg/seaice/seaice_solve4temp.F |
220 |
SEAICE_SOLVE4TEMP |
F_ia_net (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
605 |
SEAICE_SOLVE4TEMP |
F_ia_net(I,J) = 0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
608 |
SEAICE_SOLVE4TEMP |
F_ia_net(I,J) = F_ia(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
653 |
SEAICE_SOLVE4TEMP |
& F_ia_net(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
71 |
SEAICE_SOLVE4TEMP |
_RL F_ia_net (1:sNx,1:sNy) |