| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/GGL90.h |
77 |
NO PROCEDURE |
_RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
82 |
NO PROCEDURE |
COMMON /GGL90_FIELDS/ GGL90TKE, |
|
./pkg/ggl90/ggl90_calc.F |
152 |
GGL90_CALC |
SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
173 |
GGL90_CALC |
SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
361 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
373 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
423 |
GGL90_CALC |
& *GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
425 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
439 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
520 |
GGL90_CALC |
GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
522 |
GGL90_CALC |
GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
527 |
GGL90_CALC |
GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
536 |
GGL90_CALC |
U GGL90TKE, |
|
./pkg/ggl90/ggl90_calc.F |
544 |
GGL90_CALC |
GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
545 |
GGL90_CALC |
& *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
657 |
GGL90_CALC |
CALL DIAGNOSTICS_FILL( GGL90TKE ,'GGL90TKE', |
|
./pkg/ggl90/ggl90_checkpoint.F |
41 |
GGL90_READ_PICKUP |
CALL READ_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
45 |
GGL90_READ_PICKUP |
_EXCH_XYZ_RL( GGL90TKE, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, prec, Nr, GGL90TKE, 1, myIter, myThid ) |
|
./pkg/ggl90/ggl90_exchanges.F |
35 |
GGL90_EXCHANGES |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
44 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init_varia.F |
66 |
GGL90_INIT_VARIA |
CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) |
|
./pkg/ggl90/ggl90_init_varia.F |
67 |
GGL90_INIT_VARIA |
_EXCH_XYZ_RL(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_init_varia.F |
73 |
GGL90_INIT_VARIA |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/ggl90_output.F |
129 |
GGL90_OUTPUT |
CALL TIMEAVE_CUMULATE( GGL90TKEtave, GGL90TKE, |
|
./pkg/ggl90/ggl90_output.F |
94 |
GGL90_OUTPUT |
& GGL90TKE, myIter, myThid ) |