| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
72 |
EBM_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./verification/tidal_basin_2d/code/external_forcing.F |
210 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
179 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
170 |
EXTERNAL_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./model/src/ini_forcing.F |
60 |
INI_FORCING |
surfaceForcingV(i,j,bi,bj) = 0. _d 0 |
|
./model/inc/FFIELDS.h |
203 |
NO PROCEDURE |
& surfaceForcingV, |
|
./model/inc/FFIELDS.h |
208 |
NO PROCEDURE |
_RL surfaceForcingV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_calc.F |
362 |
KPP_CALC |
& (surfaceForcingV(i,j,bi,bj) + surfaceForcingV(i,jp1,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
363 |
KPP_CALC |
& (surfaceForcingV(i,j,bi,bj) + surfaceForcingV(i,jp1,bi,bj)) |
|
./pkg/kpp/kpp_calc.F |
492 |
KPP_CALC |
ustarY = ( surfaceForcingV(i,j, bi,bj) + |
|
./pkg/kpp/kpp_calc.F |
493 |
KPP_CALC |
& surfaceForcingV(i,jp1,bi,bj) ) * p5 |
|
./pkg/ggl90/ggl90_calc.F |
323 |
GGL90_CALC |
& + ( .5*( surfaceForcingV(I, J, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
324 |
GGL90_CALC |
& + surfaceForcingV(I, J+1,bi,bj) ) )**2 |
|
./model/src/external_forcing.F |
179 |
EXTERNAL_FORCING_V |
& +foFacMom*surfaceForcingV(i,j,bi,bj) |