| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
86 |
NO PROCEDURE |
_RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
90 |
NO PROCEDURE |
COMMON /GGL90_FIELDS/ GGL90TKE, |
|
./pkg/ggl90/ggl90_calc.F |
196 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
215 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
388 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
402 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
505 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
507 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
521 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
535 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
640 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
642 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
643 |
GGL90_CALC |
& - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
653 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
664 |
GGL90_CALC |
U GGL90TKE(1-OLx,1-OLy,1,bi,bj), |
|
./pkg/ggl90/ggl90_calc.F |
672 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
673 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
777 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90TKE ,'GGL90TKE', |
|
./pkg/ggl90/ggl90_calc.F |
794 |
GGL90_CALC |
surf_flx_tke(i,j) =(GGL90TKE(i,j,kSurf,bi,bj)- |
|
./pkg/ggl90/ggl90_calc.F |
795 |
GGL90_CALC |
& GGL90TKE(i,j,kp1,bi,bj)) |
|
./pkg/ggl90/ggl90_exchanges.F |
39 |
GGL90_EXCHANGES |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
143 |
GGL90_INIT_VARIA |
CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
144 |
GGL90_INIT_VARIA |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
150 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_init_varia.F |
54 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90eps*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
57 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_output.F |
133 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90TKEtave, GGL90TKE, |
|
./pkg/ggl90/ggl90_output.F |
98 |
GGL90_OUTPUT |
& GGL90TKE, myIter, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
57 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
59 |
GGL90_READ_PICKUP |
_EXCH_XYZ_RL( GGL90TKE, myThid ) |
|
./pkg/ggl90/ggl90_write_pickup.F |
52 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |