| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
36 |
NO PROCEDURE |
COMMON /SURF_CORREC/ TsurfCor, SsurfCor |
|
./model/inc/SURFACE.h |
38 |
NO PROCEDURE |
_RL SsurfCor |
|
./model/src/apply_forcing.F |
933 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
71 |
LAYERS_WSURF_TR |
scor = scor + SsurfCor |
|
./model/src/calc_wsurf_tr.F |
101 |
CALC_WSURF_TR |
SsurfCor = wS_Mean / globalArea |
|
./model/src/calc_wsurf_tr.F |
59 |
CALC_WSURF_TR |
SsurfCor= 0. |
|
./model/src/external_forcing.F |
762 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
990 |
APPLY_FORCING_S |
& +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
137 |
THERMODYNAMICS |
SsurfCor = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
46 |
AUTODIFF_INIT_VARIA |
SsurfCor = 0. _d 0 |