| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_utils.F |
49 |
GETDIAG |
INTEGER lev, levCt, klev |
|
./pkg/diagnostics/diagnostics_utils.F |
53 |
GETDIAG |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
54 |
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 |
112 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
134 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/diagnostics/diagstats_global.F |
166 |
DIAGSTATS_GLOBAL |
DO k=0,klev |
|
./pkg/diagnostics/diagstats_global.F |
185 |
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 |
62 |
DIAGSTATS_GLOBAL |
klev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_global.F |
65 |
DIAGSTATS_GLOBAL |
IF (klev.LE.nLev) THEN |
|
./pkg/diagnostics/diagstats_global.F |
72 |
DIAGSTATS_GLOBAL |
DO k=1,klev |
|
./pkg/dic/dic_surfforcing.F |
83 |
DIC_SURFFORCING |
surfalk(i,j) = PTRACER(i,j,klev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing.F |
85 |
DIC_SURFFORCING |
surfphos(i,j) = PTRACER(i,j,klev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
133 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,klev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
135 |
DIC_SURFFORCING_INIT |
surfphos(i,j) = PTRACER(i,j,klev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
144 |
DIC_SURFFORCING_INIT |
PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1) |
|
./model/src/taueddy_external_forcing.F |
136 |
TAUEDDY_EXTERNAL_FORCING_V |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
139 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
140 |
TAUEDDY_EXTERNAL_FORCING_V |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
145 |
TAUEDDY_EXTERNAL_FORCING_V |
& (maskm1*_maskS(i,j,klev,bi,bj)*eddyTauY(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
147 |
TAUEDDY_EXTERNAL_FORCING_V |
& *recip_drF(klev)*_recip_hFacS(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
62 |
TAUEDDY_EXTERNAL_FORCING_U |
Kp1=min(klev+1,Nr) |
|
./model/src/taueddy_external_forcing.F |
65 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.Nr) maskp1=0. |
|
./model/src/taueddy_external_forcing.F |
66 |
TAUEDDY_EXTERNAL_FORCING_U |
IF (klev.EQ.1) maskm1=0. |
|
./model/src/taueddy_external_forcing.F |
71 |
TAUEDDY_EXTERNAL_FORCING_U |
& (maskm1*_maskW(i,j,klev,bi,bj)*eddyTauX(i,j,klev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
73 |
TAUEDDY_EXTERNAL_FORCING_U |
& *recip_drF(klev)*_recip_hFacW(i,j,klev,bi,bj) |
|
./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 |
|
./model/src/external_forcing.F |
316 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
317 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./model/src/external_forcing.F |
322 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./model/src/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
324 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./model/src/external_forcing.F |
329 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
330 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./model/src/external_forcing.F |
333 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
call RBCS_ADD_TENDENCY(bi,bj,klev, 1, |
|
./model/src/external_forcing.F |
452 |
EXTERNAL_FORCING_S |
call RBCS_ADD_TENDENCY(bi,bj,klev, 2, |
|
./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) |
|
./verification/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/rotating_tank/code/external_forcing.F |
341 |
EXTERNAL_FORCING_T |
kp1 = klev+1 |
|
./verification/rotating_tank/code/external_forcing.F |
342 |
EXTERNAL_FORCING_T |
IF (klev.EQ.Nr) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
343 |
EXTERNAL_FORCING_T |
kp1 = klev |
|
./verification/rotating_tank/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
349 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
352 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
463 |
OBCS_SPONGE_T |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_sponge.F |
479 |
OBCS_SPONGE_T |
IF (OBNt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
519 |
OBCS_SPONGE_T |
IF (OBSt(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
560 |
OBCS_SPONGE_T |
IF (OBEt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
603 |
OBCS_SPONGE_T |
IF (OBWt(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
kkey = (ikey-1)*Nr + klev |
|
./pkg/obcs/obcs_sponge.F |
721 |
OBCS_SPONGE_S |
IF (OBNs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
762 |
OBCS_SPONGE_S |
IF (OBSs(i,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
803 |
OBCS_SPONGE_S |
IF (OBEs(j,klev,bi,bj).ne. 0.d0) then |
|
./pkg/obcs/obcs_sponge.F |
847 |
OBCS_SPONGE_S |
IF (OBWs(j,klev,bi,bj).ne. 0.d0) then |