| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
132 |
FIZHI_TENDENCY_APPLY_V |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
214 |
FIZHI_TENDENCY_APPLY_T |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
217 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
49 |
FIZHI_TENDENCY_APPLY_U |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
262 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
263 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
268 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
269 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
270 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/tidal_basin_2d/code/external_forcing.F |
275 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
276 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
279 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
101 |
DIAGNOSTICS_MNC_SET |
klev = myIter + lm - averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
106 |
DIAGNOSTICS_MNC_SET |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',klev,myThid) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
259 |
DIAGNOSTICS_MNC_OUT |
INTEGER ii, klev |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
366 |
DIAGNOSTICS_MNC_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
370 |
DIAGNOSTICS_MNC_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
62 |
DIAGNOSTICS_MNC_SET |
INTEGER ii, klev |
|
./pkg/diagnostics/diagstats_ascii_out.F |
43 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, klev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
56 |
DIAGSTATS_ASCII_OUT |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
IF ( klev.EQ.1 ) kLev = 0 |
|
./pkg/diagnostics/diagstats_ascii_out.F |
74 |
DIAGSTATS_ASCII_OUT |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
111 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
138 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
172 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
191 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
50 |
DIAGSTATS_GLOBAL |
INTEGER i, k, kd, kCnt, klev, kMlev |
|
./pkg/diagnostics/diagstats_global.F |
63 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_global.F |
66 |
DIAGSTATS_GLOBAL |
IF (klev.LE.nLev) THEN |
|
./pkg/diagnostics/diagstats_global.F |
73 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/dic/dic_surfforcing.F |
101 |
DIC_SURFFORCING |
surfphos(i,j) = PTR_PO4(i,j,klev) |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& min(10. _d 0,PTR_ALK(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
96 |
DIC_SURFFORCING |
& min(1._d -1, PTR_PO4(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
99 |
DIC_SURFFORCING |
surfalk(i,j) = PTR_ALK(i,j,klev) |