| File |
Line number |
Procedure |
Code |
|
./pkg/exch2/w2_print_e2setup.F |
132 |
W2_PRINT_E2SETUP |
nt = exch2_opposingSend(np(i),ip(i)) |
|
./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 |
42 |
W2_PRINT_E2SETUP |
INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty |
|
./pkg/exch2/w2_print_e2setup.F |
75 |
W2_PRINT_E2SETUP |
nt = exch2_opposingSend(np(i),ip(i)) |
|
./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 |
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 |
283 |
W2_SET_TILE2TILES |
exch2_opposingSend(ns,is) = nt |
|
./pkg/exch2/w2_set_tile2tiles.F |
291 |
W2_SET_TILE2TILES |
& nt,' (',tile_edge2edge(nt,it),' )' |
|
./pkg/exch2/w2_set_tile2tiles.F |
317 |
W2_SET_TILE2TILES |
nt = exch2_opposingSend(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 |
325 |
W2_SET_TILE2TILES |
& nt,' (',tile_edge2edge(nt,it),' )' |
|
./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 |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2509 |
TABLUP |
_RL coef1(nx,nh,nt),coef2(nx,nh,nt),coef3(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
2525 |
TABLUP |
nn=mod(i,nt)+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
562 |
IRRAD |
integer nx,no,nc,nh,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
564 |
IRRAD |
parameter (nx=26,no=21,nc=24,nh=31,nt=7) |
|
./pkg/fizhi/fizhi_lwrad.F |
614 |
IRRAD |
_RL c1 (nx,nc,nt),c2 (nx,nc,nt),c3 (nx,nc,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
615 |
IRRAD |
_RL o1 (nx,no,nt),o2 (nx,no,nt),o3 (nx,no,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
616 |
IRRAD |
_RL h11(nx,nh,nt),h12(nx,nh,nt),h13(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
617 |
IRRAD |
_RL h21(nx,nh,nt),h22(nx,nh,nt),h23(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
618 |
IRRAD |
_RL h81(nx,nh,nt),h82(nx,nh,nt),h83(nx,nh,nt) |
|
./pkg/fizhi/fizhi_lwrad.F |
822 |
IRRAD |
do it=2,nt |
|
./pkg/fizhi/fizhi_lwrad.F |
855 |
IRRAD |
do it=2,nt |
|
./pkg/fizhi/fizhi_moist.F |
1231 |
RAS |
integer i,L,nc,ib,nt |
|
./pkg/fizhi/fizhi_moist.F |
139 |
MOISTIO |
integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt |
|
./pkg/fizhi/fizhi_moist.F |
1661 |
CLOUD |
integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii |
|
./pkg/fizhi/fizhi_moist.F |
1719 |
CLOUD |
do nt = 1,ntracer |
|
./pkg/fizhi/fizhi_moist.F |
1722 |
CLOUD |
ucu(I,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
2212 |
CLOUD |
do nt = 1,ntracer |
|
./pkg/fizhi/fizhi_moist.F |
2219 |
CLOUD |
TX1(I) = ( UOI(II,KM1+nltop-1,nt) - UOI(II,K+nltop-1,nt)) |
|
./pkg/fizhi/fizhi_moist.F |
2220 |
CLOUD |
ucu(II,K,nt) = TEM * TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
2230 |
CLOUD |
TX1(I) = (UOI(II,L-1+nltop-1,nt)-UOI(II,L+nltop-1,nt)) * ETA(I,L) |
|
./pkg/fizhi/fizhi_moist.F |
2235 |
CLOUD |
ucu(II,L,nt) = TX3(I) |
|
./pkg/fizhi/fizhi_moist.F |
2245 |
CLOUD |
TX1(I) = (TX1(I) + UHT(I,nt) + UHT(I,nt)) * TEM |
|
./pkg/fizhi/fizhi_moist.F |
2249 |
CLOUD |
ucu(II,IC,nt) = TX1(I) |
|
./pkg/fizhi/fizhi_moist.F |
294 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
300 |
MOISTIO |
ugather(indx,L,nt) = qz(i,j,L,nt+ptracer) |
|
./pkg/fizhi/fizhi_moist.F |
336 |
MOISTIO |
do nt = 1,ntracerin |
|
./pkg/fizhi/fizhi_moist.F |
337 |
MOISTIO |
dqmoist(i,j,l,nt) = 0. |
|
./pkg/fizhi/fizhi_moist.F |
363 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
364 |
MOISTIO |
call STRIP ( ugather(1,1,nt), ul(1,1,nt),im*jm,istrip,lm,nn ) |
|
./pkg/fizhi/fizhi_moist.F |
432 |
MOISTIO |
saveu(i,L,nt) = ul(i,L,nt) |
|
./pkg/fizhi/fizhi_moist.F |
445 |
MOISTIO |
usubcl(i,nt) = ul(i,nsubcl,nt) |
|
./pkg/fizhi/fizhi_moist.F |
577 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
580 |
MOISTIO |
CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
585 |
MOISTIO |
if( usubcl(i,nt).ne.0.0 ) then |
|
./pkg/fizhi/fizhi_moist.F |
586 |
MOISTIO |
cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) * |
|
./pkg/fizhi/fizhi_moist.F |
587 |
MOISTIO |
. ( saveu(i,L,nt)/usubcl(i,nt) )*sp(i)*tminv |
|
./pkg/fizhi/fizhi_moist.F |
589 |
MOISTIO |
cvu(i,L,nt) = 0.0 |
|
./pkg/fizhi/fizhi_moist.F |
624 |
MOISTIO |
do nt = 1,ntracer-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
625 |
MOISTIO |
call PASTE( CVU(1,1,nt),delugather(1,1,nt),istrip,im*jm,lm,NN ) |
|
./pkg/fizhi/fizhi_moist.F |
804 |
MOISTIO |
do nt = 1,ntracerin-ptracer |
|
./pkg/fizhi/fizhi_moist.F |
806 |
MOISTIO |
call BACK2GRD (delugather(1,L,nt),pblindex, |
|
./pkg/fizhi/fizhi_moist.F |
807 |
MOISTIO |
. dqmoist(1,1,L,ptracer+nt),im*jm) |
|
./pkg/fizhi/fizhi_swrad.F |
1017 |
CLDSCALE |
integer nm,nt,na |
|
./pkg/fizhi/fizhi_swrad.F |
1018 |
CLDSCALE |
parameter (nm=11,nt=9,na=11) |
|
./pkg/fizhi/fizhi_swrad.F |
1019 |
CLDSCALE |
_RL dm,dt,da,t1,caib(nm,nt,na),caif(nt,na) |
|
./pkg/fizhi/fizhi_swrad.F |
1109 |
CLDSCALE |
it=min(it,nt-1) |
|
./pkg/fizhi/fizhi_turb.F |
1139 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1141 |
TURBIO |
dqturb(i,1,L,nt) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1155 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1156 |
TURBIO |
call MSC2GRD(igrd,chfr,dqmsc(1,L,nt),nchp,nchptot,fracland, |
|
./pkg/fizhi/fizhi_turb.F |
1157 |
TURBIO |
& dqturb(1,1,L,nt),im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
1243 |
TURBIO |
do nt = 1,ntracers |
|
./pkg/fizhi/fizhi_turb.F |
1245 |
TURBIO |
dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i) |
|
./pkg/fizhi/fizhi_turb.F |
250 |
TURBIO |
integer istnp1,istnlay,itrtrb,i,L,nn,nt |
|
./pkg/mnc/mnc_utils.F |
146 |
MNC_GET_NEXT_EMPTY_IND |
integer myThid, nt |
|
./pkg/mnc/mnc_utils.F |
170 |
MNC_GET_NEXT_EMPTY_IND |
& 'MNC_GET_NEXT_EMPTY_IND: array size ', nt, |
|
./pkg/mnc/mnc_utils.F |
89 |
MNC_GET_IND |
integer myThid, nt |
|
./pkg/cheapaml/cheapaml.F |
136 |
CHEAPAML |
DO nt=1,cheapaml_ntim |
|
./pkg/cheapaml/cheapaml.F |
159 |
CHEAPAML |
startAB = cheapTairStartAB + nt - 1 |
|
./pkg/cheapaml/cheapaml.F |
169 |
CHEAPAML |
I nt, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
197 |
CHEAPAML |
startAB = cheapTairStartAB + nt - 1 |
|
./pkg/cheapaml/cheapaml.F |
207 |
CHEAPAML |
I nt, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
236 |
CHEAPAML |
startAB = cheapTracStartAB + nt - 1 |
|
./pkg/cheapaml/cheapaml.F |
246 |
CHEAPAML |
I nt, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml.F |
54 |
CHEAPAML |
INTEGER i,j, nt, startAB |