| 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 |
127 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_budget_ice_if.F |
211 |
SEAICE_BUDGET_ICE_IF |
IcePenetSWFlux(I,J) = -(ONE - ALB(I,J))* |
|
./pkg/seaice/seaice_budget_ice_if.F |
324 |
SEAICE_BUDGET_ICE_IF |
& IcePenetSWFlux(I,J) |
|
./pkg/seaice/seaice_budget_ice_if.F |
53 |
SEAICE_BUDGET_ICE_IF |
_RL IcePenetSWFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_solve4temp.F |
15 |
SEAICE_SOLVE4TEMP |
O F_ia, IcePenetSWFlux, |
|
./pkg/seaice/seaice_solve4temp.F |
212 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
348 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))* |
|
./pkg/seaice/seaice_solve4temp.F |
542 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=0.0 _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
547 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
598 |
SEAICE_SOLVE4TEMP |
IcePenetSWFlux(I,J)= 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
631 |
SEAICE_SOLVE4TEMP |
& SWDOWN(I,J,bi,bj), IcePenetSWFlux(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
73 |
SEAICE_SOLVE4TEMP |
_RL IcePenetSWFlux (1:sNx,1:sNy) |