| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
118 |
FIZHI_TENDENCY_APPLY_V |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
192 |
FIZHI_TENDENCY_APPLY_T |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
195 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
43 |
FIZHI_TENDENCY_APPLY_U |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/obcs/obcs_sponge.F |
439 |
OBCS_SPONGE_T |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_sponge.F |
455 |
OBCS_SPONGE_T |
IF (OBNt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
495 |
OBCS_SPONGE_T |
IF (OBSt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
536 |
OBCS_SPONGE_T |
IF (OBEt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
579 |
OBCS_SPONGE_T |
IF (OBWt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
670 |
OBCS_SPONGE_S |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_sponge.F |
686 |
OBCS_SPONGE_S |
IF (OBNs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
727 |
OBCS_SPONGE_S |
IF (OBSs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
768 |
OBCS_SPONGE_S |
IF (OBEs(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
812 |
OBCS_SPONGE_S |
IF (OBWs(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
47 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(1)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
48 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
55 |
SALT_PLUME_TENDENCY_APPLY_S |
kp1 = klev+1 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
56 |
SALT_PLUME_TENDENCY_APPLY_S |
IF (klev.EQ.Nr) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
57 |
SALT_PLUME_TENDENCY_APPLY_S |
kp1 = klev |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
58 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
61 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
357 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
358 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./model/src/external_forcing.F |
363 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./model/src/external_forcing.F |
364 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
365 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./model/src/external_forcing.F |
370 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
371 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
382 |
EXTERNAL_FORCING_T |
CALL RBCS_ADD_TENDENCY(bi,bj,klev, 1, |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_S |
CALL RBCS_ADD_TENDENCY(bi,bj,klev, 2, |
|
./verification/rotating_tank/code/external_forcing.F |
334 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/rotating_tank/code/external_forcing.F |
340 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/rotating_tank/code/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
342 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/rotating_tank/code/external_forcing.F |
347 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
322 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
328 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/tidal_basin_2d/code/external_forcing.F |
329 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
330 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/tidal_basin_2d/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
163 |
TAUEDDY_EXTERNAL_FORCING_V |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
166 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
167 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
173 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*GM_PsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
176 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*eddyPsiY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
179 |
TAUEDDY_EXTERNAL_FORCING_V |
& *recip_drF(klev)*_recip_hFacS(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
73 |
TAUEDDY_EXTERNAL_FORCING_U |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
76 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
77 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
83 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*GM_PsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
86 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyPsiX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
89 |
TAUEDDY_EXTERNAL_FORCING_U |
& *recip_drF(klev)*_recip_hFacW(i,j,klev,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
208 |
DIAGNOSTICS_OUT |
klev = myIter + jj - jjMx |
|
./pkg/diagnostics/diagnostics_out.F |
213 |
DIAGNOSTICS_OUT |
CALL MNC_CW_I_W_S('I',diag_mnc_bn,0,0,'iter',klev,myThid) |
|
./pkg/diagnostics/diagnostics_out.F |
569 |
DIAGNOSTICS_OUT |
klev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
573 |
DIAGNOSTICS_OUT |
IF ( maskC(i,j,klev,bi,bj) .EQ. 0. ) |
|
./pkg/diagnostics/diagnostics_out.F |
88 |
DIAGNOSTICS_OUT |
INTEGER ii, klev |
|
./pkg/diagnostics/diagnostics_utils.F |
59 |
GETDIAG |
INTEGER lev, levCt, klev |
|
./pkg/diagnostics/diagnostics_utils.F |
63 |
GETDIAG |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
64 |
GETDIAG |
IF (lev.LE.klev) THEN |
|
./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 |
71 |
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 |
87 |
DIC_SURFFORCING |
surfalk(i,j) = PTR_ALK(i,j,klev) |
|
./pkg/dic/dic_surfforcing.F |
89 |
DIC_SURFFORCING |
surfphos(i,j) = PTR_PO4(i,j,klev) |
|
./pkg/dic/dic_surfforcing_init.F |
180 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,klev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
182 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= PTRACER(i,j,klev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
191 |
DIC_SURFFORCING_INIT |
PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1) |