| 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 |
|
./pkg/layers/layers_save.F |
71 |
LAYERS_FILL |
& klev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./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/bling/bling_airseaflux.F |
112 |
BLING_AIRSEAFLUX |
klev=1 |
|
./pkg/bling/bling_airseaflux.F |
162 |
BLING_AIRSEAFLUX |
IF ( maskC(i,j,klev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/bling/bling_airseaflux.F |
174 |
BLING_AIRSEAFLUX |
U pH(i,j,klev,bi,bj),pCO2(i,j,bi,bj),co3dummy, |
|
./pkg/bling/bling_airseaflux.F |
175 |
BLING_AIRSEAFLUX |
I i,j,klev,bi,bj,myIter,myThid ) |
|
./pkg/bling/bling_airseaflux.F |
75 |
BLING_AIRSEAFLUX |
INTEGER i,j,klev |
|
./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_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 |
100 |
DIC_SURFFORCING |
surfphos(i,j) = PTR_PO4(i,j,klev) |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
& min(10. _d 0,PTR_ALK(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
95 |
DIC_SURFFORCING |
& min(1. _d -1,PTR_PO4(i,j,klev))) |
|
./pkg/dic/dic_surfforcing.F |
98 |
DIC_SURFFORCING |
surfalk(i,j) = PTR_ALK(i,j,klev) |