| File |
Line number |
Procedure |
Code |
|
./pkg/ebm/ebm_forcing_surf.F |
67 |
EBM_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./verification/tidal_basin_2d/code/external_forcing.F |
83 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |
|
./model/src/external_forcing_surf.F |
167 |
EXTERNAL_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./model/src/ini_forcing.F |
59 |
INI_FORCING |
surfaceForcingU(i,j,bi,bj) = 0. _d 0 |
|
./model/inc/FFIELDS.h |
202 |
NO PROCEDURE |
& surfaceForcingU, |
|
./model/inc/FFIELDS.h |
207 |
NO PROCEDURE |
_RL surfaceForcingU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/kpp/kpp_calc.F |
360 |
KPP_CALC |
& (surfaceForcingU(i,j,bi,bj) + surfaceForcingU(ip1,j,bi,bj)) * |
|
./pkg/kpp/kpp_calc.F |
361 |
KPP_CALC |
& (surfaceForcingU(i,j,bi,bj) + surfaceForcingU(ip1,j,bi,bj)) + |
|
./pkg/kpp/kpp_calc.F |
489 |
KPP_CALC |
ustarX = ( surfaceForcingU(i, j,bi,bj) + |
|
./pkg/kpp/kpp_calc.F |
490 |
KPP_CALC |
& surfaceForcingU(ip1,j,bi,bj) ) * p5 |
|
./pkg/ggl90/ggl90_calc.F |
321 |
GGL90_CALC |
& ( .5*( surfaceForcingU(I, J, bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
322 |
GGL90_CALC |
& + surfaceForcingU(I+1,J, bi,bj) ) )**2 |
|
./model/src/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& +foFacMom*surfaceForcingU(i,j,bi,bj) |