| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_do_diags.F |
106 |
GGL90_DO_DIAGS |
CALL WRITE_FLD_XYZ_RL('GGL90TKE.' ,suff,GGL90TKE, |
|
./pkg/ggl90/ggl90_do_diags.F |
151 |
GGL90_DO_DIAGS |
& GGL90TKEtave, GGL90TKE, Nr,DDTT,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_do_diags.F |
223 |
GGL90_DO_DIAGS |
& GGL90TKEtave, GGL90TKE, Nr,DDTT,bi,bj,myThid) |
|
./pkg/ggl90/ggl90_do_diags.F |
79 |
GGL90_DO_DIAGS |
CALL PLOT_FIELD_XYZRL ( GGL90TKE , 'GGL90TKE' , |
|
./pkg/ggl90/ggl90_do_diags.F |
95 |
GGL90_DO_DIAGS |
CALL WRITE_REC_XYZ_RL('GGL90TKE' ,GGL90TKE ,ggl90_drctrec, |
|
./pkg/ggl90/ggl90_init.F |
43 |
GGL90_INIT |
GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_init.F |
66 |
GGL90_INIT |
CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) |
|
./pkg/ggl90/ggl90_init.F |
68 |
GGL90_INIT |
_EXCH_XYZ_R8(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_init.F |
74 |
GGL90_INIT |
GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj), |
|
./pkg/ggl90/GGL90.h |
74 |
NO PROCEDURE |
_RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/ggl90/GGL90.h |
78 |
NO PROCEDURE |
COMMON /GGL90_FIELDS/ GGL90TKE, |
|
./pkg/ggl90/ggl90_checkpoint.F |
42 |
GGL90_READ_CHECKPOINT |
CALL MDSREADFIELD(fn,prec,'RL',Nr,GGL90TKE,1,myThid) |
|
./pkg/ggl90/ggl90_checkpoint.F |
47 |
GGL90_READ_CHECKPOINT |
_EXCH_XYZ_R8( GGL90TKE, myThid ) |
|
./pkg/ggl90/ggl90_checkpoint.F |
88 |
GGL90_WRITE_CHECKPOINT |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,GGL90TKE,1,myIter,myThid) |
|
./pkg/ggl90/ggl90_exchanges.F |
35 |
GGL90_EXCHANGES |
_EXCH_XYZ_R8(GGL90TKE,myThid) |
|
./pkg/ggl90/ggl90_calc.F |
159 |
GGL90_CALC |
SQRTTKE=SQRT( GGL90TKE(I,J,K,bi,bj) ) |
|
./pkg/ggl90/ggl90_calc.F |
193 |
GGL90_CALC |
& *GGL90TKE(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
195 |
GGL90_CALC |
gTKE(I,J,K) = GGL90TKE(I,J,K,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
225 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
237 |
GGL90_CALC |
& *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
307 |
GGL90_CALC |
& + ab15*deltaTggl90*GGL90ceps*SQRT(GGL90TKE(I,J,K,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
349 |
GGL90_CALC |
GGL90TKE(I,J,K,bi,bj) = MAX( gTKE(I,J,K), GGL90TKEmin ) |
|
./pkg/ggl90/ggl90_calc.F |
364 |
GGL90_CALC |
& SQRT( GGL90TKE(I,J,K,bi,bj) ) |