| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_alarms.F |
33 |
FIZHI_ALARMS |
integer nhmsf, m,n, nd |
|
./pkg/fizhi/fizhi_alarms.F |
51 |
FIZHI_ALARMS |
n = 1 |
|
./pkg/fizhi/fizhi_alarms.F |
55 |
FIZHI_ALARMS |
nd = ndturb + 2*n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
57 |
FIZHI_ALARMS |
n = n+1 |
|
./pkg/fizhi/fizhi_alarms.F |
74 |
FIZHI_ALARMS |
n = 1 |
|
./pkg/fizhi/fizhi_alarms.F |
78 |
FIZHI_ALARMS |
nd = ndmoist + n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
80 |
FIZHI_ALARMS |
n = n+1 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1025 |
TIME_BOUND |
integer nmonf,ndayf,n |
|
./pkg/fizhi/fizhi_clockstuff.F |
130 |
GET_ALARM |
integer myid,n,nalarm,nsecf |
|
./pkg/fizhi/fizhi_clockstuff.F |
134 |
GET_ALARM |
do n=1,ntags |
|
./pkg/fizhi/fizhi_clockstuff.F |
135 |
GET_ALARM |
if (tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
136 |
GET_ALARM |
freq = freqs(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
137 |
GET_ALARM |
datein = dates(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
138 |
GET_ALARM |
timein = times(n) |
|
./pkg/fizhi/fizhi_clockstuff.F |
168 |
GET_ALARM |
integer n,nalarm |
|
./pkg/fizhi/fizhi_clockstuff.F |
174 |
GET_ALARM |
do n=1,ntags |
|
./pkg/fizhi/fizhi_clockstuff.F |
175 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
176 |
GET_ALARM |
if( freqs(n).eq.0 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
177 |
GET_ALARM |
alarm = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
179 |
GET_ALARM |
alarm = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
180 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
181 |
GET_ALARM |
& .and. nalarm( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
195 |
GET_ALARM |
integer n,nalarm2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
201 |
GET_ALARM |
do n=1,ntags |
|
./pkg/fizhi/fizhi_clockstuff.F |
202 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
203 |
GET_ALARM |
if( freqs(n).eq.0 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
204 |
GET_ALARM |
alarm2 = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
206 |
GET_ALARM |
alarm2 = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
207 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
208 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
224 |
GET_ALARM |
integer n,nalarm2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
234 |
GET_ALARM |
do n=1,ntags |
|
./pkg/fizhi/fizhi_clockstuff.F |
235 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
236 |
GET_ALARM |
if( freqs(n).eq.0 ) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
237 |
GET_ALARM |
alarm2next = (dates(n).eq.datein) .and. (times(n).eq.timein) |
|
./pkg/fizhi/fizhi_clockstuff.F |
239 |
GET_ALARM |
alarm2next = ( datein.gt.dates(n) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
240 |
GET_ALARM |
& (datein.eq.dates(n) .and. timein.ge.times(n)) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
241 |
GET_ALARM |
& .and. nalarm2( freqs(n),datein,timein,dates(n),times(n) ).eq.0 |
|
./pkg/fizhi/fizhi_clockstuff.F |
51 |
SET_ALARM |
integer n |
|
./pkg/fizhi/fizhi_clockstuff.F |
64 |
SET_ALARM |
do n=1,ntags |
|
./pkg/fizhi/fizhi_clockstuff.F |
65 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
69 |
SET_ALARM |
print *, 'Frequency: ',freqs(n),' (Old) ',freq,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
70 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',datein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
71 |
SET_ALARM |
print *, ' Time0: ',times(n),' (Old) ',timein,' (New)' |
|
./pkg/fizhi/fizhi_clockstuff.F |
73 |
SET_ALARM |
freqs(n) = freq |
|
./pkg/fizhi/fizhi_clockstuff.F |
74 |
SET_ALARM |
dates(n) = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
75 |
SET_ALARM |
times(n) = timein |
|
./pkg/fizhi/fizhi_diagalarms.F |
33 |
FIZHI_DIAGALARMS |
integer nhmsf, n, nincr |
|
./pkg/fizhi/fizhi_diagalarms.F |
47 |
FIZHI_DIAGALARMS |
do n = 1,nlists |
|
./pkg/fizhi/fizhi_diagalarms.F |
48 |
FIZHI_DIAGALARMS |
absfreq = abs(freq(n)) |
|
./pkg/fizhi/fizhi_diagalarms.F |
56 |
FIZHI_DIAGALARMS |
write(tagname,'(A,I2.2)')'diagtag',n |
|
./pkg/fizhi/fizhi_diagalarms.F |
64 |
FIZHI_DIAGALARMS |
do n = 1,diagSt_nbLists |
|
./pkg/fizhi/fizhi_diagalarms.F |
65 |
FIZHI_DIAGALARMS |
absfreq = abs(diagSt_freq(n)) |
|
./pkg/fizhi/fizhi_diagalarms.F |
73 |
FIZHI_DIAGALARMS |
write(tagname,'(A,I2.2)')'diagStg',n |
|
./pkg/fizhi/fizhi_gwdrag.F |
156 |
GWDRAG |
do n=1,npcs |
|
./pkg/fizhi/fizhi_gwdrag.F |
158 |
GWDRAG |
call STRIPIT ( phis_std,std,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
160 |
GWDRAG |
call STRIPIT ( pz,ps,im*jm,im*jm,istrip,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
161 |
GWDRAG |
call STRIPIT ( uz,us,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
162 |
GWDRAG |
call STRIPIT ( vz,vs,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
163 |
GWDRAG |
call STRIPIT ( tv,ts,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
164 |
GWDRAG |
call STRIPIT ( pl,plstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
165 |
GWDRAG |
call STRIPIT ( ple,plestr,im*jm,im*jm,istrip,Lm+1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
166 |
GWDRAG |
call STRIPIT ( dpres,dpresstr,im*jm,im*jm,istrip,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
167 |
GWDRAG |
call STRIPITINT ( nthin,nthinstr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
168 |
GWDRAG |
call STRIPITINT ( nbase,nbasestr,im*jm,im*jm,istrip,1,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
175 |
GWDRAG |
call PASTIT( dragus,dragu,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
176 |
GWDRAG |
call PASTIT( dragvs,dragv,istrip,im*jm,im*jm,Lm,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
177 |
GWDRAG |
call PASTIT( dragxs,dragx,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
178 |
GWDRAG |
call PASTIT( dragys,dragy,istrip,im*jm,im*jm,1 ,n ) |
|
./pkg/fizhi/fizhi_gwdrag.F |
78 |
GWDRAG |
integer n,i,j,L |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
104 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
105 |
FIZHI_INIT_VEGSURFTILES |
tcanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
117 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
118 |
FIZHI_INIT_VEGSURFTILES |
tdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
130 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
131 |
FIZHI_INIT_VEGSURFTILES |
ecanopy(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
143 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
144 |
FIZHI_INIT_VEGSURFTILES |
swetshal(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
156 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
157 |
FIZHI_INIT_VEGSURFTILES |
swetroot(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
169 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
170 |
FIZHI_INIT_VEGSURFTILES |
swetdeep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
182 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
183 |
FIZHI_INIT_VEGSURFTILES |
snodep(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
195 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
196 |
FIZHI_INIT_VEGSURFTILES |
capac(n,bi,bj) = temptile(n) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
46 |
FIZHI_INIT_VEGSURFTILES |
integer i,j,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1022 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1033 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1050 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1064 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dco2,sco3,scopre,scotem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1068 |
IRRAD |
call COLUMN(m,n,np,pa,dt,do3,sco3,scopre,scotem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1075 |
IRRAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_lwrad.F |
1092 |
IRRAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_lwrad.F |
1140 |
IRRAD |
call H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1147 |
IRRAD |
call CONEXPS(ib,m,n,np,dcont,xke,conexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1154 |
IRRAD |
call CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1164 |
IRRAD |
call N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1170 |
IRRAD |
call CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1176 |
IRRAD |
call COMEXPS(ib,m,n,np,dco2,dt,comexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1188 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1200 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1212 |
IRRAD |
call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1219 |
IRRAD |
call B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
1232 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1250 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1264 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1276 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1291 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1308 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1320 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1332 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1343 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1353 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1363 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1374 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1382 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1389 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1405 |
IRRAD |
do j=1,n |
|
./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 |
1438 |
IRRAD |
call H2OKDIS(ib,m,n,np,k2-1,fkw,gkw,ne,h2oexp,conexp, |
|
./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 |
1460 |
IRRAD |
call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant) |
|
./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 |
1485 |
IRRAD |
call N2OKDIS(ib,m,n,np,k2-1,n2oexp,tn2o,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1491 |
IRRAD |
call CH4KDIS(ib,m,n,np,k2-1,ch4exp,tch4,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1497 |
IRRAD |
call COMKDIS(ib,m,n,np,k2-1,comexp,tcom,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1503 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f11exp,tf11,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1509 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f12exp,tf12,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1515 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f22exp,tf22,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1522 |
IRRAD |
call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
1530 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1545 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1568 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1589 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1606 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1628 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1640 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1654 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1667 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1682 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1695 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1706 |
COLUMN |
subroutine COLUMN (m,n,np,pa,dt,sabs0,sabs,spre,stem) |
|
./pkg/fizhi/fizhi_lwrad.F |
1731 |
COLUMN |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1735 |
COLUMN |
_RL pa(m,n,np),dt(m,n,np),sabs0(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1739 |
COLUMN |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1742 |
COLUMN |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1751 |
COLUMN |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1763 |
H2OEXPS |
subroutine H2OEXPS(ib,m,n,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
177 |
LWRIO |
do n = 1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
1786 |
H2OEXPS |
integer ib,m,n,np,i,j,k,ik |
|
./pkg/fizhi/fizhi_lwrad.F |
1790 |
H2OEXPS |
_RL dh2o(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1794 |
H2OEXPS |
_RL h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
180 |
LWRIO |
tauc(i,L,n) = tauc(i,L,n)*0.75 |
|
./pkg/fizhi/fizhi_lwrad.F |
1811 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1834 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1845 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1857 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1869 |
H2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
1885 |
CONEXPS |
subroutine CONEXPS(ib,m,n,np,dcont,xke,conexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
188 |
LWRIO |
do n = 1,10 |
|
./pkg/fizhi/fizhi_lwrad.F |
1902 |
CONEXPS |
integer ib,m,n,np,i,j,k,iq |
|
./pkg/fizhi/fizhi_lwrad.F |
1906 |
CONEXPS |
_RL dcont(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1910 |
CONEXPS |
_RL conexp(m,n,np,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1919 |
CONEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
191 |
LWRIO |
taual(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
192 |
LWRIO |
ssaal(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
1934 |
CONEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
193 |
LWRIO |
asyal(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
1947 |
CO2EXPS |
subroutine CO2EXPS(m,n,np,dco2,pa,dt,co2exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
1963 |
CO2EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
1967 |
CO2EXPS |
_RL dco2(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
1971 |
CO2EXPS |
_RL co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1980 |
CO2EXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
200 |
LWRIO |
do n = 1,3 |
|
./pkg/fizhi/fizhi_lwrad.F |
203 |
LWRIO |
cwc(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
2048 |
N2OEXPS |
subroutine N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
204 |
LWRIO |
reff(i,L,n) = 0. |
|
./pkg/fizhi/fizhi_lwrad.F |
2065 |
N2OEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2069 |
N2OEXPS |
_RL dn2o(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2073 |
N2OEXPS |
_RL n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2082 |
N2OEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2124 |
CH4EXPS |
subroutine CH4EXPS(ib,m,n,np,dch4,pa,dt,ch4exp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2141 |
CH4EXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2145 |
CH4EXPS |
_RL dch4(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2149 |
CH4EXPS |
_RL ch4exp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2158 |
CH4EXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2197 |
COMEXPS |
subroutine COMEXPS(ib,m,n,np,dcom,dt,comexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2213 |
COMEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2217 |
COMEXPS |
_RL dcom(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2221 |
COMEXPS |
_RL comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2230 |
COMEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2270 |
CFCEXPS |
subroutine CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) |
|
./pkg/fizhi/fizhi_lwrad.F |
2290 |
CFCEXPS |
integer ib,m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2294 |
CFCEXPS |
_RL dcfc(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2298 |
CFCEXPS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2311 |
CFCEXPS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2331 |
B10EXPS |
subroutine B10EXPS(m,n,np,dh2o,dcont,dco2,dn2o,pa,dt |
|
./pkg/fizhi/fizhi_lwrad.F |
2352 |
B10EXPS |
integer m,n,np,i,j,k |
|
./pkg/fizhi/fizhi_lwrad.F |
2356 |
B10EXPS |
_RL dh2o(m,n,np),dcont(m,n,np),dn2o(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2357 |
B10EXPS |
_RL dco2(m,n,np),pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
2361 |
B10EXPS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2362 |
B10EXPS |
* ,n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2371 |
B10EXPS |
do j=1,n |
|
./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 |
2508 |
TABLUP |
_RL sabs(m,n,np+1),spre(m,n,np+1),stem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2513 |
TABLUP |
_RL tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2522 |
TABLUP |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2579 |
H2OKDIS |
subroutine H2OKDIS(ib,m,n,np,k,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
2611 |
H2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2615 |
H2OKDIS |
_RL conexp(m,n,np,3),h2oexp(m,n,np,6) |
|
./pkg/fizhi/fizhi_lwrad.F |
2621 |
H2OKDIS |
_RL th2o(m,n,6),tcon(m,n,3),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2639 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2652 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2669 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2688 |
H2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2725 |
CO2KDIS |
subroutine CO2KDIS(m,n,np,k,co2exp,tco2,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2745 |
CO2KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2749 |
CO2KDIS |
_RL co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2753 |
CO2KDIS |
_RL tco2(m,n,6,2),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2762 |
CO2KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2813 |
N2OKDIS |
subroutine N2OKDIS(ib,m,n,np,k,n2oexp,tn2o,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2834 |
N2OKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2838 |
N2OKDIS |
_RL n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2842 |
N2OKDIS |
_RL tn2o(m,n,4),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2851 |
N2OKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2890 |
CH4KDIS |
subroutine CH4KDIS(ib,m,n,np,k,ch4exp,tch4,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2911 |
CH4KDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2915 |
CH4KDIS |
_RL ch4exp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
2919 |
CH4KDIS |
_RL tch4(m,n,4),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
2928 |
CH4KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
2964 |
COMKDIS |
subroutine COMKDIS(ib,m,n,np,k,comexp,tcom,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
2985 |
COMKDIS |
integer ib,m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2989 |
COMKDIS |
_RL comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
2993 |
COMKDIS |
_RL tcom(m,n,2),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3002 |
COMKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3033 |
CFCKDIS |
subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran) |
|
./pkg/fizhi/fizhi_lwrad.F |
3053 |
CFCKDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3057 |
CFCKDIS |
_RL cfcexp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
3061 |
CFCKDIS |
_RL tcfc(m,n),tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3065 |
CFCKDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3077 |
B10KDIS |
subroutine B10KDIS(m,n,np,k,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
3109 |
B10KDIS |
integer m,n,np,k,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
3113 |
B10KDIS |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
3114 |
B10KDIS |
* ,n2oexp(m,n,np,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3118 |
B10KDIS |
_RL th2o(m,n,6),tcon(m,n,3),tco2(m,n,6,2),tn2o(m,n,4) |
|
./pkg/fizhi/fizhi_lwrad.F |
3119 |
B10KDIS |
* ,tran(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
3127 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3135 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3160 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3171 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
3199 |
B10KDIS |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
39 |
LWRIO |
integer i,j,l,n,nn |
|
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_lwrad.F |
591 |
IRRAD |
_RL pa(m,n,np),dt(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
592 |
IRRAD |
_RL sh2o(m,n,np+1),swpre(m,n,np+1),swtem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
593 |
IRRAD |
_RL sco3(m,n,np+1),scopre(m,n,np+1),scotem(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
594 |
IRRAD |
_RL dh2o(m,n,np),dcont(m,n,np),dco2(m,n,np),do3(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
595 |
IRRAD |
_RL dn2o(m,n,np),dch4(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
596 |
IRRAD |
_RL df11(m,n,np),df12(m,n,np),df22(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
597 |
IRRAD |
_RL th2o(m,n,6),tcon(m,n,3),tco2(m,n,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
598 |
IRRAD |
_RL tn2o(m,n,4),tch4(m,n,4),tcom(m,n,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
599 |
IRRAD |
_RL tf11(m,n),tf12(m,n),tf22(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
600 |
IRRAD |
_RL h2oexp(m,n,np,6),conexp(m,n,np,3),co2exp(m,n,np,6,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
601 |
IRRAD |
_RL n2oexp(m,n,np,4),ch4exp(m,n,np,4),comexp(m,n,np,2) |
|
./pkg/fizhi/fizhi_lwrad.F |
602 |
IRRAD |
_RL f11exp(m,n,np), f12exp(m,n,np), f22exp(m,n,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
603 |
IRRAD |
_RL clr(m,n,0:np+1),fclr(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
604 |
IRRAD |
_RL blayer(m,n,0:np+1),dlayer(m,n,np+1),dbs(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
605 |
IRRAD |
_RL clrlw(m,n),clrmd(m,n),clrhi(m,n) |
|
./pkg/fizhi/fizhi_lwrad.F |
606 |
IRRAD |
_RL cwp(m,n,np,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
607 |
IRRAD |
_RL trant(m,n),tranal(m,n),transfc(m,n,np+1),trantcr(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
608 |
IRRAD |
_RL flxu(m,n,np+1),flxd(m,n,np+1),flcu(m,n,np+1),flcd(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
609 |
IRRAD |
_RL rflx(m,n,np+1),rflc(m,n,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
872 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
883 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
910 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
937 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dh2o,sh2o,swpre,swtem) |
|
./pkg/fizhi/fizhi_lwrad.F |
947 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
965 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_lwrad.F |
978 |
IRRAD |
do j=1,n |
|
./pkg/fizhi/fizhi_mnc_init.F |
100 |
FIZHI_MNC_INIT |
n = ntot+6+nvch-1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
101 |
FIZHI_MNC_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/fizhi/fizhi_mnc_init.F |
102 |
FIZHI_MNC_INIT |
write(name((n+1):(n+3)), '(a2,a1)') |
|
./pkg/fizhi/fizhi_mnc_init.F |
38 |
FIZHI_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/fizhi/fizhi_mnc_init.F |
88 |
FIZHI_MNC_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/fizhi/fizhi_mnc_init.F |
89 |
FIZHI_MNC_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/fizhi/fizhi_mnc_init.F |
90 |
FIZHI_MNC_INIT |
ntot = n + 1 |
|
./pkg/fizhi/fizhi_mnc_init.F |
92 |
FIZHI_MNC_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/fizhi/fizhi_mnc_init.F |
93 |
FIZHI_MNC_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/fizhi/fizhi_mnc_init.F |
94 |
FIZHI_MNC_INIT |
ntot = ntot + n |
|
./pkg/fizhi/fizhi_moist.F |
1388 |
RNDCLOUD |
integer n,iras,nrnd,myid |
|
./pkg/fizhi/fizhi_moist.F |
1450 |
RNDCLOUD |
do n = 1,nrnd |
|
./pkg/fizhi/fizhi_moist.F |
1451 |
RNDCLOUD |
rnd(n) = random(indx+n) |
|
./pkg/fizhi/fizhi_moist.F |
2407 |
RNEVP |
integer i,L,n,nlaym1,irnlay,irnlm1 |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
130 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
131 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ctmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
138 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
139 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xxmt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
146 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
147 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = yymt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
154 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
155 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = zetamt(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
164 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
165 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = xlmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
175 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
176 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = khmt(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
186 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
187 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tke(n,k,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
197 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
198 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tcanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
206 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
207 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = tdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
215 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
216 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = ecanopy(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
224 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
225 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetshal(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
233 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
234 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetroot(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
242 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
243 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = swetdeep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
251 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
252 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = snodep(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
260 |
FIZHI_WRITE_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
261 |
FIZHI_WRITE_VEGTILES |
r8seg(n) = capac(n,bi,bj) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
320 |
FIZHI_READ_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
391 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
392 |
FIZHI_READ_VEGTILES |
ctmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
399 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
400 |
FIZHI_READ_VEGTILES |
xxmt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
407 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
408 |
FIZHI_READ_VEGTILES |
yymt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
415 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
416 |
FIZHI_READ_VEGTILES |
zetamt(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
426 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
427 |
FIZHI_READ_VEGTILES |
xlmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
437 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
438 |
FIZHI_READ_VEGTILES |
khmt(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
448 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
449 |
FIZHI_READ_VEGTILES |
tke(n,k,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
459 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
460 |
FIZHI_READ_VEGTILES |
tcanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
468 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
469 |
FIZHI_READ_VEGTILES |
tdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
477 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
478 |
FIZHI_READ_VEGTILES |
ecanopy(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
486 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
487 |
FIZHI_READ_VEGTILES |
swetshal(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
48 |
FIZHI_WRITE_VEGTILES |
integer i,k,n |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
495 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
496 |
FIZHI_READ_VEGTILES |
swetroot(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
504 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
505 |
FIZHI_READ_VEGTILES |
swetdeep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
513 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
514 |
FIZHI_READ_VEGTILES |
snodep(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
522 |
FIZHI_READ_VEGTILES |
do n = 1,nchp |
|
./pkg/fizhi/fizhi_readwrite_vegtiles.F |
523 |
FIZHI_READ_VEGTILES |
capac(n,bi,bj) = r8seg(n) |
|
./pkg/fizhi/fizhi_swrad.F |
1003 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1008 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1033 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1042 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1050 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1058 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1079 |
CLDSCALE |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1159 |
SOLIR |
subroutine SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1233 |
SOLIR |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1235 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1237 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1254 |
SOLIR |
_RL ssacl(m,n,np),asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1255 |
SOLIR |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1256 |
SOLIR |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1257 |
SOLIR |
_RL fall(m,n,np+1),fclr(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1258 |
SOLIR |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1262 |
SOLIR |
_RL ssaclt(m,n),asyclt(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1263 |
SOLIR |
_RL rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1264 |
SOLIR |
_RL rr2t(m,n),tt2t(m,n),td2t(m,n),rs2t(m,n),ts2t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1321 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1347 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1374 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1379 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1393 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1467 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1472 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1477 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1482 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1487 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1493 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1498 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1503 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1508 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1513 |
SOLIR |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1524 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1531 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1538 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1542 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1547 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1554 |
SOLIR |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1569 |
SOLUV |
subroutine SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff, |
|
./pkg/fizhi/fizhi_swrad.F |
1655 |
SOLUV |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1657 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1658 |
SOLUV |
_RL oh(m,n,np),dp(m,n,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1659 |
SOLUV |
_RL rsuvbm(m,ndim),rsuvdf(m,ndim),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1678 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1679 |
SOLUV |
_RL td(m,n,np+1,2),rr(m,n,np+1,2),tt(m,n,np+1,2), |
|
./pkg/fizhi/fizhi_swrad.F |
1680 |
SOLUV |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1681 |
SOLUV |
_RL fall(m,n,np+1),fclr(m,n,np+1),fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1682 |
SOLUV |
_RL asyclt(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1683 |
SOLUV |
_RL rr1t(m,n),tt1t(m,n),td1t(m,n),rs1t(m,n),ts1t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1684 |
SOLUV |
_RL rr2t(m,n),tt2t(m,n),td2t(m,n),rs2t(m,n),ts2t(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1719 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1739 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1759 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1767 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1780 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1839 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1844 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1849 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1854 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1859 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1865 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1870 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1875 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1880 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1885 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1896 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1903 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1909 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1913 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1918 |
SOLUV |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
1926 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
1933 |
SOLUV |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2160 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2196 |
CLDFLX |
integer m,n,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
2198 |
CLDFLX |
_RL rr(m,n,np+1,2),tt(m,n,np+1,2),td(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2199 |
CLDFLX |
_RL rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2200 |
CLDFLX |
_RL cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
2205 |
CLDFLX |
_RL rra(m,n,np+1,2,2),tta(m,n,np+1,2,2),tda(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2206 |
CLDFLX |
_RL rsa(m,n,np+1,2,2),rxa(m,n,np+1,2,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2207 |
CLDFLX |
_RL ch(m,n),cm(m,n),ct(m,n),flxdn(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2208 |
CLDFLX |
_RL fdndir(m,n),fdndif(m,n),fupdif |
|
./pkg/fizhi/fizhi_swrad.F |
2213 |
CLDFLX |
_RL fclr(m,n,np+1),fall(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2214 |
CLDFLX |
_RL fsdir(m,n),fsdif(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
2219 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2226 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2247 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2259 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2280 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2305 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2315 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2333 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2354 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2364 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2378 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2388 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2402 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2412 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2423 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2439 |
CLDFLX |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2457 |
CLDFLX |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2469 |
CLDFLX |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
2478 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2488 |
CLDFLX |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
2502 |
FLXCO2 |
subroutine FLXCO2(m,n,np,swc,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
2513 |
FLXCO2 |
integer m,n,np |
|
./pkg/fizhi/fizhi_swrad.F |
2514 |
FLXCO2 |
_RL csm(m,n),swc(m,n,np+1),swh(m,n,np+1),cah(22,19) |
|
./pkg/fizhi/fizhi_swrad.F |
2518 |
FLXCO2 |
_RL df(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
2537 |
FLXCO2 |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
665 |
SORAD |
subroutine SORAD(m,n,ndim,np,pl,ta,wa,oa,co2, |
|
./pkg/fizhi/fizhi_swrad.F |
771 |
SORAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
788 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
789 |
SORAD |
_RL dp(m,n,np),wh(m,n,np),oh(m,n,np),scal(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
790 |
SORAD |
_RL swh(m,n,np+1),so2(m,n,np+1),df(m,n,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
791 |
SORAD |
_RL sdf(m,n),sclr(m,n),csm(m,n),x |
|
./pkg/fizhi/fizhi_swrad.F |
795 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
811 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
848 |
SORAD |
do j=1, n |
|
./pkg/fizhi/fizhi_swrad.F |
859 |
SORAD |
call SOLIR (m,n,ndim,np,wh,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
864 |
SORAD |
call SOLUV (m,n,ndim,np,oh,dp,taucld,tauclb,tauclf,reff,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
871 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
883 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
894 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
904 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
909 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
920 |
SORAD |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
928 |
SORAD |
do j=1,n |
|
./pkg/fizhi/fizhi_swrad.F |
945 |
SORAD |
do j= 1, n |
|
./pkg/fizhi/fizhi_swrad.F |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_turb.F |
1613 |
TRBFLX |
integer i,iter,init,n,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit |
|
./pkg/fizhi/fizhi_turb.F |
268 |
TURBIO |
integer n,nsecf,nmonf,ndayf |
|
./pkg/fizhi/fizhi_turb.F |
269 |
TURBIO |
nsecf(n) = n/10000*3600 + mod(n,10000)/100* 60 + mod(n,100) |
|
./pkg/fizhi/fizhi_turb.F |
270 |
TURBIO |
nmonf(n) = mod(n,10000)/100 |
|
./pkg/fizhi/fizhi_turb.F |
271 |
TURBIO |
ndayf(n) = mod(n,100) |
|
./pkg/fizhi/fizhi_turb.F |
2823 |
SFCFLX |
integer nn,n,irun |
|
./pkg/fizhi/fizhi_turb.F |
3209 |
PHI |
integer n,iflag |
|
./pkg/fizhi/fizhi_turb.F |
327 |
TURBIO |
do n=1,nchptot |
|
./pkg/fizhi/fizhi_turb.F |
328 |
TURBIO |
sum0 = sum0 + tke(n,L) |
|
./pkg/fizhi/fizhi_turb.F |
334 |
TURBIO |
. mpi_comm_world,n) |
|
./pkg/fizhi/fizhi_utils.F |
375 |
VQSAT |
subroutine VQSAT (tt,p,q,dqdt,ldqdt,n) |
|
./pkg/fizhi/fizhi_utils.F |
377 |
VQSAT |
integer i,n |
|
./pkg/fizhi/fizhi_utils.F |
379 |
VQSAT |
_RL tt(n), p(n), q(n), dqdt(n) |
|
./pkg/fizhi/fizhi_utils.F |
385 |
VQSAT |
do i=1,n |
|
./pkg/fizhi/getpwhere.F |
171 |
GETPWHERE |
DO n = 1,numpress |
|
./pkg/fizhi/getpwhere.F |
173 |
GETPWHERE |
IF ( pref(L).GE.pressures(n) ) tmplev = L |
|
./pkg/fizhi/getpwhere.F |
177 |
GETPWHERE |
levpressures(n) = Nrphys+1-tmplev |
|
./pkg/fizhi/getpwhere.F |
49 |
GETPWHERE |
integer n,L,dynlev |
|
./pkg/fizhi/update_earth_exports.F |
41 |
UPDATE_EARTH_EXPORTS |
integer i, j, n, bi, bj |
|
./pkg/fizhi/update_earth_exports.F |
45 |
UPDATE_EARTH_EXPORTS |
nsecf(n) = n/10000*3600 + mod(n,10000)/100* 60 + mod(n,100) |
|
./pkg/fizhi/update_earth_exports.F |
46 |
UPDATE_EARTH_EXPORTS |
nmonf(n) = mod(n,10000)/100 |
|
./pkg/fizhi/update_earth_exports.F |
47 |
UPDATE_EARTH_EXPORTS |
ndayf(n) = mod(n,100) |
|
./pkg/fizhi/update_earth_exports.F |
993 |
GETEMISS |
integer i,j,k,n |
|
./pkg/fizhi/update_earth_exports.F |
996 |
GETEMISS |
do n = 1,nchptot |
|
./pkg/fizhi/update_earth_exports.F |
997 |
GETEMISS |
emisstile(n,i) = 1. |
|
./pkg/fizhi/update_ocean_exports.F |
184 |
GETSICE |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
274 |
GETSICE |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
275 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
278 |
GETSICE |
n = 1 |
|
./pkg/fizhi/update_ocean_exports.F |
279 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
281 |
GETSICE |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
282 |
GETSICE |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
296 |
GETSICE |
do n = 1, ndby3*3,3 |
|
./pkg/fizhi/update_ocean_exports.F |
297 |
GETSICE |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./pkg/fizhi/update_ocean_exports.F |
445 |
GETSST |
integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc |
|
./pkg/fizhi/update_ocean_exports.F |
534 |
GETSST |
do n = 2, ndatebc-1 |
|
./pkg/fizhi/update_ocean_exports.F |
535 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
538 |
GETSST |
n = 1 |
|
./pkg/fizhi/update_ocean_exports.F |
539 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000-1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
541 |
GETSST |
n = ndatebc |
|
./pkg/fizhi/update_ocean_exports.F |
542 |
GETSST |
nymdbc(n) = nymdbc(n) +(nymdmod/10000+1)*10000 |
|
./pkg/fizhi/update_ocean_exports.F |
556 |
GETSST |
do n = 1, ndby3*3,3 |
|
./pkg/fizhi/update_ocean_exports.F |
557 |
GETSST |
write(6,1000) (nn,nymdbc(nn),nhmsbc(nn),nn=n,n+2) |
|
./pkg/generic_advdiff/gad_check.F |
118 |
GAD_CHECK |
& ' (OlMinSize=', (GAD_OlMinSize(n),n=1,3), ')' |
|
./pkg/generic_advdiff/gad_check.F |
38 |
GAD_CHECK |
INTEGER minOlSize, n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
104 |
GAD_DIAGNOSTICS_STATE |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
105 |
GAD_DIAGNOSTICS_STATE |
diagName = 'SM'//somSfx(n)//diagSufx |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
106 |
GAD_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( som_S(1-OLx,1-OLy,1,1,1,n), diagName, |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
45 |
GAD_DIAGNOSTICS_STATE |
INTEGER i,j,k,bi,bj,n |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
59 |
GAD_DIAGNOSTICS_STATE |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
60 |
GAD_DIAGNOSTICS_STATE |
diagName = 'SM'//somSfx(n)//diagSufx |
|
./pkg/generic_advdiff/gad_diagnostics_state.F |
61 |
GAD_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL( som_T(1-OLx,1-OLy,1,1,1,n), diagName, |
|
./pkg/generic_advdiff/gad_init_fixed.F |
37 |
GAD_INIT_FIXED |
INTEGER n |
|
./pkg/generic_advdiff/gad_init_fixed.F |
44 |
GAD_INIT_FIXED |
DO n=1,GAD_Scheme_MaxNum |
|
./pkg/generic_advdiff/gad_init_fixed.F |
45 |
GAD_INIT_FIXED |
GAD_Scheme_olSize(n) = 0 |
|
./pkg/generic_advdiff/gad_init_fixed.F |
85 |
GAD_INIT_FIXED |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_init_fixed.F |
86 |
GAD_INIT_FIXED |
somSfx(n) = ' ' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
87 |
GAD_INIT_FIXED |
IF (n.EQ.1) somSfx(n) = '_x' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
88 |
GAD_INIT_FIXED |
IF (n.EQ.2) somSfx(n) = '_y' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
89 |
GAD_INIT_FIXED |
IF (n.EQ.3) somSfx(n) = '_z' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
90 |
GAD_INIT_FIXED |
IF (n.EQ.4) somSfx(n) = 'xx' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
91 |
GAD_INIT_FIXED |
IF (n.EQ.5) somSfx(n) = 'yy' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
92 |
GAD_INIT_FIXED |
IF (n.EQ.6) somSfx(n) = 'zz' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
93 |
GAD_INIT_FIXED |
IF (n.EQ.7) somSfx(n) = 'xy' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
94 |
GAD_INIT_FIXED |
IF (n.EQ.8) somSfx(n) = 'xz' |
|
./pkg/generic_advdiff/gad_init_fixed.F |
95 |
GAD_INIT_FIXED |
IF (n.EQ.9) somSfx(n) = 'yz' |
|
./pkg/generic_advdiff/gad_init_varia.F |
38 |
GAD_INIT_VARIA |
INTEGER n |
|
./pkg/generic_advdiff/gad_init_varia.F |
44 |
GAD_INIT_VARIA |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_init_varia.F |
49 |
GAD_INIT_VARIA |
som_T(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
51 |
GAD_INIT_VARIA |
som_S(i,j,k,bi,bj,n) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_read_pickup.F |
129 |
GAD_READ_PICKUP |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_read_pickup.F |
130 |
GAD_READ_PICKUP |
iRec = n |
|
./pkg/generic_advdiff/gad_read_pickup.F |
132 |
GAD_READ_PICKUP |
O som_S(1-Olx,1-Oly,1,1,1,n), |
|
./pkg/generic_advdiff/gad_read_pickup.F |
40 |
GAD_READ_PICKUP |
INTEGER n, prec, iRec |
|
./pkg/generic_advdiff/gad_read_pickup.F |
88 |
GAD_READ_PICKUP |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_read_pickup.F |
89 |
GAD_READ_PICKUP |
iRec = n |
|
./pkg/generic_advdiff/gad_read_pickup.F |
91 |
GAD_READ_PICKUP |
O som_T(1-Olx,1-Oly,1,1,1,n), |
|
./pkg/generic_advdiff/gad_som_advect.F |
142 |
GAD_SOM_ADVECT |
INTEGER nCFace, n |
|
./pkg/generic_advdiff/gad_som_advect.F |
195 |
GAD_SOM_ADVECT |
DO n=-1,nSOM |
|
./pkg/generic_advdiff/gad_som_advect.F |
199 |
GAD_SOM_ADVECT |
smCorners(i,j,k,n) = 0. |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
133 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
134 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
144 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
145 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
155 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
156 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
166 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
167 |
GAD_SOM_PREP_CS_CORNER |
smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
186 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
187 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
197 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
198 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
208 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
209 |
GAD_SOM_PREP_CS_CORNER |
smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
219 |
GAD_SOM_PREP_CS_CORNER |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
220 |
GAD_SOM_PREP_CS_CORNER |
smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n) |
|
./pkg/generic_advdiff/gad_som_prep_cs_corner.F |
62 |
GAD_SOM_PREP_CS_CORNER |
INTEGER i,j, jPass, n |
|
./pkg/generic_advdiff/gad_write_pickup.F |
100 |
GAD_WRITE_PICKUP |
iRec = n |
|
./pkg/generic_advdiff/gad_write_pickup.F |
102 |
GAD_WRITE_PICKUP |
I som_S(1-Olx,1-Oly,1,1,1,n), |
|
./pkg/generic_advdiff/gad_write_pickup.F |
51 |
GAD_WRITE_PICKUP |
INTEGER n,prec,iRec,lChar |
|
./pkg/generic_advdiff/gad_write_pickup.F |
82 |
GAD_WRITE_PICKUP |
DO n=1,nSOM |
|
./pkg/generic_advdiff/gad_write_pickup.F |
83 |
GAD_WRITE_PICKUP |
iRec = n |
|
./pkg/generic_advdiff/gad_write_pickup.F |
85 |
GAD_WRITE_PICKUP |
I som_T(1-Olx,1-Oly,1,1,1,n), |
|
./pkg/generic_advdiff/gad_write_pickup.F |
99 |
GAD_WRITE_PICKUP |
DO n=1,nSOM |
|
./pkg/land/land_mnc_init.F |
105 |
LAND_MNC_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/land/land_mnc_init.F |
106 |
LAND_MNC_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/land/land_mnc_init.F |
107 |
LAND_MNC_INIT |
ntot = n + 1 |
|
./pkg/land/land_mnc_init.F |
109 |
LAND_MNC_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/land/land_mnc_init.F |
110 |
LAND_MNC_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/land/land_mnc_init.F |
111 |
LAND_MNC_INIT |
ntot = ntot + n |
|
./pkg/land/land_mnc_init.F |
117 |
LAND_MNC_INIT |
n = ntot+6+nvch-1 |
|
./pkg/land/land_mnc_init.F |
118 |
LAND_MNC_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/land/land_mnc_init.F |
119 |
LAND_MNC_INIT |
write(name((n+1):(n+3)), '(a2,a1)') |
|
./pkg/land/land_mnc_init.F |
57 |
LAND_MNC_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/land/land_monitor.F |
139 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
140 |
LAND_MONITOR |
theVolG = theVolG + theVol(n) |
|
./pkg/land/land_monitor.F |
141 |
LAND_MONITOR |
theMeanG = theMeanG + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
142 |
LAND_MONITOR |
theEng(n)= -land_rhoSnow*land_Lfreez*theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
159 |
LAND_MONITOR |
& theVolG, ' ; Lat sep=', (yBand(n),n=2,nLatBnd) |
|
./pkg/land/land_monitor.F |
162 |
LAND_MONITOR |
& (theVol(n),n=1,nLatBnd) |
|
./pkg/land/land_monitor.F |
175 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
176 |
LAND_MONITOR |
theVolG = theVolG + theVol(n) |
|
./pkg/land/land_monitor.F |
177 |
LAND_MONITOR |
theMeanG = theMeanG + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
203 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
204 |
LAND_MONITOR |
theVolG = theVolG + theVol(n) |
|
./pkg/land/land_monitor.F |
205 |
LAND_MONITOR |
theMeanG = theMeanG + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
231 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
232 |
LAND_MONITOR |
theVolG = theVolG + theVol(n) |
|
./pkg/land/land_monitor.F |
233 |
LAND_MONITOR |
theMeanG = theMeanG + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
261 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
262 |
LAND_MONITOR |
theEng(n) = theEng(n) + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
263 |
LAND_MONITOR |
theEnergy = theEnergy + theEng(n) |
|
./pkg/land/land_monitor.F |
279 |
LAND_MONITOR |
DO n=1,nLatBnd |
|
./pkg/land/land_monitor.F |
280 |
LAND_MONITOR |
theVolG = theVolG + theVol(n) |
|
./pkg/land/land_monitor.F |
281 |
LAND_MONITOR |
theMeanG = theMeanG + theMean(n)*theVol(n) |
|
./pkg/land/land_monitor.F |
69 |
LAND_MONITOR |
INTEGER n, k |
|
./pkg/mnc/mnc_cw_init.F |
101 |
MNC_CW_INIT |
n = ILNBLNK(horz_dat(ihorz)) |
|
./pkg/mnc/mnc_cw_init.F |
102 |
MNC_CW_INIT |
name(1:n) = horz_dat(ihorz)(1:n) |
|
./pkg/mnc/mnc_cw_init.F |
103 |
MNC_CW_INIT |
ntot = n + 1 |
|
./pkg/mnc/mnc_cw_init.F |
105 |
MNC_CW_INIT |
n = ILNBLNK(hsub_dat(ihsub)) |
|
./pkg/mnc/mnc_cw_init.F |
106 |
MNC_CW_INIT |
name((ntot+1):(ntot+n)) = hsub_dat(ihsub)(1:n) |
|
./pkg/mnc/mnc_cw_init.F |
107 |
MNC_CW_INIT |
ntot = ntot + n |
|
./pkg/mnc/mnc_cw_init.F |
113 |
MNC_CW_INIT |
n = ntot+6+nvch-1 |
|
./pkg/mnc/mnc_cw_init.F |
114 |
MNC_CW_INIT |
name((ntot+6):(n)) = vert_dat(ivert)(1:nvch) |
|
./pkg/mnc/mnc_cw_init.F |
115 |
MNC_CW_INIT |
write(name((n+1):(n+3)), '(a2,a1)') |
|
./pkg/mnc/mnc_cw_init.F |
53 |
MNC_CW_INIT |
integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot |
|
./pkg/mnc/mnc_cwrapper.F |
514 |
MNC_CW_ADD_VATTR_ANY |
integer n, nvf,nvl, n1,n2, indv, ic |
|
./pkg/mnc/mnc_cwrapper.F |
534 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(1,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
549 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:MNC_MAX_CHAR) = |
|
./pkg/mnc/mnc_cwrapper.F |
551 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
566 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(1,indv) = n |
|
./pkg/mnc/mnc_cwrapper.F |
568 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(ic:ic) = ' ' |
|
./pkg/mnc/mnc_cwrapper.F |
571 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
577 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(2,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
581 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
582 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_viat(n,indv) = ival |
|
./pkg/mnc/mnc_cwrapper.F |
583 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(2,indv) = n |
|
./pkg/mnc/mnc_cwrapper.F |
588 |
MNC_CW_ADD_VATTR_ANY |
n = mnc_cw_vnat(3,indv) + 1 |
|
./pkg/mnc/mnc_cwrapper.F |
592 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2) |
|
./pkg/mnc/mnc_cwrapper.F |
593 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vdat(n,indv) = dval |
|
./pkg/mnc/mnc_cwrapper.F |
594 |
MNC_CW_ADD_VATTR_ANY |
mnc_cw_vnat(3,indv) = n |
|
./pkg/mnc/mnc_dim.F |
110 |
MNC_DIM_INIT_ALL_CV |
n = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_dim.F |
111 |
MNC_DIM_INIT_ALL_CV |
DO i = 1,n |
|
./pkg/mnc/mnc_dim.F |
163 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,1) = n + 1 |
|
./pkg/mnc/mnc_dim.F |
164 |
MNC_DIM_INIT_ALL_CV |
mnc_f_alld(indf,n+2) = indd |
|
./pkg/mnc/mnc_dim.F |
88 |
MNC_DIM_INIT_ALL_CV |
integer i,j, indf,indd, n,nf, dnf,dnl |
|
./pkg/mnc/mnc_file.F |
100 |
MNC_FILE_OPEN |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
101 |
MNC_FILE_OPEN |
mnc_f_names(indf)(1:n) = fname(1:n) |
|
./pkg/mnc/mnc_file.F |
258 |
MNC_FILE_ADD_ATTR_ANY |
integer n, nf, err, fid, ind, n1, lens |
|
./pkg/mnc/mnc_file.F |
307 |
MNC_FILE_ADD_ATTR_ANY |
n = ILNBLNK(msgbuf) |
|
./pkg/mnc/mnc_file.F |
308 |
MNC_FILE_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgbuf(1:n), mythid) |
|
./pkg/mnc/mnc_file.F |
339 |
MNC_FILE_CLOSE |
integer i,j,k,n, err, fid, indf, nf |
|
./pkg/mnc/mnc_file.F |
362 |
MNC_FILE_CLOSE |
n = mnc_fv_ids(indf,1) |
|
./pkg/mnc/mnc_file.F |
363 |
MNC_FILE_CLOSE |
IF (n .GE. 1) THEN |
|
./pkg/mnc/mnc_file.F |
364 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
374 |
MNC_FILE_CLOSE |
n = mnc_f_alld(indf,1) |
|
./pkg/mnc/mnc_file.F |
376 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
384 |
MNC_FILE_CLOSE |
n = mnc_f_info(indf,3) |
|
./pkg/mnc/mnc_file.F |
385 |
MNC_FILE_CLOSE |
IF (n .GT. 0) THEN |
|
./pkg/mnc/mnc_file.F |
386 |
MNC_FILE_CLOSE |
DO i = 1,n |
|
./pkg/mnc/mnc_file.F |
428 |
MNC_FILE_CLOSE_ALL_MATCHING |
integer i,n |
|
./pkg/mnc/mnc_file.F |
433 |
MNC_FILE_CLOSE_ALL_MATCHING |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
437 |
MNC_FILE_CLOSE_ALL_MATCHING |
IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN |
|
./pkg/mnc/mnc_file.F |
512 |
MNC_FILE_REDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
521 |
MNC_FILE_REDEF |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
523 |
MNC_FILE_REDEF |
& fname(1:n), ''' must be opened first' |
|
./pkg/mnc/mnc_file.F |
565 |
MNC_FILE_ENDDEF |
integer ind, fid, def, err, n |
|
./pkg/mnc/mnc_file.F |
574 |
MNC_FILE_ENDDEF |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
576 |
MNC_FILE_ENDDEF |
& fname(1:n), ''' must be opened first' |
|
./pkg/mnc/mnc_file.F |
62 |
MNC_FILE_OPEN |
integer n, err, fid, nf |
|
./pkg/mnc/mnc_grid.F |
172 |
MNC_GRID_INIT_ALL |
n = ILNBLNK(gname) |
|
./pkg/mnc/mnc_grid.F |
173 |
MNC_GRID_INIT_ALL |
mnc_g_names(indg)(1:n) = gname(1:n) |
|
./pkg/mnc/mnc_grid.F |
179 |
MNC_GRID_INIT_ALL |
n = ILNBLNK(dnames(i)) |
|
./pkg/mnc/mnc_grid.F |
188 |
MNC_GRID_INIT_ALL |
IF ((n .EQ. kk) |
|
./pkg/mnc/mnc_grid.F |
189 |
MNC_GRID_INIT_ALL |
& .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN |
|
./pkg/mnc/mnc_grid.F |
197 |
MNC_GRID_INIT_ALL |
& dnames(i)(1:n), ''' does not exist for file ''', |
|
./pkg/mnc/mnc_grid.F |
241 |
MNC_GRID_GET_DIMIND |
integer i,j,k,l, n,n1, ngrid, ds,de |
|
./pkg/mnc/mnc_grid.F |
248 |
MNC_GRID_GET_DIMIND |
n = ILNBLNK(dname) |
|
./pkg/mnc/mnc_grid.F |
257 |
MNC_GRID_GET_DIMIND |
IF ((n .EQ. n1) |
|
./pkg/mnc/mnc_grid.F |
258 |
MNC_GRID_GET_DIMIND |
& .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN |
|
./pkg/mnc/mnc_grid.F |
72 |
MNC_GRID_INIT_ALL |
integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid |
|
./pkg/mnc/mnc_utils.F |
102 |
MNC_GET_IND |
n = ILNBLNK( aname ) |
|
./pkg/mnc/mnc_utils.F |
103 |
MNC_GET_IND |
IF ( n .LT. 1 ) THEN |
|
./pkg/mnc/mnc_utils.F |
114 |
MNC_GET_IND |
IF ( nf .EQ. n ) THEN |
|
./pkg/mnc/mnc_utils.F |
115 |
MNC_GET_IND |
IF ( name_list(i)(1:n) .EQ. aname(1:n) ) THEN |
|
./pkg/mnc/mnc_utils.F |
152 |
MNC_GET_NEXT_EMPTY_IND |
integer n, i, ind |
|
./pkg/mnc/mnc_utils.F |
161 |
MNC_GET_NEXT_EMPTY_IND |
n = ILNBLNK( name_list(i) ) |
|
./pkg/mnc/mnc_utils.F |
162 |
MNC_GET_NEXT_EMPTY_IND |
IF ( n .EQ. 0 ) THEN |
|
./pkg/mnc/mnc_utils.F |
173 |
MNC_GET_NEXT_EMPTY_IND |
n = ILNBLNK( var_symb ) |
|
./pkg/mnc/mnc_utils.F |
176 |
MNC_GET_NEXT_EMPTY_IND |
& var_symb(1:n), ''' array' |
|
./pkg/mnc/mnc_utils.F |
211 |
MNC_GET_FVINDS |
integer i,j,k, n, lenv |
|
./pkg/mnc/mnc_utils.F |
231 |
MNC_GET_FVINDS |
n = ILNBLNK(mnc_v_names(j)) |
|
./pkg/mnc/mnc_utils.F |
232 |
MNC_GET_FVINDS |
IF ( n.EQ.lenv ) THEN |
|
./pkg/mnc/mnc_utils.F |
233 |
MNC_GET_FVINDS |
IF ( mnc_v_names(j)(1:n).EQ.vname(1:n) ) THEN |
|
./pkg/mnc/mnc_utils.F |
333 |
MNC_PSNCM |
I ival, n ) |
|
./pkg/mnc/mnc_utils.F |
344 |
MNC_PSNCM |
INTEGER ival, n |
|
./pkg/mnc/mnc_utils.F |
363 |
MNC_PSNCM |
IF (nmin .LT. n) nmin = n |
|
./pkg/mnc/mnc_utils.F |
95 |
MNC_GET_IND |
integer n, i, nf, ind, lenm |
|
./pkg/mnc/mnc_var.F |
145 |
MNC_VAR_INIT_ANY |
INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err |
|
./pkg/mnc/mnc_var.F |
188 |
MNC_VAR_INIT_ANY |
n = ILNBLNK(mnc_g_names(k)) |
|
./pkg/mnc/mnc_var.F |
189 |
MNC_VAR_INIT_ANY |
IF ((leng .EQ. n) |
|
./pkg/mnc/mnc_var.F |
190 |
MNC_VAR_INIT_ANY |
& .AND. (mnc_g_names(k)(1:n) .EQ. gname(1:n))) THEN |
|
./pkg/mnc/mnc_var.F |
440 |
MNC_VAR_ADD_ATTR_ANY |
INTEGER n, indf,ind_fv_ids, fid,vid, err |
|
./pkg/mnc/mnc_var.F |
474 |
MNC_VAR_ADD_ATTR_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
475 |
MNC_VAR_ADD_ATTR_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/mnc/mnc_var.F |
680 |
MNC_VAR_WRITE_ANY |
INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de |
|
./pkg/mnc/mnc_var.F |
736 |
MNC_VAR_WRITE_ANY |
n = ILNBLNK(msgBuf) |
|
./pkg/mnc/mnc_var.F |
737 |
MNC_VAR_WRITE_ANY |
CALL PRINT_ERROR(msgBuf(1:n), myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
102 |
MON_STATS_LATBND_RL |
n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
104 |
MON_STATS_LATBND_RL |
IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
105 |
MON_STATS_LATBND_RL |
theMin(n)=tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
106 |
MON_STATS_LATBND_RL |
theMax(n)=tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
107 |
MON_STATS_LATBND_RL |
noPnts(n)=.FALSE. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
110 |
MON_STATS_LATBND_RL |
theMin(n)=MIN(theMin(n),tmpVal) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
111 |
MON_STATS_LATBND_RL |
theMax(n)=MAX(theMax(n),tmpVal) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
114 |
MON_STATS_LATBND_RL |
tileVol (bi,bj,n) = tileVol (bi,bj,n) + tmpVol |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
115 |
MON_STATS_LATBND_RL |
tileMean(bi,bj,n) = tileMean(bi,bj,n) + tmpVol*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
116 |
MON_STATS_LATBND_RL |
tileVar (bi,bj,n) = tileVar (bi,bj,n) + tmpVol*tmpVal*tmpVal |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
124 |
MON_STATS_LATBND_RL |
DO n=1,nSepBnd |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
125 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileVol(1,1,n) , theVol(n) , myThid ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
126 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileMean(1,1,n), theMean(n), myThid ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
127 |
MON_STATS_LATBND_RL |
CALL GLOBAL_SUM_TILE_RL( tileVar(1,1,n) , theVar(n) , myThid ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
130 |
MON_STATS_LATBND_RL |
DO n=1,nSepBnd |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
131 |
MON_STATS_LATBND_RL |
IF (theVol(n).GT.0.) THEN |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
132 |
MON_STATS_LATBND_RL |
theMean(n)= theMean(n)/theVol(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
133 |
MON_STATS_LATBND_RL |
theVar(n) = theVar(n) /theVol(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
134 |
MON_STATS_LATBND_RL |
theVar(n) = theVar(n) -theMean(n)*theMean(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
135 |
MON_STATS_LATBND_RL |
IF ( noPnts(n) ) theMin(n) = theMean(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
136 |
MON_STATS_LATBND_RL |
theMin(n) = -theMin(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
137 |
MON_STATS_LATBND_RL |
_GLOBAL_MAX_RL(theMin(n), myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
138 |
MON_STATS_LATBND_RL |
theMin(n)=-theMin(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
139 |
MON_STATS_LATBND_RL |
IF ( noPnts(n) ) theMax(n) = theMin(n) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
140 |
MON_STATS_LATBND_RL |
_GLOBAL_MAX_RL(theMax(n), myThid) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
168 |
MON_STATS_LATBND_RL |
INTEGER n |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
171 |
MON_STATS_LATBND_RL |
DO n=2,nBnd |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
172 |
MON_STATS_LATBND_RL |
IF (yLoc .GT. yBnd(n)) NLATBND = n |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
51 |
MON_STATS_LATBND_RL |
INTEGER bi,bj,i,j,k,n |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
82 |
MON_STATS_LATBND_RL |
DO n=1,nSepBnd |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
83 |
MON_STATS_LATBND_RL |
noPnts(n)=.TRUE. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
84 |
MON_STATS_LATBND_RL |
theMin(n)=0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
85 |
MON_STATS_LATBND_RL |
theMax(n)=0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
86 |
MON_STATS_LATBND_RL |
theMean(n)=0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
87 |
MON_STATS_LATBND_RL |
theVar(n)=0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
88 |
MON_STATS_LATBND_RL |
theVol(n)=0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
93 |
MON_STATS_LATBND_RL |
DO n=1,nSepBnd |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
94 |
MON_STATS_LATBND_RL |
tileVol (bi,bj,n) = 0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
95 |
MON_STATS_LATBND_RL |
tileMean(bi,bj,n) = 0. |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
96 |
MON_STATS_LATBND_RL |
tileVar (bi,bj,n) = 0. |
|
./pkg/ptracers/ptracers_init_varia.F |
39 |
PTRACERS_INIT_VARIA |
INTEGER n |
|
./pkg/ptracers/ptracers_init_varia.F |
69 |
PTRACERS_INIT_VARIA |
DO n = 1,nSOM |
|
./pkg/ptracers/ptracers_init_varia.F |
73 |
PTRACERS_INIT_VARIA |
_Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0 |
|
./pkg/ptracers/ptracers_read_pickup.F |
280 |
PTRACERS_READ_PICKUP |
DO n=1,nSOM |
|
./pkg/ptracers/ptracers_read_pickup.F |
281 |
PTRACERS_READ_PICKUP |
iRec = n |
|
./pkg/ptracers/ptracers_read_pickup.F |
283 |
PTRACERS_READ_PICKUP |
O _Ptracers_som(:,:,:,:,:,n,iTracer), |
|
./pkg/ptracers/ptracers_read_pickup.F |
60 |
PTRACERS_READ_PICKUP |
INTEGER n |
|
./pkg/ptracers/ptracers_set_iolabel.F |
103 |
PTRACERS_SET_IOLABEL |
n=n+1 |
|
./pkg/ptracers/ptracers_set_iolabel.F |
104 |
PTRACERS_SET_IOLABEL |
IF ( n.LE.nbLbl ) THEN |
|
./pkg/ptracers/ptracers_set_iolabel.F |
105 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(1:1) = c1Set1(j:j) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
106 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set1(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
117 |
PTRACERS_SET_IOLABEL |
n=n+1 |
|
./pkg/ptracers/ptracers_set_iolabel.F |
118 |
PTRACERS_SET_IOLABEL |
IF ( n.LE.nbLbl ) THEN |
|
./pkg/ptracers/ptracers_set_iolabel.F |
119 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(1:1) = c1Set2(j:j) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
120 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set2(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
130 |
PTRACERS_SET_IOLABEL |
n=n+1 |
|
./pkg/ptracers/ptracers_set_iolabel.F |
131 |
PTRACERS_SET_IOLABEL |
IF ( n.LE.nbLbl ) THEN |
|
./pkg/ptracers/ptracers_set_iolabel.F |
132 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(1:1) = c1Set3(j:j) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
133 |
PTRACERS_SET_IOLABEL |
ioLbl(n)(2:2) = c2Set3(i:i) |
|
./pkg/ptracers/ptracers_set_iolabel.F |
75 |
PTRACERS_SET_IOLABEL |
INTEGER i,j,n |
|
./pkg/ptracers/ptracers_set_iolabel.F |
91 |
PTRACERS_SET_IOLABEL |
DO n=1,nbLbl |
|
./pkg/ptracers/ptracers_set_iolabel.F |
92 |
PTRACERS_SET_IOLABEL |
ioLbl(n) = '--' |
|
./pkg/ptracers/ptracers_set_iolabel.F |
95 |
PTRACERS_SET_IOLABEL |
n = 0 |
|
./pkg/ptracers/ptracers_write_pickup.F |
197 |
PTRACERS_WRITE_PICKUP |
DO n=1,nSOM |
|
./pkg/ptracers/ptracers_write_pickup.F |
198 |
PTRACERS_WRITE_PICKUP |
iRec = n |
|
./pkg/ptracers/ptracers_write_pickup.F |
200 |
PTRACERS_WRITE_PICKUP |
I _Ptracers_som(:,:,:,:,:,n,iTracer), |
|
./pkg/ptracers/ptracers_write_pickup.F |
68 |
PTRACERS_WRITE_PICKUP |
INTEGER n, iRec |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
122 |
SHAP_FILT_TRACER_S2 |
IF ( n.LE.nShapComput ) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
153 |
SHAP_FILT_TRACER_S2 |
IF ( n.LE.nShapComput ) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
183 |
SHAP_FILT_TRACER_S2 |
IF ( n.LE.nShapComput ) THEN |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
61 |
SHAP_FILT_TRACER_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
93 |
SHAP_FILT_TRACER_S2 |
DO n=1,nShapTr |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
95 |
SHAP_FILT_TRACER_S2 |
IF ( ( MOD(n,2).EQ.1 .OR. Shap_alwaysExchTr ) .AND. |
|
./pkg/shap_filt/shap_filt_tracer_s2.F |
96 |
SHAP_FILT_TRACER_S2 |
& ( n.GE.2 .OR. MOD(exchInOut,2).EQ.1 ) ) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
104 |
SHAP_FILT_UV_S2 |
DO n=1,nShapUV |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
106 |
SHAP_FILT_UV_S2 |
IF ( MOD(n,2).EQ.1 .OR. Shap_alwaysExchUV ) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
114 |
SHAP_FILT_UV_S2 |
IF ( n.LE.nShapUVPhys .OR. |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
115 |
SHAP_FILT_UV_S2 |
& n.GT.nShapUV-nShapUVPhys ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
119 |
SHAP_FILT_UV_S2 |
IF (n.LE.nShapUVPhys) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
152 |
SHAP_FILT_UV_S2 |
IF (n.GT.nShapUV-nShapUVPhys) THEN |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
67 |
SHAP_FILT_UV_S2 |
INTEGER bi,bj,k,i,j,n |
|
./pkg/sphere/sphere.F |
100 |
ADFSC4DAT |
real adfsc(n) |
|
./pkg/sphere/sphere.F |
105 |
ADFSC4DAT |
call FFTRB(n,adfsc,adfsc) |
|
./pkg/sphere/sphere.F |
107 |
ADFSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
112 |
ADFSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
113 |
ADFSC4DAT |
adfsc(i) = adfsc(i)/float(n) |
|
./pkg/sphere/sphere.F |
466 |
FSC2DAT |
subroutine FSC2DAT(n,fsc) |
|
./pkg/sphere/sphere.F |
472 |
FSC2DAT |
integer n |
|
./pkg/sphere/sphere.F |
473 |
FSC2DAT |
real fsc(n) |
|
./pkg/sphere/sphere.F |
477 |
FSC2DAT |
do i = 2,n-1,2 |
|
./pkg/sphere/sphere.F |
483 |
FSC2DAT |
call FFTRB(n,fsc,fsc) |
|
./pkg/sphere/sphere.F |
485 |
FSC2DAT |
do i = 1,n |
|
./pkg/sphere/sphere.F |
68 |
FSC4DAT |
do i=1,n |
|
./pkg/sphere/sphere.F |
79 |
FSC4DAT |
do i = 2,n-1,2 |
|
./pkg/sphere/sphere.F |
82 |
FSC4DAT |
do i = 3,n,2 |
|
./pkg/sphere/sphere.F |
95 |
ADFSC4DAT |
subroutine ADFSC4DAT(n,adfsc) |
|
./pkg/sphere/sphere.F |
99 |
ADFSC4DAT |
integer n |
|
./pkg/thsice/thsice_diagnostics_init.F |
197 |
THSICE_DIAGNOSTICS_INIT |
DO n=-5,-9,-1 |
|
./pkg/thsice/thsice_diagnostics_init.F |
199 |
THSICE_DIAGNOSTICS_INIT |
IF ( n .EQ. GAD_SI_FRAC ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
202 |
THSICE_DIAGNOSTICS_INIT |
ELSEIF ( n .EQ. GAD_SI_HSNOW ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
205 |
THSICE_DIAGNOSTICS_INIT |
ELSEIF ( n .EQ. GAD_SI_HICE ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
208 |
THSICE_DIAGNOSTICS_INIT |
ELSEIF ( n .EQ. GAD_SI_QICE1 ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
212 |
THSICE_DIAGNOSTICS_INIT |
ELSEIF ( n .EQ. GAD_SI_QICE2 ) THEN |
|
./pkg/thsice/thsice_diagnostics_init.F |
220 |
THSICE_DIAGNOSTICS_INIT |
diagSufx = THSICE_DIAG_SUFX( n, myThid ) |
|
./pkg/thsice/thsice_diagnostics_init.F |
51 |
THSICE_DIAGNOSTICS_INIT |
INTEGER n |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
38 |
FIZHI_INIT_VEGSURFTILES |
integer n,bi,bj |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
43 |
FIZHI_INIT_VEGSURFTILES |
do n = 1,nchp |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
44 |
FIZHI_INIT_VEGSURFTILES |
tcanopy(n,bi,bj) = 300. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
45 |
FIZHI_INIT_VEGSURFTILES |
ecanopy(n,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
46 |
FIZHI_INIT_VEGSURFTILES |
tdeep(n,bi,bj) = 295. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
47 |
FIZHI_INIT_VEGSURFTILES |
swetshal(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
48 |
FIZHI_INIT_VEGSURFTILES |
swetroot(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
49 |
FIZHI_INIT_VEGSURFTILES |
swetdeep(n,bi,bj) = 0.1 |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
50 |
FIZHI_INIT_VEGSURFTILES |
snodep(n,bi,bj) = 0. |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
51 |
FIZHI_INIT_VEGSURFTILES |
capac(n,bi,bj) = 0. |
|
./verification/flt_example/extra/cvprofiles.F |
196 |
NO PROCEDURE |
do n=1,icount |
|
./verification/flt_example/extra/cvprofiles.F |
197 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
198 |
NO PROCEDURE |
ypart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
199 |
NO PROCEDURE |
kpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
201 |
NO PROCEDURE |
if (.not. preflag) uvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
202 |
NO PROCEDURE |
if (.not. preflag) vvel(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
203 |
NO PROCEDURE |
temp(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
204 |
NO PROCEDURE |
if (.not. preflag) salt(m,k,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
206 |
NO PROCEDURE |
zeta(m,n) = spval |
|
./model/src/load_grid_spacing.F |
103 |
LOAD_GRID_SPACING |
n = n+1 |
|
./model/src/load_grid_spacing.F |
110 |
LOAD_GRID_SPACING |
n = n+1 |
|
./model/src/load_grid_spacing.F |
116 |
LOAD_GRID_SPACING |
IF ( n.GE.1 ) THEN |
|
./model/src/load_grid_spacing.F |
118 |
LOAD_GRID_SPACING |
& ' found', n, ' invalid delX values' |
|
./model/src/load_grid_spacing.F |
124 |
LOAD_GRID_SPACING |
n = 0 |
|
./model/src/load_grid_spacing.F |
128 |
LOAD_GRID_SPACING |
n = n+1 |
|
./model/src/load_grid_spacing.F |
135 |
LOAD_GRID_SPACING |
n = n+1 |
|
./model/src/load_grid_spacing.F |
141 |
LOAD_GRID_SPACING |
IF ( n.GE.1 ) THEN |
|
./model/src/load_grid_spacing.F |
143 |
LOAD_GRID_SPACING |
& ' found', n, ' invalid delY values' |
|
./model/src/load_grid_spacing.F |
35 |
LOAD_GRID_SPACING |
INTEGER i, j, n |
|
./model/src/load_grid_spacing.F |
99 |
LOAD_GRID_SPACING |
n = 0 |
|
./model/src/port_rand.F |
101 |
PORT_RANARR |
SUBROUTINE PORT_RANARR(n,arr) |
|
./model/src/port_rand.F |
110 |
PORT_RANARR |
INTEGER n |
|
./model/src/port_rand.F |
111 |
PORT_RANARR |
real*8 arr(n) |
|
./model/src/port_rand.F |
125 |
PORT_RANARR |
DO i=1,n |
|
./pkg/admtlm/admtlm_dsvd.F |
181 |
ADMTLM_DSVD |
integer ido, m, n, nev, ncv, lworkl, info, ierr, |
|
./pkg/admtlm/admtlm_dsvd.F |
268 |
ADMTLM_DSVD |
n = admtlmrec |
|
./pkg/admtlm/admtlm_dsvd.F |
303 |
ADMTLM_DSVD |
if ( n .gt. maxn ) then |
|
./pkg/admtlm/admtlm_dsvd.F |
403 |
ADMTLM_DSVD |
CALL DSAUPD ( ido, bmat, n, which, nev, tol, resid, |
|
./pkg/admtlm/admtlm_dsvd.F |
436 |
ADMTLM_DSVD |
do l = 1, n |
|
./pkg/admtlm/admtlm_dsvd.F |
459 |
ADMTLM_DSVD |
do l = 1, n |
|
./pkg/admtlm/admtlm_dsvd.F |
544 |
ADMTLM_DSVD |
& bmat, n, which, nev, tol, resid, ncv, v, ldv, |
|
./pkg/admtlm/admtlm_dsvd.F |
591 |
ADMTLM_DSVD |
do l = 1, n |
|
./pkg/admtlm/admtlm_dsvd.F |
661 |
ADMTLM_DSVD |
print *, ' Size of the matrix is ', n |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
29 |
ATM_TO_OCN_MAPRUNOFF |
INTEGER n, ijo, ija |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
38 |
ATM_TO_OCN_MAPRUNOFF |
DO n=1,nROmap |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
39 |
ATM_TO_OCN_MAPRUNOFF |
ijo=ijROocn(n) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
40 |
ATM_TO_OCN_MAPRUNOFF |
ija=ijROatm(n) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_maprunoff.F |
42 |
ATM_TO_OCN_MAPRUNOFF |
& -fld_atm(ija)*arROmap(n) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
13 |
MDS_BYTESWAPR4 |
SUBROUTINE MDS_BYTESWAPR4( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
23 |
MDS_BYTESWAPR4 |
INTEGER n |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
32 |
MDS_BYTESWAPR4 |
do i=1,4*n,4 |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
47 |
MDS_BYTESWAPR8 |
SUBROUTINE MDS_BYTESWAPR8( n, arr ) |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
57 |
MDS_BYTESWAPR8 |
INTEGER n |
|
./pkg/atm_ocn_coupler/mds_byteswap.F |
66 |
MDS_BYTESWAPR8 |
do i=1,8*n,8 |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
101 |
SET_RUNOFFMAP |
n=1 |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
103 |
SET_RUNOFFMAP |
& n,ijROatm(n),ijROocn(n),arROmap(n) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
104 |
SET_RUNOFFMAP |
n=nROmap |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
106 |
SET_RUNOFFMAP |
& n,ijROatm(n),ijROocn(n),arROmap(n) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
23 |
SET_RUNOFFMAP |
INTEGER n, ijo, ija |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
29 |
SET_RUNOFFMAP |
DO n=1,ROsize |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
30 |
SET_RUNOFFMAP |
ijROocn(n)=0 |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
31 |
SET_RUNOFFMAP |
ijROatm(n)=0 |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
32 |
SET_RUNOFFMAP |
arROmap(n)=0. |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
49 |
SET_RUNOFFMAP |
DO n=1,LEN( runoffmapFile ) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
50 |
SET_RUNOFFMAP |
IF ( runoffmapFile(n:n).NE.' ' ) lengthName=n |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
65 |
SET_RUNOFFMAP |
DO n=1,nROmap |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
66 |
SET_RUNOFFMAP |
iRec = n |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
68 |
SET_RUNOFFMAP |
tmpfld(1,n)=r8seg(1) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
69 |
SET_RUNOFFMAP |
tmpfld(2,n)=r8seg(2) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
70 |
SET_RUNOFFMAP |
tmpfld(3,n)=r8seg(3) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
83 |
SET_RUNOFFMAP |
DO n=1,nROmap |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
84 |
SET_RUNOFFMAP |
ija=NINT(tmpfld(1,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
85 |
SET_RUNOFFMAP |
ijo=NINT(tmpfld(2,n)) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
90 |
SET_RUNOFFMAP |
ijROatm(n)=ija |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
95 |
SET_RUNOFFMAP |
arROmap(n)=tmpfld(3,n)/rAc(ijo) |
|
./pkg/atm_ocn_coupler/set_runoffmap.F |
97 |
SET_RUNOFFMAP |
ijROocn(n)=ijo |
|
./eesupp/src/mds_byteswapi4.F |
19 |
MDS_BYTESWAPI4 |
integer n |
|
./eesupp/src/mds_byteswapi4.F |
20 |
MDS_BYTESWAPI4 |
integer(kind=4) arr(n), i32 |
|
./eesupp/src/mds_byteswapi4.F |
29 |
MDS_BYTESWAPI4 |
do i = 1,n |
|
./eesupp/src/mds_byteswapi4.F |
36 |
MDS_BYTESWAPI4 |
integer n |
|
./eesupp/src/mds_byteswapi4.F |
43 |
MDS_BYTESWAPI4 |
do i=1,4*n,4 |
|
./eesupp/src/mds_byteswapi4.F |
6 |
MDS_BYTESWAPI4 |
subroutine MDS_BYTESWAPI4( n, arr ) |
|
./eesupp/src/mds_byteswapr4.F |
19 |
MDS_BYTESWAPR4 |
integer n |
|
./eesupp/src/mds_byteswapr4.F |
20 |
MDS_BYTESWAPR4 |
integer(kind=4) arr(n), i32 |
|
./eesupp/src/mds_byteswapr4.F |
29 |
MDS_BYTESWAPR4 |
do i = 1,n |
|
./eesupp/src/mds_byteswapr4.F |
36 |
MDS_BYTESWAPR4 |
integer n |
|
./eesupp/src/mds_byteswapr4.F |
43 |
MDS_BYTESWAPR4 |
do i=1,4*n,4 |
|
./eesupp/src/mds_byteswapr4.F |
6 |
MDS_BYTESWAPR4 |
subroutine MDS_BYTESWAPR4( n, arr ) |
|
./eesupp/src/mds_byteswapr8.F |
19 |
MDS_BYTESWAPR8 |
integer n |
|
./eesupp/src/mds_byteswapr8.F |
20 |
MDS_BYTESWAPR8 |
integer(kind=8) arr(n),i64,i1 |
|
./eesupp/src/mds_byteswapr8.F |
33 |
MDS_BYTESWAPR8 |
do i=1,n |
|
./eesupp/src/mds_byteswapr8.F |
40 |
MDS_BYTESWAPR8 |
integer n |
|
./eesupp/src/mds_byteswapr8.F |
47 |
MDS_BYTESWAPR8 |
do i=1,8*n,8 |
|
./eesupp/src/mds_byteswapr8.F |
6 |
MDS_BYTESWAPR8 |
subroutine MDS_BYTESWAPR8( n, arr ) |
|
./eesupp/src/nml_change_syntax.F |
165 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
166 |
NML_CHANGE_SYNTAX |
IF ( n.LT.ICHAR('0') .OR. n.GT.ICHAR('9') ) hasNum1 = .FALSE. |
|
./eesupp/src/nml_change_syntax.F |
183 |
NML_CHANGE_SYNTAX |
n = ICHAR(record(i:i)) |
|
./eesupp/src/nml_change_syntax.F |
184 |
NML_CHANGE_SYNTAX |
IF ( n.LT.ICHAR('0') .OR. n.GT.ICHAR('9') ) hasNum2 = .FALSE. |
|
./eesupp/src/nml_change_syntax.F |
66 |
NML_CHANGE_SYNTAX |
INTEGER i, n, ii |
|
./pkg/chronos/chronos.F |
140 |
GET_ALARM |
integer myid,n,nalarm,nsecf |
|
./pkg/chronos/chronos.F |
149 |
GET_ALARM |
do n=1,ntags |
|
./pkg/chronos/chronos.F |
150 |
GET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/chronos/chronos.F |
151 |
GET_ALARM |
freq = freqs(n) |
|
./pkg/chronos/chronos.F |
152 |
GET_ALARM |
date = dates(n) |
|
./pkg/chronos/chronos.F |
153 |
GET_ALARM |
time = times(n) |
|
./pkg/chronos/chronos.F |
184 |
GET_ALARM |
integer n,modalarm,nalarm,freq,date0,time0 |
|
./pkg/chronos/chronos.F |
190 |
GET_ALARM |
do n=1,ntags |
|
./pkg/chronos/chronos.F |
191 |
GET_ALARM |
if( tags(n).eq.tag ) then |
|
./pkg/chronos/chronos.F |
192 |
GET_ALARM |
if( freqs(n).eq.0 ) then |
|
./pkg/chronos/chronos.F |
193 |
GET_ALARM |
alarm = (dates(n).eq.date) .and. (times(n).eq.time) |
|
./pkg/chronos/chronos.F |
195 |
GET_ALARM |
alarm = ( date.gt.dates(n) .or. |
|
./pkg/chronos/chronos.F |
196 |
GET_ALARM |
. (date.eq.dates(n) .and. time.ge.times(n)) ) .and. |
|
./pkg/chronos/chronos.F |
197 |
GET_ALARM |
. modalarm( freqs(n),dates(n),times(n) ).eq.0 |
|
./pkg/chronos/chronos.F |
44 |
SET_ALARM |
integer n |
|
./pkg/chronos/chronos.F |
61 |
SET_ALARM |
do n=1,ntags |
|
./pkg/chronos/chronos.F |
62 |
SET_ALARM |
if(tag.eq.tags(n)) then |
|
./pkg/chronos/chronos.F |
66 |
SET_ALARM |
print *, 'Frequency: ',freqs(n),' (Old) ',freq,' (New)' |
|
./pkg/chronos/chronos.F |
67 |
SET_ALARM |
print *, ' Date0: ',dates(n),' (Old) ',date,' (New)' |
|
./pkg/chronos/chronos.F |
68 |
SET_ALARM |
print *, ' Time0: ',times(n),' (Old) ',time,' (New)' |
|
./pkg/chronos/chronos.F |
70 |
SET_ALARM |
freqs(n) = freq |
|
./pkg/chronos/chronos.F |
71 |
SET_ALARM |
dates(n) = date |
|
./pkg/chronos/chronos.F |
72 |
SET_ALARM |
times(n) = time |
|
./pkg/chronos/chronos.F |
873 |
TIME_BOUND |
integer nmonf,ndayf,n |
|
./pkg/compon_communic/couprecv_r4.F |
23 |
COUPRECV_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r4.F |
43 |
COUPRECV_R4 |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r4.F |
48 |
COUPRECV_R4 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r4.F |
49 |
COUPRECV_R4 |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/couprecv_r4.F |
52 |
COUPRECV_R4 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/couprecv_r4tiles.F |
23 |
COUPRECV_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
43 |
COUPRECV_R4TILES |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r4tiles.F |
46 |
COUPRECV_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
52 |
COUPRECV_R4TILES |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
57 |
COUPRECV_R4TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r4tiles.F |
87 |
COUPRECV_R4TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
89 |
COUPRECV_R4TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
91 |
COUPRECV_R4TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r4tiles.F |
93 |
COUPRECV_R4TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8.F |
23 |
COUPRECV_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/couprecv_r8.F |
43 |
COUPRECV_R8 |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r8.F |
48 |
COUPRECV_R8 |
tag=generate_tag(102,n,dataname) |
|
./pkg/compon_communic/couprecv_r8.F |
49 |
COUPRECV_R8 |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/couprecv_r8.F |
52 |
COUPRECV_R8 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/couprecv_r8tiles.F |
23 |
COUPRECV_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
43 |
COUPRECV_R8TILES |
do n=1,numprocs |
|
./pkg/compon_communic/couprecv_r8tiles.F |
46 |
COUPRECV_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
52 |
COUPRECV_R8TILES |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
57 |
COUPRECV_R8TILES |
& ' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/couprecv_r8tiles.F |
87 |
COUPRECV_R8TILES |
if (Io.ne.component_tile_i0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
89 |
COUPRECV_R8TILES |
if (Jo.ne.component_tile_j0(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
91 |
COUPRECV_R8TILES |
if (Ni.ne.component_tile_nx(bibj,n,compind)) |
|
./pkg/compon_communic/couprecv_r8tiles.F |
93 |
COUPRECV_R8TILES |
if (Nj.ne.component_tile_ny(bibj,n,compind)) |
|
./pkg/compon_communic/coupsend_r4.F |
22 |
COUPSEND_R4 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r4.F |
41 |
COUPSEND_R4 |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r4.F |
44 |
COUPSEND_R4 |
Io=component_tile_i0(1,n,compind) |
|
./pkg/compon_communic/coupsend_r4.F |
45 |
COUPSEND_R4 |
Jo=component_tile_j0(1,n,compind) |
|
./pkg/compon_communic/coupsend_r4.F |
46 |
COUPSEND_R4 |
Ni=component_tile_nx(1,n,compind) |
|
./pkg/compon_communic/coupsend_r4.F |
47 |
COUPSEND_R4 |
Nj=component_tile_ny(1,n,compind) |
|
./pkg/compon_communic/coupsend_r4.F |
65 |
COUPSEND_R4 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r4.F |
66 |
COUPSEND_R4 |
dest=rank_component_procs(n,compind) |
|
./pkg/compon_communic/coupsend_r4.F |
70 |
COUPSEND_R4 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/coupsend_r4tiles.F |
22 |
COUPSEND_R4TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r4tiles.F |
41 |
COUPSEND_R4TILES |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r4tiles.F |
44 |
COUPSEND_R4TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
47 |
COUPSEND_R4TILES |
Io=component_tile_i0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
48 |
COUPSEND_R4TILES |
Jo=component_tile_j0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
49 |
COUPSEND_R4TILES |
Ni=component_tile_nx(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
50 |
COUPSEND_R4TILES |
Nj=component_tile_ny(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
69 |
COUPSEND_R4TILES |
dest=rank_component_procs(n,compind) |
|
./pkg/compon_communic/coupsend_r4tiles.F |
73 |
COUPSEND_R4TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/coupsend_r8.F |
22 |
COUPSEND_R8 |
integer i,j,ij,n |
|
./pkg/compon_communic/coupsend_r8.F |
41 |
COUPSEND_R8 |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r8.F |
44 |
COUPSEND_R8 |
Io=component_tile_i0(1,n,compind) |
|
./pkg/compon_communic/coupsend_r8.F |
45 |
COUPSEND_R8 |
Jo=component_tile_j0(1,n,compind) |
|
./pkg/compon_communic/coupsend_r8.F |
46 |
COUPSEND_R8 |
Ni=component_tile_nx(1,n,compind) |
|
./pkg/compon_communic/coupsend_r8.F |
47 |
COUPSEND_R8 |
Nj=component_tile_ny(1,n,compind) |
|
./pkg/compon_communic/coupsend_r8.F |
65 |
COUPSEND_R8 |
tag=generate_tag(121,n,dataname) |
|
./pkg/compon_communic/coupsend_r8.F |
66 |
COUPSEND_R8 |
dest=rank_component_procs(n,compind) |
|
./pkg/compon_communic/coupsend_r8.F |
70 |
COUPSEND_R8 |
& ' proc=',n,'/',numprocs |
|
./pkg/compon_communic/coupsend_r8tiles.F |
22 |
COUPSEND_R8TILES |
integer i,j,ij,n,bibj |
|
./pkg/compon_communic/coupsend_r8tiles.F |
41 |
COUPSEND_R8TILES |
do n=1,numprocs |
|
./pkg/compon_communic/coupsend_r8tiles.F |
44 |
COUPSEND_R8TILES |
do bibj=1,component_num_tiles(n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
47 |
COUPSEND_R8TILES |
Io=component_tile_i0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
48 |
COUPSEND_R8TILES |
Jo=component_tile_j0(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
49 |
COUPSEND_R8TILES |
Ni=component_tile_nx(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
50 |
COUPSEND_R8TILES |
Nj=component_tile_ny(bibj,n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
69 |
COUPSEND_R8TILES |
dest=rank_component_procs(n,compind) |
|
./pkg/compon_communic/coupsend_r8tiles.F |
73 |
COUPSEND_R8TILES |
& dest,' proc=',n,'/',numprocs,' tile=',bibj |
|
./pkg/compon_communic/mitcomponent_init.F |
23 |
MITCOMPONENT_INIT |
integer n,j |
|
./pkg/compon_communic/mitcoupler_init.F |
23 |
MITCOUPLER_INIT |
integer n,j |
|
./pkg/compon_communic/mitcoupler_register.F |
100 |
MITCOUPLER_REGISTER |
component_tile_j0(1,n,compind)=j0 |
|
./pkg/compon_communic/mitcoupler_register.F |
104 |
MITCOUPLER_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/mitcoupler_register.F |
105 |
MITCOUPLER_REGISTER |
write(LogUnit,*) 'MITCOUPLER_register: proc,nx,ny = ',n, |
|
./pkg/compon_communic/mitcoupler_register.F |
106 |
MITCOUPLER_REGISTER |
& component_tile_nx(1,n,compind),component_tile_ny(1,n,compind) |
|
./pkg/compon_communic/mitcoupler_register.F |
23 |
MITCOUPLER_REGISTER |
integer n,numprocs |
|
./pkg/compon_communic/mitcoupler_register.F |
43 |
MITCOUPLER_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/mitcoupler_register.F |
48 |
MITCOUPLER_REGISTER |
tag=generate_tag(115,n,'Register') |
|
./pkg/compon_communic/mitcoupler_register.F |
49 |
MITCOUPLER_REGISTER |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/mitcoupler_register.F |
96 |
MITCOUPLER_REGISTER |
component_num_tiles(n,compind)=1 |
|
./pkg/compon_communic/mitcoupler_register.F |
97 |
MITCOUPLER_REGISTER |
component_tile_nx(1,n,compind)=nx |
|
./pkg/compon_communic/mitcoupler_register.F |
98 |
MITCOUPLER_REGISTER |
component_tile_ny(1,n,compind)=ny |
|
./pkg/compon_communic/mitcoupler_register.F |
99 |
MITCOUPLER_REGISTER |
component_tile_i0(1,n,compind)=i0 |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
23 |
MITCOUPLER_TILE_REGISTER |
integer n,numprocs |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
43 |
MITCOUPLER_TILE_REGISTER |
do n=1,numprocs |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
48 |
MITCOUPLER_TILE_REGISTER |
tag=generate_tag(112,n,'Register Tiles') |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
49 |
MITCOUPLER_TILE_REGISTER |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
65 |
MITCOUPLER_TILE_REGISTER |
component_num_tiles(n,compind)=numtiles |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
73 |
MITCOUPLER_TILE_REGISTER |
rank=rank_component_procs(n,compind) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
84 |
MITCOUPLER_TILE_REGISTER |
component_tile_nx(j,n,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
85 |
MITCOUPLER_TILE_REGISTER |
component_tile_ny(j,n,compind)=ibuf(2) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
86 |
MITCOUPLER_TILE_REGISTER |
component_tile_i0(j,n,compind)=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
87 |
MITCOUPLER_TILE_REGISTER |
component_tile_j0(j,n,compind)=ibuf(4) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
92 |
MITCOUPLER_TILE_REGISTER |
& ' proc,tile,nx,ny,i0,j0 = ',n,j,ibuf(1),ibuf(2),ibuf(3),ibuf(4) |
|
./pkg/compon_communic/mitcplr_init1.F |
109 |
MITCPLR_INIT1 |
do n=1,num_components |
|
./pkg/compon_communic/mitcplr_init1.F |
111 |
MITCPLR_INIT1 |
& ' component=',component_Name(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
112 |
MITCPLR_INIT1 |
& ( rank_component_procs(j,n),j=1,num_component_procs(n) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
114 |
MITCPLR_INIT1 |
& ' comp+cplr=',component_Name(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
115 |
MITCPLR_INIT1 |
& ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
128 |
MITCPLR_INIT1 |
do n=1,num_components |
|
./pkg/compon_communic/mitcplr_init1.F |
133 |
MITCPLR_INIT1 |
& num_component_procs(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
134 |
MITCPLR_INIT1 |
& rank_component_procs(1,n), |
|
./pkg/compon_communic/mitcplr_init1.F |
145 |
MITCPLR_INIT1 |
& MPI_COMM_component(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
148 |
MITCPLR_INIT1 |
& ' MPI_Comm_create MPI_COMM_component=',MPI_COMM_component(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
154 |
MITCPLR_INIT1 |
& num_compcplr_procs(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
155 |
MITCPLR_INIT1 |
& rank_compcplr_procs(1,n), |
|
./pkg/compon_communic/mitcplr_init1.F |
166 |
MITCPLR_INIT1 |
& MPI_COMM_compcplr(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
169 |
MITCPLR_INIT1 |
& ' MPI_Comm_create MPI_COMM_compcplr=',MPI_COMM_compcplr(n), |
|
./pkg/compon_communic/mitcplr_init1.F |
194 |
MITCPLR_INIT1 |
do n=1,num_components |
|
./pkg/compon_communic/mitcplr_init1.F |
196 |
MITCPLR_INIT1 |
call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
200 |
MITCPLR_INIT1 |
call MPI_COMM_SIZE( MPI_COMM_compcplr(n), numprocs, ierr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
205 |
MITCPLR_INIT1 |
& ' in Component =',n |
|
./pkg/compon_communic/mitcplr_init1.F |
24 |
MITCPLR_INIT1 |
integer n,j |
|
./pkg/compon_communic/mitcplr_init1.F |
53 |
MITCPLR_INIT1 |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcplr_init1.F |
66 |
MITCPLR_INIT1 |
& n, |
|
./pkg/compon_communic/mitcplr_init2a.F |
15 |
MITCPLR_INIT2A |
integer n,j,lenbuf |
|
./pkg/compon_communic/mitcplr_init2a.F |
35 |
MITCPLR_INIT2A |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcplr_init2a.F |
51 |
MITCPLR_INIT2A |
& n, |
|
./pkg/compon_communic/mitcplr_init2a.F |
76 |
MITCPLR_INIT2A |
call MPI_COMM_RANK( MPI_COMM_World, n, ierr ) |
|
./pkg/compon_communic/mitcplr_init2a.F |
86 |
MITCPLR_INIT2A |
my_rank_in_world=n |
|
./pkg/compon_communic/mitcplr_init2b.F |
16 |
MITCPLR_INIT2B |
integer n,j,lenbuf,compind |
|
./pkg/compon_communic/mitcplr_init2b.F |
43 |
MITCPLR_INIT2B |
do n=0,numprocs-1 |
|
./pkg/compon_communic/mitcplr_init2b.F |
59 |
MITCPLR_INIT2B |
& n, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
189 |
DIAG_VEGTILE_FILL |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diag_vegtile_fill.F |
190 |
DIAG_VEGTILE_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
191 |
DIAG_VEGTILE_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
192 |
DIAG_VEGTILE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
194 |
DIAG_VEGTILE_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
197 |
DIAG_VEGTILE_FILL |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
58 |
DIAG_VEGTILE_FILL |
INTEGER m, n |
|
./pkg/diagnostics/diag_vegtile_fill.F |
88 |
DIAG_VEGTILE_FILL |
DO n=1,nlists |
|
./pkg/diagnostics/diag_vegtile_fill.F |
89 |
DIAG_VEGTILE_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
90 |
DIAG_VEGTILE_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
91 |
DIAG_VEGTILE_FILL |
ndiagnum = jdiag(m,n) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
92 |
DIAG_VEGTILE_FILL |
ipointer = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
101 |
DIAGNOSTICS_ADDTOLIST |
& 'change parser="',gdiag(n),'" & mate=',hdiag(n) |
|
./pkg/diagnostics/diagnostics_addtolist.F |
54 |
DIAGNOSTICS_ADDTOLIST |
INTEGER n |
|
./pkg/diagnostics/diagnostics_addtolist.F |
80 |
DIAGNOSTICS_ADDTOLIST |
DO n=1,ndiagt |
|
./pkg/diagnostics/diagnostics_addtolist.F |
81 |
DIAGNOSTICS_ADDTOLIST |
IF ( cdiag(n).EQ.diagName ) THEN |
|
./pkg/diagnostics/diagnostics_addtolist.F |
82 |
DIAGNOSTICS_ADDTOLIST |
diagNum = n |
|
./pkg/diagnostics/diagnostics_addtolist.F |
83 |
DIAGNOSTICS_ADDTOLIST |
IF ( gdiag(n).EQ.diagCode .AND. hdiag(n).EQ.diagMate ) THEN |
|
./pkg/diagnostics/diagnostics_addtolist.F |
86 |
DIAGNOSTICS_ADDTOLIST |
& diagName,' is already defined (# ',n,' )' |
|
./pkg/diagnostics/diagnostics_addtolist.F |
98 |
DIAGNOSTICS_ADDTOLIST |
& diagName,' is already defined (# ',n,' )' |
|
./pkg/diagnostics/diagnostics_fill.F |
110 |
DIAGNOSTICS_FILL |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_fill.F |
111 |
DIAGNOSTICS_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fill.F |
112 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
113 |
DIAGNOSTICS_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
115 |
DIAGNOSTICS_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
118 |
DIAGNOSTICS_FILL |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
65 |
DIAGNOSTICS_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill.F |
86 |
DIAGNOSTICS_FILL |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_fill.F |
87 |
DIAGNOSTICS_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fill.F |
88 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
89 |
DIAGNOSTICS_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
91 |
DIAGNOSTICS_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
92 |
DIAGNOSTICS_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
110 |
DIAGNOSTICS_FILL_RS |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
111 |
DIAGNOSTICS_FILL_RS |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
112 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
113 |
DIAGNOSTICS_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
115 |
DIAGNOSTICS_FILL_RS |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
118 |
DIAGNOSTICS_FILL_RS |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
65 |
DIAGNOSTICS_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
86 |
DIAGNOSTICS_FILL_RS |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
87 |
DIAGNOSTICS_FILL_RS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
88 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
89 |
DIAGNOSTICS_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
91 |
DIAGNOSTICS_FILL_RS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
92 |
DIAGNOSTICS_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
100 |
DIAGNOSTICS_FRACT_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
101 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
102 |
DIAGNOSTICS_FRACT_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
104 |
DIAGNOSTICS_FRACT_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
105 |
DIAGNOSTICS_FRACT_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
IF ( mdiag(m,n).EQ.0 ) mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
139 |
DIAGNOSTICS_FRACT_FILL |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
140 |
DIAGNOSTICS_FRACT_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
141 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
142 |
DIAGNOSTICS_FRACT_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
144 |
DIAGNOSTICS_FRACT_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
150 |
DIAGNOSTICS_FRACT_FILL |
IF ( mSdiag(m,n).EQ.0 ) mate = 0 |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
164 |
DIAGNOSTICS_FRACT_FILL |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
78 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
99 |
DIAGNOSTICS_FRACT_FILL |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_init_early.F |
68 |
DIAGNOSTICS_INIT_EARLY |
INTEGER n |
|
./pkg/diagnostics/diagnostics_init_early.F |
74 |
DIAGNOSTICS_INIT_EARLY |
DO n=1,ndiagMax |
|
./pkg/diagnostics/diagnostics_init_early.F |
75 |
DIAGNOSTICS_INIT_EARLY |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_init_early.F |
76 |
DIAGNOSTICS_INIT_EARLY |
hdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_init_early.F |
77 |
DIAGNOSTICS_INIT_EARLY |
cdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
78 |
DIAGNOSTICS_INIT_EARLY |
gdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
79 |
DIAGNOSTICS_INIT_EARLY |
udiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_init_early.F |
80 |
DIAGNOSTICS_INIT_EARLY |
tdiag(n) = ' ' |
|
./pkg/diagnostics/diagnostics_is_on.F |
35 |
NO PROCEDURE |
INTEGER n,m |
|
./pkg/diagnostics/diagnostics_is_on.F |
44 |
NO PROCEDURE |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_is_on.F |
45 |
NO PROCEDURE |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_is_on.F |
46 |
NO PROCEDURE |
IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
47 |
NO PROCEDURE |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_is_on.F |
55 |
NO PROCEDURE |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_is_on.F |
56 |
NO PROCEDURE |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_is_on.F |
57 |
NO PROCEDURE |
IF ( diagName.EQ.diagSt_Flds(m,n) |
|
./pkg/diagnostics/diagnostics_is_on.F |
58 |
NO PROCEDURE |
& .AND.iSdiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_is_on.F |
59 |
NO PROCEDURE |
iSp = ABS(iSdiag(m,n)) |
|
./lsopt/dostore.F |
19 |
DOSTORE |
do i = 1, n |
|
./lsopt/dostore.F |
1 |
DOSTORE |
subroutine DOSTORE( n, x, store, j ) |
|
./lsopt/dostore.F |
25 |
DOSTORE |
do i = 1, n |
|
./lsopt/dostore.F |
5 |
DOSTORE |
integer n, i, j |
|
./lsopt/dostore.F |
6 |
DOSTORE |
double precision x(n) |
|
./lsopt/dostore.F |
7 |
DOSTORE |
real*4 tmpx(n) |
|
./pkg/diagnostics/diagnostics_list_check.F |
50 |
DIAGNOSTICS_LIST_CHECK |
INTEGER n,m,m1,i |
|
./pkg/diagnostics/diagnostics_list_check.F |
58 |
DIAGNOSTICS_LIST_CHECK |
DO n = ld,nbLists |
|
./pkg/diagnostics/diagnostics_list_check.F |
59 |
DIAGNOSTICS_LIST_CHECK |
DO m = m1,nbFlds(n) |
|
./pkg/diagnostics/diagnostics_list_check.F |
61 |
DIAGNOSTICS_LIST_CHECK |
diagName = fldsList(m,n) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
152 |
DIAGNOSTICS_READ_PICKUP |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
153 |
DIAGNOSTICS_READ_PICKUP |
DO m = 1,nfields(n) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(jdiag(m,n),1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
161 |
DIAGNOSTICS_READ_PICKUP |
DO n=1,ndiagt |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
162 |
DIAGNOSTICS_READ_PICKUP |
ndiag(n,bi,bj) = ndiag(n,1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, n, m |
|
./pkg/diagnostics/diagnostics_readparms.F |
184 |
DIAGNOSTICS_READPARMS |
DO n = 1,numlists |
|
./pkg/diagnostics/diagnostics_readparms.F |
185 |
DIAGNOSTICS_READPARMS |
freq(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
186 |
DIAGNOSTICS_READPARMS |
phase(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
187 |
DIAGNOSTICS_READPARMS |
averageFreq(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
188 |
DIAGNOSTICS_READPARMS |
averagePhase(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
189 |
DIAGNOSTICS_READPARMS |
averageCycle(n) = 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
190 |
DIAGNOSTICS_READPARMS |
nlevels(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
191 |
DIAGNOSTICS_READPARMS |
nfields(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
192 |
DIAGNOSTICS_READPARMS |
fnames(n) = blkFilName |
|
./pkg/diagnostics/diagnostics_readparms.F |
193 |
DIAGNOSTICS_READPARMS |
misvalFlt(n) = UNSET_RL |
|
./pkg/diagnostics/diagnostics_readparms.F |
194 |
DIAGNOSTICS_READPARMS |
misvalInt(n) = UNSET_I |
|
./pkg/diagnostics/diagnostics_readparms.F |
196 |
DIAGNOSTICS_READPARMS |
levs(k,n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
199 |
DIAGNOSTICS_READPARMS |
flds(m,n) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
201 |
DIAGNOSTICS_READPARMS |
fflags(n) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
227 |
DIAGNOSTICS_READPARMS |
n = nlists + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
228 |
DIAGNOSTICS_READPARMS |
freq(n) = frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
230 |
DIAGNOSTICS_READPARMS |
phase(n) = timePhase(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
232 |
DIAGNOSTICS_READPARMS |
phase(n) = -0.5 _d 0 * frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
235 |
DIAGNOSTICS_READPARMS |
averageFreq(n) = averagingFreq(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
236 |
DIAGNOSTICS_READPARMS |
averagePhase(n) = averagingPhase(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
237 |
DIAGNOSTICS_READPARMS |
averageCycle(n) = repeatCycle(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
248 |
DIAGNOSTICS_READPARMS |
averageFreq(n) = nTimeSteps*deltaTClock |
|
./pkg/diagnostics/diagnostics_readparms.F |
249 |
DIAGNOSTICS_READPARMS |
averagePhase(n) = phase(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
251 |
DIAGNOSTICS_READPARMS |
averageFreq(n) = frequency(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
252 |
DIAGNOSTICS_READPARMS |
averagePhase(n) = phase(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
255 |
DIAGNOSTICS_READPARMS |
& misvalFlt(n) = missing_value(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
257 |
DIAGNOSTICS_READPARMS |
& misvalInt(n) = missing_value_int(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
258 |
DIAGNOSTICS_READPARMS |
fnames(n) = fileName (l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
259 |
DIAGNOSTICS_READPARMS |
fflags(n) = fileFlags(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
260 |
DIAGNOSTICS_READPARMS |
nlevels(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
264 |
DIAGNOSTICS_READPARMS |
& nlevels(n).LT.numLevels ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
265 |
DIAGNOSTICS_READPARMS |
nlevels(n) = nlevels(n) + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
266 |
DIAGNOSTICS_READPARMS |
levs(nlevels(n),n) = levels(k,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
282 |
DIAGNOSTICS_READPARMS |
nlevels(n) = -1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
284 |
DIAGNOSTICS_READPARMS |
nfields(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
287 |
DIAGNOSTICS_READPARMS |
& nfields(n).LT.numperlist ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
288 |
DIAGNOSTICS_READPARMS |
nfields(n) = nfields(n) + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
289 |
DIAGNOSTICS_READPARMS |
flds(nfields(n),n) = fields(m,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
332 |
DIAGNOSTICS_READPARMS |
DO n = 1,numlists |
|
./pkg/diagnostics/diagnostics_readparms.F |
333 |
DIAGNOSTICS_READPARMS |
diagSt_freq(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
334 |
DIAGNOSTICS_READPARMS |
diagSt_phase(n) = 0. |
|
./pkg/diagnostics/diagnostics_readparms.F |
335 |
DIAGNOSTICS_READPARMS |
diagSt_nbFlds(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
336 |
DIAGNOSTICS_READPARMS |
diagSt_ioUnit(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
337 |
DIAGNOSTICS_READPARMS |
diagSt_Fname(n) = blkFilName |
|
./pkg/diagnostics/diagnostics_readparms.F |
339 |
DIAGNOSTICS_READPARMS |
diagSt_region(j,n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
342 |
DIAGNOSTICS_READPARMS |
diagSt_Flds(m,n) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
376 |
DIAGNOSTICS_READPARMS |
n = diagSt_nbLists + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
377 |
DIAGNOSTICS_READPARMS |
diagSt_freq(n) = stat_freq(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
379 |
DIAGNOSTICS_READPARMS |
diagSt_phase(n) = stat_phase(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
381 |
DIAGNOSTICS_READPARMS |
diagSt_phase(n) = -0.5 _d 0 * stat_freq(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
383 |
DIAGNOSTICS_READPARMS |
diagSt_Fname(n) = stat_fname(l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
388 |
DIAGNOSTICS_READPARMS |
IF ( diagSt_region(j,n).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
389 |
DIAGNOSTICS_READPARMS |
diagSt_region(j,n) = 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
417 |
DIAGNOSTICS_READPARMS |
diagSt_region(0,n) = 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
419 |
DIAGNOSTICS_READPARMS |
diagSt_nbFlds(n) = 0 |
|
./pkg/diagnostics/diagnostics_readparms.F |
422 |
DIAGNOSTICS_READPARMS |
& diagSt_nbFlds(n).LT.numperlist ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
423 |
DIAGNOSTICS_READPARMS |
diagSt_nbFlds(n) = diagSt_nbFlds(n) + 1 |
|
./pkg/diagnostics/diagnostics_readparms.F |
424 |
DIAGNOSTICS_READPARMS |
diagSt_Flds(diagSt_nbFlds(n),n) = stat_fields(m,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
467 |
DIAGNOSTICS_READPARMS |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_readparms.F |
468 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2A)') 'Creating Output Stream: ', fnames(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
470 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(2(A,F18.6))') 'Output Frequency:', freq(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
471 |
DIAGNOSTICS_READPARMS |
& ' ; Phase: ', phase(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
474 |
DIAGNOSTICS_READPARMS |
& ' Averaging Freq.:', averageFreq(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
475 |
DIAGNOSTICS_READPARMS |
& ' , Phase: ', averagePhase(n), ' , Cycle:', averageCycle(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
477 |
DIAGNOSTICS_READPARMS |
IF ( fflags(n).EQ.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
479 |
DIAGNOSTICS_READPARMS |
& ' missing value:', misvalFlt(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
480 |
DIAGNOSTICS_READPARMS |
& ' ; for integers:', misvalInt(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
483 |
DIAGNOSTICS_READPARMS |
& ' missing value:', misvalFlt(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
484 |
DIAGNOSTICS_READPARMS |
& ' ; for integers:', misvalInt(n), |
|
./pkg/diagnostics/diagnostics_readparms.F |
485 |
DIAGNOSTICS_READPARMS |
& ' ; F-Flags="', fflags(n),'"' |
|
./pkg/diagnostics/diagnostics_readparms.F |
488 |
DIAGNOSTICS_READPARMS |
IF ( nlevels(n).EQ.-1 .AND. fflags(n)(2:2).EQ.'I' ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
491 |
DIAGNOSTICS_READPARMS |
ELSEIF ( nlevels(n).EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
494 |
DIAGNOSTICS_READPARMS |
ELSEIF ( fflags(n)(2:2).EQ.'P' ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
495 |
DIAGNOSTICS_READPARMS |
DO l=1,nlevels(n),10 |
|
./pkg/diagnostics/diagnostics_readparms.F |
496 |
DIAGNOSTICS_READPARMS |
m = MIN(nlevels(n),l+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
497 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
502 |
DIAGNOSTICS_READPARMS |
IF ( fflags(n)(2:2).EQ.'I' ) suffix = ' Sum Levels:' |
|
./pkg/diagnostics/diagnostics_readparms.F |
503 |
DIAGNOSTICS_READPARMS |
DO l=1,nlevels(n),20 |
|
./pkg/diagnostics/diagnostics_readparms.F |
504 |
DIAGNOSTICS_READPARMS |
m = MIN(nlevels(n),l+19) |
|
./pkg/diagnostics/diagnostics_readparms.F |
505 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
509 |
DIAGNOSTICS_READPARMS |
DO nf = 1,nfields(n),10 |
|
./pkg/diagnostics/diagnostics_readparms.F |
510 |
DIAGNOSTICS_READPARMS |
m = MIN(nfields(n),nf+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
511 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
521 |
DIAGNOSTICS_READPARMS |
DO n = 1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_readparms.F |
523 |
DIAGNOSTICS_READPARMS |
& diagSt_Fname(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
526 |
DIAGNOSTICS_READPARMS |
& diagSt_freq(n), ' ; Phase: ', diagSt_phase(n) |
|
./pkg/diagnostics/diagnostics_readparms.F |
531 |
DIAGNOSTICS_READPARMS |
IF ( diagSt_region(j,n).GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
537 |
DIAGNOSTICS_READPARMS |
DO nf = 1,diagSt_nbFlds(n),10 |
|
./pkg/diagnostics/diagnostics_readparms.F |
538 |
DIAGNOSTICS_READPARMS |
m = MIN(diagSt_nbFlds(n),nf+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
540 |
DIAGNOSTICS_READPARMS |
& (' ',diagSt_Flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
76 |
DIAGNOSTICS_READPARMS |
INTEGER j,k,l,n,m,nf |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
112 |
DIAGNOSTICS_SCALE_FILL |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
113 |
DIAGNOSTICS_SCALE_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
114 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
115 |
DIAGNOSTICS_SCALE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
117 |
DIAGNOSTICS_SCALE_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
120 |
DIAGNOSTICS_SCALE_FILL |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
69 |
DIAGNOSTICS_SCALE_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
88 |
DIAGNOSTICS_SCALE_FILL |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
89 |
DIAGNOSTICS_SCALE_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
90 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
91 |
DIAGNOSTICS_SCALE_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
93 |
DIAGNOSTICS_SCALE_FILL |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
94 |
DIAGNOSTICS_SCALE_FILL |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
112 |
DIAGNOSTICS_SCALE_FILL_RS |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
113 |
DIAGNOSTICS_SCALE_FILL_RS |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
114 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
115 |
DIAGNOSTICS_SCALE_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
117 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
120 |
DIAGNOSTICS_SCALE_FILL_RS |
region2fill(j) = diagSt_region(j,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
69 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
88 |
DIAGNOSTICS_SCALE_FILL_RS |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
89 |
DIAGNOSTICS_SCALE_FILL_RS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
90 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
91 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
93 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
94 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
100 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nGroundLev |
|
./pkg/diagnostics/diagnostics_set_levels.F |
102 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
104 |
DIAGNOSTICS_SET_LEVELS |
IF ( kdiag(n) .LE. 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
107 |
DIAGNOSTICS_SET_LEVELS |
& 'level Nb =', kdiag(n), ' < 1 for diag."', cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
115 |
DIAGNOSTICS_SET_LEVELS |
& cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
129 |
DIAGNOSTICS_SET_LEVELS |
DO n = 1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_levels.F |
130 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
134 |
DIAGNOSTICS_SET_LEVELS |
& 'inconsistent gdiag(3&10)="',gcode,'" for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
148 |
DIAGNOSTICS_SET_LEVELS |
DO n = 1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_levels.F |
149 |
DIAGNOSTICS_SET_LEVELS |
IF ( hdiag(n).LT.0 .OR. hdiag(n).GT.ndiagt ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
151 |
DIAGNOSTICS_SET_LEVELS |
& 'unvalid mate number=',hdiag(n),' for diag."',cdiag(n),'"' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
198 |
DIAGNOSTICS_SET_LEVELS |
DO n=1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_levels.F |
199 |
DIAGNOSTICS_SET_LEVELS |
IF ( MOD(n,100).EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
204 |
DIAGNOSTICS_SET_LEVELS |
l = ILNBLNK(tdiag(n)) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
205 |
DIAGNOSTICS_SET_LEVELS |
gcode = gdiag(n)(1:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
206 |
DIAGNOSTICS_SET_LEVELS |
IF ( hdiag(n).NE.0 .AND. l.GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
207 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
208 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
209 |
DIAGNOSTICS_SET_LEVELS |
& udiag(n), '|', tdiag(n)(1:l) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
210 |
DIAGNOSTICS_SET_LEVELS |
ELSEIF ( hdiag(n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
211 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
212 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' |', hdiag(n), ' |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
213 |
DIAGNOSTICS_SET_LEVELS |
& udiag(n), '|' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
215 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
216 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
217 |
DIAGNOSTICS_SET_LEVELS |
& udiag(n), '|', tdiag(n)(1:l) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
219 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
220 |
DIAGNOSTICS_SET_LEVELS |
& kdiag(n),' | |', gcode, '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
221 |
DIAGNOSTICS_SET_LEVELS |
& udiag(n), '|' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
234 |
DIAGNOSTICS_SET_LEVELS |
DO n = 2,ndiagt |
|
./pkg/diagnostics/diagnostics_set_levels.F |
235 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(n).NE.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
236 |
DIAGNOSTICS_SET_LEVELS |
DO l = 1,n-1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
237 |
DIAGNOSTICS_SET_LEVELS |
IF ( cdiag(l).EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagnostics_set_levels.F |
239 |
DIAGNOSTICS_SET_LEVELS |
& 'diag.Name: ',cdiag(n),' registered 2 times :' |
|
./pkg/diagnostics/diagnostics_set_levels.F |
245 |
DIAGNOSTICS_SET_LEVELS |
& ' 2nd (n=', n, ' ), title= ',tdiag(n) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
63 |
DIAGNOSTICS_SET_LEVELS |
INTEGER l, n, ncount |
|
./pkg/diagnostics/diagnostics_set_levels.F |
87 |
DIAGNOSTICS_SET_LEVELS |
DO n = 1,ndiagt |
|
./pkg/diagnostics/diagnostics_set_levels.F |
88 |
DIAGNOSTICS_SET_LEVELS |
g10code = gdiag(n)(10:10) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
90 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 0 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
92 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = 1 |
|
./pkg/diagnostics/diagnostics_set_levels.F |
94 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = Nr |
|
./pkg/diagnostics/diagnostics_set_levels.F |
96 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs |
|
./pkg/diagnostics/diagnostics_set_levels.F |
98 |
DIAGNOSTICS_SET_LEVELS |
kdiag(n) = nlevs - 1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
109 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( averageCycle(n).GT.1 ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
111 |
DIAGNOSTICS_SWITCH_ONOFF |
xInterval = myTime + deltaTclock*0.5 _d 0 - averagePhase(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
112 |
DIAGNOSTICS_SWITCH_ONOFF |
xInterval = xInterval / averageFreq(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
116 |
DIAGNOSTICS_SWITCH_ONOFF |
nInterval = 1 + INT( -xInterval/FLOAT(averageCycle(n)) ) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
117 |
DIAGNOSTICS_SWITCH_ONOFF |
nInterval = nInterval*averageCycle(n) + INT(xInterval) - 1 |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
119 |
DIAGNOSTICS_SWITCH_ONOFF |
nInterval = MOD(nInterval,averageCycle(n)) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
122 |
DIAGNOSTICS_SWITCH_ONOFF |
IF (dBugFlag.AND.pdiag(n,1,1).NE.nInterval) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
124 |
DIAGNOSTICS_SWITCH_ONOFF |
& 'DIAG_SWITCH_ONOFF: at it=', myIter, ', list:', n, |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
125 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' switch', pdiag(n,1,1),' ->', nInterval, xInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
126 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( nInterval.LT.0 .OR. nInterval.GE.averageCycle(n) ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
128 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' error setting pdiag(n=',n,') to:', nInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
131 |
DIAGNOSTICS_SWITCH_ONOFF |
& ' cycle=', averageCycle(n), ', xInt=', xInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
138 |
DIAGNOSTICS_SWITCH_ONOFF |
pdiag(n,bi,bj) = nInterval |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
148 |
DIAGNOSTICS_SWITCH_ONOFF |
DO n = 1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
150 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( diagSt_freq(n).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
155 |
DIAGNOSTICS_SWITCH_ONOFF |
freqSec = diagSt_freq(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
156 |
DIAGNOSTICS_SWITCH_ONOFF |
phiSec = diagSt_phase(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
162 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(tagname,'(A,I2.2)')'diagStg',n |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
172 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
173 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
175 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
185 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
186 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
188 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
46 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER m, n, nd |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
68 |
DIAGNOSTICS_SWITCH_ONOFF |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
70 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( freq(n).LT.0. ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
73 |
DIAGNOSTICS_SWITCH_ONOFF |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
74 |
DIAGNOSTICS_SWITCH_ONOFF |
phiSec = phase(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
79 |
DIAGNOSTICS_SWITCH_ONOFF |
WRITE(tagname,'(A,I2.2)')'diagtag',n |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
88 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
91 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
96 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
99 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
152 |
DIAGNOSTICS_COUNT |
INTEGER m, n |
|
./pkg/diagnostics/diagnostics_utils.F |
167 |
DIAGNOSTICS_COUNT |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_utils.F |
168 |
DIAGNOSTICS_COUNT |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
169 |
DIAGNOSTICS_COUNT |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
170 |
DIAGNOSTICS_COUNT |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
172 |
DIAGNOSTICS_COUNT |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
173 |
DIAGNOSTICS_COUNT |
ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
241 |
DIAGNOSTICS_GET_POINTERS |
INTEGER n,m |
|
./pkg/diagnostics/diagnostics_utils.F |
250 |
DIAGNOSTICS_GET_POINTERS |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_utils.F |
251 |
DIAGNOSTICS_GET_POINTERS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
252 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
253 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
254 |
DIAGNOSTICS_GET_POINTERS |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
255 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
264 |
DIAGNOSTICS_GET_POINTERS |
DO n=1,nlists |
|
./pkg/diagnostics/diagnostics_utils.F |
266 |
DIAGNOSTICS_GET_POINTERS |
& .AND. freq(n) .EQ. freq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
267 |
DIAGNOSTICS_GET_POINTERS |
& .AND. phase(n).EQ.phase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
268 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averageFreq(n) .EQ.averageFreq(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
269 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averagePhase(n).EQ.averagePhase(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
270 |
DIAGNOSTICS_GET_POINTERS |
& .AND. averageCycle(n).EQ.averageCycle(listId) |
|
./pkg/diagnostics/diagnostics_utils.F |
272 |
DIAGNOSTICS_GET_POINTERS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
273 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
274 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
275 |
DIAGNOSTICS_GET_POINTERS |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
276 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
280 |
DIAGNOSTICS_GET_POINTERS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
281 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
282 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
283 |
DIAGNOSTICS_GET_POINTERS |
ndId = jdiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
332 |
DIAGNOSTICS_SETKLEV |
INTEGER n, ndId |
|
./pkg/diagnostics/diagnostics_utils.F |
358 |
DIAGNOSTICS_SETKLEV |
DO n = 1,ndiagt |
|
./pkg/diagnostics/diagnostics_utils.F |
359 |
DIAGNOSTICS_SETKLEV |
IF ( diagName.EQ.cdiag(n) ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
360 |
DIAGNOSTICS_SETKLEV |
ndId = n |
|
./pkg/diagnostics/diagnostics_utils.F |
446 |
DIAGNOSTICS_SETKLEV |
INTEGER n |
|
./pkg/diagnostics/diagnostics_utils.F |
450 |
DIAGNOSTICS_SETKLEV |
n = LEN(parName) |
|
./pkg/diagnostics/diagnostics_utils.F |
496 |
DIAGNOSTICS_SETKLEV |
INTEGER i,j,n |
|
./pkg/diagnostics/diagnostics_utils.F |
499 |
DIAGNOSTICS_SETKLEV |
n = LEN(diagUnitsInPieces) |
|
./pkg/diagnostics/diagnostics_utils.F |
502 |
DIAGNOSTICS_SETKLEV |
DO i=1,n |
|
./pkg/diagnostics/diagnostics_utils.F |
554 |
DIAGNOSTICS_SETKLEV |
INTEGER i,j,n |
|
./pkg/diagnostics/diagnostics_utils.F |
560 |
DIAGNOSTICS_SETKLEV |
n = LEN(diagTitleInPieces) |
|
./pkg/diagnostics/diagnostics_utils.F |
564 |
DIAGNOSTICS_SETKLEV |
DO i=1,n |
|
./pkg/diagnostics/diagnostics_write.F |
118 |
DIAGNOSTICS_WRITE |
WRITE(tagname,'(A,I2.2)')'diagStg',n |
|
./pkg/diagnostics/diagnostics_write.F |
126 |
DIAGNOSTICS_WRITE |
CALL DIAGSTATS_OUTPUT(n,wrTime,wrIter,myThid) |
|
./pkg/diagnostics/diagnostics_write.F |
146 |
DIAGNOSTICS_WRITE |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_write.F |
147 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
148 |
DIAGNOSTICS_WRITE |
phiSec = phase(n) |
|
./pkg/diagnostics/diagnostics_write.F |
156 |
DIAGNOSTICS_WRITE |
WRITE(tagname,'(A,I2.2)')'diagtag',n |
|
./pkg/diagnostics/diagnostics_write.F |
169 |
DIAGNOSTICS_WRITE |
IF ( dump2fileNow ) CALL DIAGNOSTICS_CLEAR(n,myThid) |
|
./pkg/diagnostics/diagnostics_write.F |
172 |
DIAGNOSTICS_WRITE |
DO n = 1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_write.F |
173 |
DIAGNOSTICS_WRITE |
freqSec = diagSt_freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
174 |
DIAGNOSTICS_WRITE |
phiSec = diagSt_phase(n) |
|
./pkg/diagnostics/diagnostics_write.F |
181 |
DIAGNOSTICS_WRITE |
WRITE(tagname,'(A,I2.2)')'diagStg',n |
|
./pkg/diagnostics/diagnostics_write.F |
187 |
DIAGNOSTICS_WRITE |
IF ( dump2fileNow ) CALL DIAGSTATS_CLEAR( n, myThid ) |
|
./pkg/diagnostics/diagnostics_write.F |
35 |
DIAGNOSTICS_WRITE |
INTEGER n |
|
./pkg/diagnostics/diagnostics_write.F |
55 |
DIAGNOSTICS_WRITE |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_write.F |
56 |
DIAGNOSTICS_WRITE |
freqSec = freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
57 |
DIAGNOSTICS_WRITE |
phiSec = phase(n) |
|
./pkg/diagnostics/diagnostics_write.F |
76 |
DIAGNOSTICS_WRITE |
WRITE(tagname,'(A,I2.2)')'diagtag',n |
|
./pkg/diagnostics/diagnostics_write.F |
91 |
DIAGNOSTICS_WRITE |
CALL DIAGNOSTICS_OUT(n,wrIter,wrTime,myThid) |
|
./pkg/diagnostics/diagnostics_write.F |
97 |
DIAGNOSTICS_WRITE |
DO n = 1,diagSt_nbLists |
|
./pkg/diagnostics/diagnostics_write.F |
98 |
DIAGNOSTICS_WRITE |
freqSec = diagSt_freq(n) |
|
./pkg/diagnostics/diagnostics_write.F |
99 |
DIAGNOSTICS_WRITE |
phiSec = diagSt_phase(n) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
188 |
DIAGNOSTICS_WRITE_PICKUP |
DO n = 1,nlists |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
189 |
DIAGNOSTICS_WRITE_PICKUP |
DO m = 1,nfields(n) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n),1,1) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
54 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dUnit, n, m |
|
./pkg/diagnostics/diagstats_calc.F |
76 |
DIAGSTATS_CALC |
INTEGER i, j, n |
|
./pkg/diagnostics/diagstats_calc.F |
84 |
DIAGSTATS_CALC |
DO n=0,nStats |
|
./pkg/diagnostics/diagstats_calc.F |
85 |
DIAGSTATS_CALC |
statArr(n) = 0. |
|
./pkg/diagnostics/diagstats_close_io.F |
36 |
DIAGSTATS_CLOSE_IO |
INTEGER n, iL, nUnit |
|
./pkg/diagnostics/diagstats_close_io.F |
46 |
DIAGSTATS_CLOSE_IO |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagstats_close_io.F |
48 |
DIAGSTATS_CLOSE_IO |
nUnit = diagSt_ioUnit(n) |
|
./pkg/diagnostics/diagstats_close_io.F |
54 |
DIAGSTATS_CLOSE_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_close_io.F |
56 |
DIAGSTATS_CLOSE_IO |
& diagSt_Fname(n)(1:iL), '.', nIter0, '.txt' |
|
./lsopt/instore.F |
1 |
INSTORE |
subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax, |
|
./lsopt/instore.F |
32 |
INSTORE |
read( itape, *, end=800, err=900 ) n, fc, gnorm0, |
|
./lsopt/instore.F |
41 |
INSTORE |
$ ' opening direct access with recl = ',n,' * ',isize |
|
./lsopt/instore.F |
44 |
INSTORE |
tmp1 = n |
|
./lsopt/instore.F |
48 |
INSTORE |
print *, 'pathei rectmp ', rectmp, n, isize |
|
./lsopt/instore.F |
6 |
INSTORE |
integer n, is, m, jmin, jmax, ifail |
|
./pkg/diagnostics/diagstats_ini_io.F |
37 |
DIAGSTATS_INI_IO |
INTEGER m, n, j, iL, nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
51 |
DIAGSTATS_INI_IO |
DO n=1,diagSt_nbLists |
|
./pkg/diagnostics/diagstats_ini_io.F |
55 |
DIAGSTATS_INI_IO |
diagSt_ioUnit(n) = nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
57 |
DIAGSTATS_INI_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_ini_io.F |
59 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL), '.', nIter0, '.txt' |
|
./pkg/diagnostics/diagstats_ini_io.F |
69 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
70 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# frequency (s): ', diagSt_freq(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
71 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A,F17.6)') '# phase (s) : ', diagSt_phase(n) |
|
./pkg/diagnostics/diagstats_ini_io.F |
75 |
DIAGSTATS_INI_IO |
IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN |
|
./pkg/diagnostics/diagstats_ini_io.F |
82 |
DIAGSTATS_INI_IO |
DO j=1,diagSt_nbFlds(n),10 |
|
./pkg/diagnostics/diagstats_ini_io.F |
84 |
DIAGSTATS_INI_IO |
& (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
86 |
DIAGSTATS_INI_IO |
DO j=1,diagSt_nbFlds(n),50 |
|
./pkg/diagnostics/diagstats_ini_io.F |
88 |
DIAGSTATS_INI_IO |
& ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) ) |
|
./pkg/diagnostics/diagstats_local.F |
106 |
DIAGSTATS_LOCAL |
DO n=0,nRegions |
|
./pkg/diagnostics/diagstats_local.F |
107 |
DIAGSTATS_LOCAL |
IF (region2fill(n).NE.0) THEN |
|
./pkg/diagnostics/diagstats_local.F |
110 |
DIAGSTATS_LOCAL |
kRegMsk = diagSt_kRegMsk(n) |
|
./pkg/diagnostics/diagstats_local.F |
124 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
136 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
147 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
162 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
175 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
191 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
202 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
213 |
DIAGSTATS_LOCAL |
I scaleFact, power, useFract, n, diagSt_vRegMsk(n), |
|
./pkg/diagnostics/diagstats_local.F |
225 |
DIAGSTATS_LOCAL |
IF ( statFld(0,n).LE.0. ) THEN |
|
./pkg/diagnostics/diagstats_local.F |
226 |
DIAGSTATS_LOCAL |
statFld(im,n) = statLoc(im) |
|
./pkg/diagnostics/diagstats_local.F |
227 |
DIAGSTATS_LOCAL |
statFld(ix,n) = statLoc(ix) |
|
./pkg/diagnostics/diagstats_local.F |
229 |
DIAGSTATS_LOCAL |
statFld(im,n) = MIN( statFld(im,n), statLoc(im) ) |
|
./pkg/diagnostics/diagstats_local.F |
230 |
DIAGSTATS_LOCAL |
statFld(ix,n) = MAX( statFld(ix,n), statLoc(ix) ) |
|
./pkg/diagnostics/diagstats_local.F |
233 |
DIAGSTATS_LOCAL |
statFld(i,n) = statFld(i,n) + statLoc(i) |
|
./pkg/diagnostics/diagstats_local.F |
84 |
DIAGSTATS_LOCAL |
INTEGER i, n, kFr, kRegMsk |
|
./lsopt/outstore.F |
18 |
OUTSTORE |
write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax |
|
./lsopt/outstore.F |
1 |
OUTSTORE |
subroutine OUTSTORE( n, fc, gnorm0, m, jmin, jmax ) |
|
./lsopt/outstore.F |
5 |
OUTSTORE |
integer n, m, jmin, jmax |
|
./pkg/down_slope/dwnslp_apply.F |
135 |
DWNSLP_APPLY |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
136 |
DWNSLP_APPLY |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_apply.F |
140 |
DWNSLP_APPLY |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
141 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
gTrLoc(k) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
157 |
DWNSLP_APPLY |
gTrLoc(0) = DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
k=DWNSLP_deepK(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
178 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
183 |
DWNSLP_APPLY |
& deltaTLev(k)*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
68 |
DWNSLP_APPLY |
INTEGER n,ijd,ijs,kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
114 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = kdeep |
|
./pkg/down_slope/dwnslp_calc_flow.F |
120 |
DWNSLP_CALC_FLOW |
DWNSLP_Transp(n,bi,bj) = DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
128 |
DWNSLP_CALC_FLOW |
uFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
130 |
DWNSLP_CALC_FLOW |
vFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
145 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
146 |
DWNSLP_CALC_FLOW |
IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
147 |
DWNSLP_CALC_FLOW |
ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
& bi,bj,n,' :', DWNSLP_ijDeep(n,bi,bj), |
|
./pkg/down_slope/dwnslp_calc_flow.F |
153 |
DWNSLP_CALC_FLOW |
& DWNSLP_shVsD(n,bi,bj), ishelf,jshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
154 |
DWNSLP_CALC_FLOW |
& ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
155 |
DWNSLP_CALC_FLOW |
& DWNSLP_Transp(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
55 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/down_slope/dwnslp_calc_flow.F |
93 |
DWNSLP_CALC_FLOW |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
94 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_calc_flow.F |
98 |
DWNSLP_CALC_FLOW |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
99 |
DWNSLP_CALC_FLOW |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
209 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
211 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
214 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
241 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
245 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
261 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
266 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
307 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_NbSite(bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
308 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
311 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
322 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
44 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |
|
./pkg/down_slope/dwnslp_init_fixed.F |
60 |
DWNSLP_INIT_FIXED |
DO n=1,DWNSLP_size |
|
./pkg/down_slope/dwnslp_init_fixed.F |
61 |
DWNSLP_INIT_FIXED |
DWNSLP_ijDeep(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
62 |
DWNSLP_INIT_FIXED |
DWNSLP_shVsD(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
63 |
DWNSLP_INIT_FIXED |
DWNSLP_deepK(n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_fixed.F |
64 |
DWNSLP_INIT_FIXED |
DWNSLP_Gamma(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_fixed.F |
65 |
DWNSLP_INIT_FIXED |
DWNSLP_Transp(n,bi,bj) = 0. |
|
./pkg/down_slope/dwnslp_init_varia.F |
40 |
DWNSLP_INIT_VARIA |
INTEGER n, bi, bj |
|
./pkg/down_slope/dwnslp_init_varia.F |
49 |
DWNSLP_INIT_VARIA |
DO n=1,DWNSLP_size |
|
./pkg/down_slope/dwnslp_init_varia.F |
50 |
DWNSLP_INIT_VARIA |
DWNSLP_deepK (n,bi,bj) = 0 |
|
./pkg/down_slope/dwnslp_init_varia.F |
51 |
DWNSLP_INIT_VARIA |
DWNSLP_Transp(n,bi,bj) = 0. _d 0 |
|
./pkg/exch2/exch2_check_depths.F |
49 |
EXCH2_CHECK_DEPTHS |
INTEGER i, j, n |
|
./pkg/exch2/exch2_check_depths.F |
76 |
EXCH2_CHECK_DEPTHS |
DO n= 1,exch2_nNeighbours(tId) |
|
./pkg/exch2/exch2_check_depths.F |
77 |
EXCH2_CHECK_DEPTHS |
DO j=exch2_jLo(n,tId),exch2_jHi(n,tId) |
|
./pkg/exch2/exch2_check_depths.F |
78 |
EXCH2_CHECK_DEPTHS |
DO i=exch2_iLo(n,tId),exch2_iHi(n,tId) |