| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_kapgm.F |
122 |
COST_KAPGM |
tmpx = (tmpfld3d(i,j,k,bi,bj)-GM_background_K) |
|
./pkg/gmredi/gmredi_check.F |
47 |
GMREDI_CHECK |
CALL WRITE_0D_R8( GM_background_K*GM_skewflx, INDEX_NONE, |
|
./pkg/gmredi/gmredi_check.F |
50 |
GMREDI_CHECK |
CALL WRITE_0D_R8( GM_background_K*GM_advect, INDEX_NONE, |
|
./pkg/gmredi/GMREDI.h |
19 |
NO PROCEDURE |
_RL GM_background_K |
|
./pkg/gmredi/GMREDI.h |
31 |
NO PROCEDURE |
COMMON /GM_PARAMS/ GM_isopycK, GM_background_K, |
|
./pkg/gmredi/gmredi_readparms.F |
104 |
GMREDI_READPARMS |
IF (GM_isopycK.EQ.-999.) GM_isopycK = GM_background_K |
|
./pkg/gmredi/gmredi_readparms.F |
117 |
GMREDI_READPARMS |
GM_ExtraDiag = GM_isopycK.NE.GM_background_K |
|
./pkg/gmredi/gmredi_readparms.F |
33 |
GMREDI_READPARMS |
& GM_background_K, |
|
./pkg/gmredi/gmredi_readparms.F |
74 |
GMREDI_READPARMS |
GM_background_K = 0. |
|
./pkg/gmredi/gmredi_calc_tensor.F |
310 |
GMREDI_CALC_TENSOR |
Kgm_tmp = GM_isopycK + GM_skewflx*GM_background_K |
|
./pkg/gmredi/gmredi_calc_tensor.F |
399 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK - GM_skewflx*GM_background_K |
|
./pkg/gmredi/gmredi_calc_tensor.F |
480 |
GMREDI_CALC_TENSOR |
& ( GM_isopycK - GM_skewflx*GM_background_K |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
128 |
GMREDI_CALC_PSI_B |
& *( GM_background_K |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
138 |
GMREDI_CALC_PSI_B |
& *( GM_background_K |