| File |
Line number |
Procedure |
Code |
|
./model/inc/SURFACE.h |
36 |
NO PROCEDURE |
COMMON /SURF_CORREC/ TsurfCor, SsurfCor |
|
./model/inc/SURFACE.h |
37 |
NO PROCEDURE |
_RL TsurfCor |
|
./model/src/apply_forcing.F |
652 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./pkg/layers/layers_wsurf_tr.F |
70 |
LAYERS_WSURF_TR |
tcor = tcor + TsurfCor |
|
./model/src/calc_wsurf_tr.F |
100 |
CALC_WSURF_TR |
TsurfCor = wT_Mean / globalArea |
|
./model/src/calc_wsurf_tr.F |
58 |
CALC_WSURF_TR |
TsurfCor= 0. |
|
./model/src/external_forcing.F |
524 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
655 |
APPLY_FORCING_T |
& +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj) |
|
./model/src/thermodynamics.F |
136 |
THERMODYNAMICS |
TsurfCor = 0. _d 0 |
|
./pkg/autodiff/autodiff_init_varia.F |
45 |
AUTODIFF_INIT_VARIA |
TsurfCor = 0. _d 0 |