| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_e2setup.F |
131 |
W2_PRINT_E2SETUP |
it = exch2_neighbourId (np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
133 |
W2_PRINT_E2SETUP |
jt = exch2_myFace(it) |
|
./pkg/exch2/w2_print_e2setup.F |
135 |
W2_PRINT_E2SETUP |
IF ( exch2_jLo(nt,it).EQ.exch2_jHi(nt,it) ) |
|
./pkg/exch2/w2_print_e2setup.F |
136 |
W2_PRINT_E2SETUP |
& ii = 2 - MIN(1,exch2_jHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
137 |
W2_PRINT_E2SETUP |
IF ( exch2_iLo(nt,it).EQ.exch2_iHi(nt,it) ) |
|
./pkg/exch2/w2_print_e2setup.F |
138 |
W2_PRINT_E2SETUP |
& ii = 4 - MIN(1,exch2_iHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
201 |
W2_PRINT_E2SETUP |
it = 1 |
|
./pkg/exch2/w2_print_e2setup.F |
205 |
W2_PRINT_E2SETUP |
IF ( exch2_nNeighbours(is).GT.exch2_nNeighbours(it) ) it = is |
|
./pkg/exch2/w2_print_e2setup.F |
222 |
W2_PRINT_E2SETUP |
IF ( it.NE.0 ) THEN |
|
./pkg/exch2/w2_print_e2setup.F |
224 |
W2_PRINT_E2SETUP |
& 'current Max.Nb.Neighbours (e.g., on tile',it, |
|
./pkg/exch2/w2_print_e2setup.F |
225 |
W2_PRINT_E2SETUP |
& ' ) =', exch2_nNeighbours(it) |
|
./pkg/exch2/w2_print_e2setup.F |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
74 |
W2_PRINT_E2SETUP |
it = exch2_neighbourId (np(i),ip(i)) |
|
./pkg/exch2/w2_print_e2setup.F |
76 |
W2_PRINT_E2SETUP |
jt = exch2_myFace(it) |
|
./pkg/exch2/w2_print_e2setup.F |
78 |
W2_PRINT_E2SETUP |
IF ( exch2_jLo(nt,it).EQ.exch2_jHi(nt,it) ) |
|
./pkg/exch2/w2_print_e2setup.F |
79 |
W2_PRINT_E2SETUP |
& ii = 2 - MIN(1,exch2_jHi(nt,it)) |
|
./pkg/exch2/w2_print_e2setup.F |
80 |
W2_PRINT_E2SETUP |
IF ( exch2_iLo(nt,it).EQ.exch2_iHi(nt,it) ) |
|
./pkg/exch2/w2_print_e2setup.F |
81 |
W2_PRINT_E2SETUP |
& ii = 4 - MIN(1,exch2_iHi(nt,it)) |
|
./pkg/exch2/w2_set_tile2tiles.F |
121 |
W2_SET_TILE2TILES |
it = 2*ii - 3 |
|
./pkg/exch2/w2_set_tile2tiles.F |
123 |
W2_SET_TILE2TILES |
it = is + it*nbTx |
|
./pkg/exch2/w2_set_tile2tiles.F |
125 |
W2_SET_TILE2TILES |
it = is + it |
|
./pkg/exch2/w2_set_tile2tiles.F |
128 |
W2_SET_TILE2TILES |
IF ( exch2_myFace(it).NE.0 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
131 |
W2_SET_TILE2TILES |
exch2_neighbourId(ns,is) = it |
|
./pkg/exch2/w2_set_tile2tiles.F |
179 |
W2_SET_TILE2TILES |
it = facet_owns(1,jt) + tx + ty*nbTx |
|
./pkg/exch2/w2_set_tile2tiles.F |
180 |
W2_SET_TILE2TILES |
IF ( exch2_myFace(it).NE.0 ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
184 |
W2_SET_TILE2TILES |
exch2_neighbourId(ns,is) = it |
|
./pkg/exch2/w2_set_tile2tiles.F |
192 |
W2_SET_TILE2TILES |
itbd1 = MIN( MAX( ibnd1, exch2_tBasex(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
193 |
W2_SET_TILE2TILES |
& exch2_tBasex(it)+tNx ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
194 |
W2_SET_TILE2TILES |
itbd2 = MIN( MAX( ibnd2, exch2_tBasex(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
195 |
W2_SET_TILE2TILES |
& exch2_tBasex(it)+tNx ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
196 |
W2_SET_TILE2TILES |
jtbd1 = MIN( MAX( jbnd1, exch2_tBasey(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
197 |
W2_SET_TILE2TILES |
& exch2_tBasey(it)+tNy ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
198 |
W2_SET_TILE2TILES |
jtbd2 = MIN( MAX( jbnd2, exch2_tBasey(it)+1 ), |
|
./pkg/exch2/w2_set_tile2tiles.F |
199 |
W2_SET_TILE2TILES |
& exch2_tBasey(it)+tNy ) |
|
./pkg/exch2/w2_set_tile2tiles.F |
245 |
W2_SET_TILE2TILES |
it = 0 |
|
./pkg/exch2/w2_set_tile2tiles.F |
249 |
W2_SET_TILE2TILES |
it = is |
|
./pkg/exch2/w2_set_tile2tiles.F |
253 |
W2_SET_TILE2TILES |
& 'current Max.Nb.Neighbours (e.g., on tile',it,' ) =',nbNeighb |
|
./pkg/exch2/w2_set_tile2tiles.F |
277 |
W2_SET_TILE2TILES |
it = exch2_neighbourId(ns,is) |
|
./pkg/exch2/w2_set_tile2tiles.F |
278 |
W2_SET_TILE2TILES |
DO nt=1,exch2_nNeighbours(it) |
|
./pkg/exch2/w2_set_tile2tiles.F |
280 |
W2_SET_TILE2TILES |
ii = MOD(tile_edge2edge(nt,it),10) |
|
./pkg/exch2/w2_set_tile2tiles.F |
281 |
W2_SET_TILE2TILES |
IF ( exch2_neighbourId(nt,it).EQ.is .AND. ii.EQ.i ) THEN |
|
./pkg/exch2/w2_set_tile2tiles.F |
289 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
290 |
W2_SET_TILE2TILES |
& nn,' (',tile_edge2edge(nn,it),' ) and', |
|
./pkg/exch2/w2_set_tile2tiles.F |
291 |
W2_SET_TILE2TILES |
& nt,' (',tile_edge2edge(nt,it),' )' |
|
./pkg/exch2/w2_set_tile2tiles.F |
299 |
W2_SET_TILE2TILES |
& ns,' (',tile_edge2edge(ns,is),' ) no connection from',it |
|
./pkg/exch2/w2_set_tile2tiles.F |
316 |
W2_SET_TILE2TILES |
it = exch2_neighbourId(ns,is) |
|
./pkg/exch2/w2_set_tile2tiles.F |
318 |
W2_SET_TILE2TILES |
ii = exch2_neighbourId(nt,it) |
|
./pkg/exch2/w2_set_tile2tiles.F |
319 |
W2_SET_TILE2TILES |
nn = exch2_opposingSend(nt,it) |
|
./pkg/exch2/w2_set_tile2tiles.F |
324 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,5(A,I3))') ' with tile', it, ' :', |
|
./pkg/exch2/w2_set_tile2tiles.F |
325 |
W2_SET_TILE2TILES |
& nt,' (',tile_edge2edge(nt,it),' )' |
|
./pkg/exch2/w2_set_tile2tiles.F |
327 |
W2_SET_TILE2TILES |
WRITE(msgBuf,'(A,I5,2(A,I3),A)') ' but',it,' neighb:', |
|
./pkg/exch2/w2_set_tile2tiles.F |
328 |
W2_SET_TILE2TILES |
& nt,' (',tile_edge2edge(nt,it),' ) connected' |
|
./pkg/exch2/w2_set_tile2tiles.F |
44 |
W2_SET_TILE2TILES |
INTEGER is, js, ns, it, jt, nt, tx, ty |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_lwrad.F |
822 |
IRRAD |
do it=2,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
825 |
IRRAD |
c1 (ip,iw,it)= c1(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
826 |
IRRAD |
c2 (ip,iw,it)= c2(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
827 |
IRRAD |
c3 (ip,iw,it)= c3(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
832 |
IRRAD |
h11(ip,iw,it)=h11(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
833 |
IRRAD |
h12(ip,iw,it)=h12(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
834 |
IRRAD |
h13(ip,iw,it)=h13(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
835 |
IRRAD |
h21(ip,iw,it)=h21(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
836 |
IRRAD |
h22(ip,iw,it)=h22(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
837 |
IRRAD |
h23(ip,iw,it)=h23(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
838 |
IRRAD |
h81(ip,iw,it)=h81(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
839 |
IRRAD |
h82(ip,iw,it)=h82(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
840 |
IRRAD |
h83(ip,iw,it)=h83(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
855 |
IRRAD |
do it=2,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
858 |
IRRAD |
o1 (ip,iw,it)= o1(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
859 |
IRRAD |
o2 (ip,iw,it)= o2(ip,iw,1) |
|
./pkg/fizhi/fizhi_lwrad.F |
860 |
IRRAD |
o3 (ip,iw,it)= o3(ip,iw,1) |
|
./pkg/fizhi/fizhi_swrad.F |
1012 |
CLDSCALE |
integer i,j,k,im,it,ia,kk |
|
./pkg/fizhi/fizhi_swrad.F |
1101 |
CLDSCALE |
it=int(ft+1.5) |
|
./pkg/fizhi/fizhi_swrad.F |
1105 |
CLDSCALE |
it=max(it,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1109 |
CLDSCALE |
it=min(it,nt-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1113 |
CLDSCALE |
ft=ft-float(it-1) |
|
./pkg/fizhi/fizhi_swrad.F |
1120 |
CLDSCALE |
xai= (-caib(im-1,it,ia)*(1.-fm)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1121 |
CLDSCALE |
* caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm) |
|
./pkg/fizhi/fizhi_swrad.F |
1123 |
CLDSCALE |
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1124 |
CLDSCALE |
* caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1126 |
CLDSCALE |
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1127 |
CLDSCALE |
* caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1129 |
CLDSCALE |
xai= xai-2.*caib(im,it,ia) |
|
./pkg/fizhi/fizhi_swrad.F |
1138 |
CLDSCALE |
xai= (-caif(it-1,ia)*(1.-ft)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1139 |
CLDSCALE |
* caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft) |
|
./pkg/fizhi/fizhi_swrad.F |
1141 |
CLDSCALE |
xai=xai+(-caif(it,ia-1)*(1.-fa)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1142 |
CLDSCALE |
* caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa) |
|
./pkg/fizhi/fizhi_swrad.F |
1144 |
CLDSCALE |
xai= xai-caif(it,ia) |
|
./model/inc/SIZE.h |
6 |
NO PROCEDURE |
as an error then it means you have not placed your configuration |
|
./pkg/seaice/seaice_advdiff.F |
215 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
218 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
258 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
261 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
291 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
325 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
328 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
358 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
555 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
560 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
585 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
598 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
603 |
SEAICE_ADVDIFF |
AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
628 |
SEAICE_ADVDIFF |
AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
656 |
SEAICE_ADVDIFF |
DO it=1,SEAICE_multDim |
|
./pkg/seaice/seaice_advdiff.F |
661 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
686 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
72 |
SEAICE_ADVDIFF |
INTEGER it |
|
./pkg/seaice/seaice_growth.F |
1092 |
SEAICE_GROWTH |
IF (a_QbyATMmult_cover(i,j,it).LT.ZERO .OR. |
|
./pkg/seaice/seaice_growth.F |
1098 |
SEAICE_GROWTH |
latMeltRate(i,j,it) = ZERO |
|
./pkg/seaice/seaice_growth.F |
1100 |
SEAICE_GROWTH |
& latMeltRate(i,j,it) = 1.6 _d -6 * exp(1.36*log(tmpscal1)) |
|
./pkg/seaice/seaice_growth.F |
1110 |
SEAICE_GROWTH |
latMeltFrac(i,j,it) = |
|
./pkg/seaice/seaice_growth.F |
1111 |
SEAICE_GROWTH |
& latMeltRate(i,j,it)*SEAICE_deltaTtherm*PI / |
|
./pkg/seaice/seaice_growth.F |
1113 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=max(ZERO, min(latMeltFrac(i,j,it),ONE)) |
|
./pkg/seaice/seaice_growth.F |
1115 |
SEAICE_GROWTH |
latMeltRate(i,j,it)=0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1116 |
SEAICE_GROWTH |
latMeltFrac(i,j,it)=0.0 _d 0 |
|
./pkg/atm2d/OCNIDS.h |
6 |
NO PROCEDURE |
as an error then it means you have not placed your coupler |
|
./pkg/atm_ocn_coupler/ATMIDS.h |
6 |
NO PROCEDURE |
as an error then it means you have not placed your coupler |
|
./pkg/atm_ocn_coupler/OCNIDS.h |
6 |
NO PROCEDURE |
as an error then it means you have not placed your coupler |
|
./pkg/autodiff/tamc.h |
25 |
NO PROCEDURE |
as an error then it means you have not placed your customized "tamc.h" |
|
./pkg/bling/bling_carbonate_init.F |
197 |
BLING_CARBONATE_INIT |
DO it=1,10 |
|
./pkg/bling/bling_carbonate_init.F |
210 |
BLING_CARBONATE_INIT |
I i,j,k,bi,bj, it , myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
37 |
BLING_CARBONATE_INIT |
INTEGER i,j, k, it |
|
./pkg/cfc/cfc_atmos.F |
100 |
CFC_ATMOS |
ACFCnRec = it |
|
./pkg/cfc/cfc_atmos.F |
111 |
CFC_ATMOS |
DO it = 1,ACFCnRec |
|
./pkg/cfc/cfc_atmos.F |
113 |
CFC_ATMOS |
& ACFCyear(it), ACFC11(it,1),ACFC12(it,1), |
|
./pkg/cfc/cfc_atmos.F |
114 |
CFC_ATMOS |
& ACFC11(it,2),ACFC12(it,2) |
|
./pkg/cfc/cfc_atmos.F |
40 |
CFC_ATMOS |
INTEGER iUnit, i, it, iL |
|
./pkg/cfc/cfc_atmos.F |
76 |
CFC_ATMOS |
it = 0 |
|
./pkg/cfc/cfc_atmos.F |
77 |
CFC_ATMOS |
DO WHILE ( it.LE.ACFCrecSize ) |
|
./pkg/cfc/cfc_atmos.F |
79 |
CFC_ATMOS |
it = it + 1 |
|
./pkg/cfc/cfc_atmos.F |
80 |
CFC_ATMOS |
IF ( it .LE. ACFCrecSize ) THEN |
|
./pkg/cfc/cfc_atmos.F |
81 |
CFC_ATMOS |
ACFCyear(it) = tmpVar(1) |
|
./pkg/cfc/cfc_atmos.F |
82 |
CFC_ATMOS |
ACFC11(it,1) = tmpVar(2) |
|
./pkg/cfc/cfc_atmos.F |
83 |
CFC_ATMOS |
ACFC12(it,1) = tmpVar(3) |
|
./pkg/cfc/cfc_atmos.F |
84 |
CFC_ATMOS |
ACFC11(it,2) = tmpVar(4) |
|
./pkg/cfc/cfc_atmos.F |
85 |
CFC_ATMOS |
ACFC12(it,2) = tmpVar(5) |
|
./pkg/cfc/cfc_atmos.F |
88 |
CFC_ATMOS |
IF ( it.GT.ACFCrecSize ) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
226 |
DIC_SURFFORCING_INIT |
DO it=1,10 |
|
./pkg/dic/dic_surfforcing_init.F |
241 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
38 |
DIC_SURFFORCING_INIT |
INTEGER i,j, kLev, it |