| File |
Line number |
Procedure |
Code |
|
./pkg/timeave/timeave_surf_flux.F |
78 |
TIMEAVE_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./model/src/ini_forcing.F |
63 |
INI_FORCING |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |
|
./model/inc/FFIELDS.h |
206 |
NO PROCEDURE |
& surfaceForcingTice |
|
./model/inc/FFIELDS.h |
211 |
NO PROCEDURE |
_RL surfaceForcingTice(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_calc.F |
383 |
KPP_CALC |
& surfaceForcingTice(i,j,bi,bj)) + |
|
./pkg/kpp/kpp_transport_t.F |
70 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_t.F |
85 |
KPP_TRANSPORT_T |
& +surfaceForcingTice(i,j,bi,bj) |
|
./model/src/diags_oceanic_surf_flux.F |
100 |
DIAGS_OCEANIC_SURF_FLUX |
CALL DIAGNOSTICS_SCALE_FILL(surfaceForcingTice,tmpFac,1, |
|
./model/src/diags_oceanic_surf_flux.F |
77 |
DIAGS_OCEANIC_SURF_FLUX |
& (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj)) |
|
./model/src/freeze_surface.F |
59 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = |
|
./model/src/freeze_surface.F |
64 |
FREEZE_SURFACE |
surfaceForcingTice(i,j,bi,bj) = 0. _d 0 |