| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_alarms.F |
33 |
FIZHI_ALARMS |
integer nhmsf, m,n, nd |
|
./pkg/fizhi/fizhi_alarms.F |
52 |
FIZHI_ALARMS |
m = -1 |
|
./pkg/fizhi/fizhi_alarms.F |
55 |
FIZHI_ALARMS |
nd = ndturb + 2*n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
56 |
FIZHI_ALARMS |
m = -m |
|
./pkg/fizhi/fizhi_alarms.F |
75 |
FIZHI_ALARMS |
m = -1 |
|
./pkg/fizhi/fizhi_alarms.F |
78 |
FIZHI_ALARMS |
nd = ndmoist + n*m*ndt |
|
./pkg/fizhi/fizhi_alarms.F |
79 |
FIZHI_ALARMS |
m = -m |
|
./pkg/fizhi/fizhi_clockstuff.F |
782 |
TIC_TIME |
integer incymd,nymd,m |
|
./pkg/fizhi/fizhi_fillnegs.F |
227 |
TRACER_FILL |
do m=1,6 |
|
./pkg/fizhi/fizhi_fillnegs.F |
228 |
TRACER_FILL |
if( array(m).gt.0.0 ) sum = sum + array(m) |
|
./pkg/fizhi/fizhi_fillnegs.F |
89 |
TRACER_FILL |
integer i,j,l,im1,ip1,imax,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1023 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1034 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1051 |
IRRAD |
do i=1,m |
|
./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 |
1076 |
IRRAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_lwrad.F |
1093 |
IRRAD |
do i= 1, m |
|
./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 |
1233 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1251 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1265 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1277 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1292 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1309 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1321 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1333 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1344 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1354 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1364 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1375 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1383 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1390 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1406 |
IRRAD |
do i=1,m |
|
./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 |
1531 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1546 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1569 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1590 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1607 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1629 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1641 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1655 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1668 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1683 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1696 |
IRRAD |
do i=1,m |
|
./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 |
1743 |
COLUMN |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1752 |
COLUMN |
do i=1,m |
|
./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 |
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 |
1812 |
H2OEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1835 |
H2OEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1846 |
H2OEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1858 |
H2OEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1870 |
H2OEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1885 |
CONEXPS |
subroutine CONEXPS(ib,m,n,np,dcont,xke,conexp) |
|
./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 |
1920 |
CONEXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
1935 |
CONEXPS |
do i=1,m |
|
./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 |
1981 |
CO2EXPS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
2048 |
N2OEXPS |
subroutine N2OEXPS(ib,m,n,np,dn2o,pa,dt,n2oexp) |
|
./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 |
2083 |
N2OEXPS |
do i=1,m |
|
./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 |
2159 |
CH4EXPS |
do i=1,m |
|
./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 |
2231 |
COMEXPS |
do i=1,m |
|
./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 |
2312 |
CFCEXPS |
do i=1,m |
|
./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 |
2372 |
B10EXPS |
do i=1,m |
|
./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 |
2523 |
TABLUP |
do i=1,m |
|
./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 |
2640 |
H2OKDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
2653 |
H2OKDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
2670 |
H2OKDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
2689 |
H2OKDIS |
do i=1,m |
|
./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 |
2763 |
CO2KDIS |
do i=1,m |
|
./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 |
2852 |
N2OKDIS |
do i=1,m |
|
./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 |
2929 |
CH4KDIS |
do i=1,m |
|
./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 |
3003 |
COMKDIS |
do i=1,m |
|
./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 |
3066 |
CFCKDIS |
do i=1,m |
|
./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 |
3128 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
3136 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
3161 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
3172 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
3200 |
B10KDIS |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
346 |
IRRAD |
subroutine IRRAD (m,n,ndim,np,pl,ta,wa,oa,ts,co2, |
|
./pkg/fizhi/fizhi_lwrad.F |
568 |
IRRAD |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_lwrad.F |
569 |
IRRAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np), |
|
./pkg/fizhi/fizhi_lwrad.F |
570 |
IRRAD |
* ts(m,ndim) |
|
./pkg/fizhi/fizhi_lwrad.F |
571 |
IRRAD |
_RL co2,n2o(np),ch4(np),cfc11,cfc12,cfc22,emiss(m,ndim,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
572 |
IRRAD |
_RL cwc(m,ndim,np,3),taucl(m,ndim,np,3),reff(m,ndim,np,3), |
|
./pkg/fizhi/fizhi_lwrad.F |
573 |
IRRAD |
* fcld(m,ndim,np) |
|
./pkg/fizhi/fizhi_lwrad.F |
574 |
IRRAD |
_RL taual(m,ndim,np,10),ssaal(m,ndim,np,10),asyal(m,ndim,np,10) |
|
./pkg/fizhi/fizhi_lwrad.F |
579 |
IRRAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1),dfdts(m,ndim,np+1), |
|
./pkg/fizhi/fizhi_lwrad.F |
580 |
IRRAD |
* st4(m,ndim) |
|
./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 |
873 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
884 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
911 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
937 |
IRRAD |
call COLUMN(m,n,np,pa,dt,dh2o,sh2o,swpre,swtem) |
|
./pkg/fizhi/fizhi_lwrad.F |
948 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
966 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_lwrad.F |
979 |
IRRAD |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1003 |
CLDSCALE |
integer m,n,ndim,np,ict,icb |
|
./pkg/fizhi/fizhi_swrad.F |
1004 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./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 |
1034 |
CLDSCALE |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1043 |
CLDSCALE |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1051 |
CLDSCALE |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1059 |
CLDSCALE |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1080 |
CLDSCALE |
do i=1,m |
|
./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 |
1234 |
SOLIR |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./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 |
1236 |
SOLIR |
_RL rsirbm(m,ndim),rsirdf(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
1237 |
SOLIR |
_RL wh(m,n,np),taual(m,ndim,np),csm(m,n) |
|
./pkg/fizhi/fizhi_swrad.F |
1241 |
SOLIR |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1242 |
SOLIR |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./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 |
1322 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1348 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1375 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1380 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1394 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1468 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1473 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1478 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1483 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1488 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1494 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1499 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1504 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1509 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1514 |
SOLIR |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1525 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1532 |
SOLIR |
do i= 1, m |
|
./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 |
1543 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1548 |
SOLIR |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1555 |
SOLIR |
do i= 1, m |
|
./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 |
1656 |
SOLUV |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2),fcld(m,ndim,np) |
|
./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 |
1663 |
SOLUV |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
1664 |
SOLUV |
_RL fdirpar(m,ndim),fdifpar(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
1665 |
SOLUV |
_RL fdiruv(m,ndim),fdifuv(m,ndim) |
|
./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 |
1720 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1740 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1760 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1768 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1781 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1840 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1845 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1850 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1855 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1860 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1866 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1871 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1876 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1881 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1886 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1897 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1904 |
SOLUV |
do i= 1, m |
|
./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 |
1914 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1919 |
SOLUV |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
1927 |
SOLUV |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
1934 |
SOLUV |
do i=1,m |
|
./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 |
2220 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2227 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2248 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2260 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2281 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2306 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2316 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2334 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2355 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2365 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2379 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2389 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2403 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2413 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2424 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2440 |
CLDFLX |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2458 |
CLDFLX |
do i=1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2470 |
CLDFLX |
do i=1, m |
|
./pkg/fizhi/fizhi_swrad.F |
2479 |
CLDFLX |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
2489 |
CLDFLX |
do i=1,m |
|
./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 |
2538 |
FLXCO2 |
do i= 1, m |
|
./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 |
772 |
SORAD |
_RL pl(m,ndim,np+1),ta(m,ndim,np),wa(m,ndim,np),oa(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
773 |
SORAD |
_RL taucld(m,ndim,np,2),reff(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
774 |
SORAD |
_RL fcld(m,ndim,np),taual(m,ndim,np) |
|
./pkg/fizhi/fizhi_swrad.F |
775 |
SORAD |
_RL rsirbm(m,ndim),rsirdf(m,ndim), |
|
./pkg/fizhi/fizhi_swrad.F |
776 |
SORAD |
* rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2 |
|
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL flx(m,ndim,np+1),flc(m,ndim,np+1) |
|
./pkg/fizhi/fizhi_swrad.F |
781 |
SORAD |
_RL fdirir(m,ndim),fdifir(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
782 |
SORAD |
_RL fdirpar(m,ndim),fdifpar(m,ndim) |
|
./pkg/fizhi/fizhi_swrad.F |
783 |
SORAD |
_RL fdiruv(m,ndim),fdifuv(m,ndim) |
|
./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 |
796 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
812 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
849 |
SORAD |
do i=1, m |
|
./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 |
872 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
884 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
895 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
904 |
SORAD |
call FLXCO2(m,n,np,so2,swh,csm,df) |
|
./pkg/fizhi/fizhi_swrad.F |
910 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
921 |
SORAD |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
929 |
SORAD |
do i=1,m |
|
./pkg/fizhi/fizhi_swrad.F |
946 |
SORAD |
do i= 1, m |
|
./pkg/fizhi/fizhi_swrad.F |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/flt/flt_exch2.F |
48 |
FLT_EXCH2 |
INTEGER imax, imax2, m |
|
./pkg/flt/flt_exch2.F |
89 |
FLT_EXCH2 |
DO m=1,imax2 |
|
./pkg/flt/flt_exch2.F |
90 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
91 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exchg.F |
274 |
FLT_EXCHG |
DO m=1,imax2 |
|
./pkg/flt/flt_exchg.F |
275 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
276 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
277 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
278 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
37 |
FLT_EXCHG |
INTEGER imax, imax2, m |
|
./pkg/flt/flt_exchg.F |
63 |
FLT_EXCHG |
DO m=1,imax2 |
|
./pkg/flt/flt_exchg.F |
64 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
65 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
66 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
67 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/profiles/profiles_init_fixed.F |
32 |
PROFILES_INIT_FIXED |
integer k,l,m,q,bi,bj,iG,jG, myThid,num_file,length_for_tile |
|
./pkg/profiles/profiles_init_fixed.F |
596 |
PROFILES_INIT_FIXED |
DO m=0,sNy+1 |
|
./pkg/profiles/profiles_init_fixed.F |
598 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
616 |
PROFILES_INIT_FIXED |
DO m=0,sNy+1 |
|
./pkg/profiles/profiles_init_fixed.F |
618 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
78 |
PROFILES_INIT_FIXED |
do m=1,NLEVELMAX |
|
./pkg/profiles/profiles_init_fixed.F |
81 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0 |
|
./pkg/profiles/profiles_init_fixed.F |
82 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0 |
|
./pkg/seaice/lsr.F |
48 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/seaice_lsr.F |
57 |
SEAICE_LSR |
INTEGER i, j, k, m, bi, bj, j1, j2, im, jm |
|
./verification/flt_example/extra/cvprofiles.F |
129 |
NO PROCEDURE |
do m=1,100 |
|
./verification/flt_example/extra/cvprofiles.F |
137 |
NO PROCEDURE |
do m=1,100 |
|
./verification/flt_example/extra/cvprofiles.F |
195 |
NO PROCEDURE |
do m=1,npart |
|
./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 |
|
./verification/flt_example/extra/cvprofiles.F |
237 |
NO PROCEDURE |
do m=2,icount |
|
./verification/flt_example/extra/cvprofiles.F |
238 |
NO PROCEDURE |
time(m) = time(m-1)+rcountdelta |
|
./pkg/admtlm/admtlm_dsvd.F |
181 |
ADMTLM_DSVD |
integer ido, m, n, nev, ncv, lworkl, info, ierr, |
|
./pkg/admtlm/admtlm_dsvd.F |
267 |
ADMTLM_DSVD |
m = admtlmrec |
|
./pkg/admtlm/admtlm_dsvd.F |
306 |
ADMTLM_DSVD |
else if ( m .gt. maxm ) then |
|
./pkg/admtlm/admtlm_dsvd.F |
600 |
ADMTLM_DSVD |
call DCOPY( m, tmpvec2, 1, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
601 |
ADMTLM_DSVD |
temp = one / dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
603 |
ADMTLM_DSVD |
print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
605 |
ADMTLM_DSVD |
call DSCAL(m , temp, u(l,j), 1 ) |
|
./pkg/admtlm/admtlm_dsvd.F |
629 |
ADMTLM_DSVD |
call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1) |
|
./pkg/admtlm/admtlm_dsvd.F |
630 |
ADMTLM_DSVD |
s(j,2) = dnrm2(m, tmpvec2, 1) |
|
./pkg/chronos/chronos.F |
633 |
TIC_TIME |
integer incymd,nymd,m |
|
./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 |
58 |
DIAG_VEGTILE_FILL |
INTEGER m, n |
|
./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_check.F |
100 |
DIAGNOSTICS_CHECK |
& '1rst (m=', m, ' ): ', diagSt_Fname(m) |
|
./pkg/diagnostics/diagnostics_check.F |
32 |
DIAGNOSTICS_CHECK |
INTEGER k,m |
|
./pkg/diagnostics/diagnostics_check.F |
77 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
78 |
DIAGNOSTICS_CHECK |
IF ( fnames(ld).EQ.fnames(m) ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
83 |
DIAGNOSTICS_CHECK |
& '1rst (m=', m, ' ): ', fnames(m) |
|
./pkg/diagnostics/diagnostics_check.F |
94 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
95 |
DIAGNOSTICS_CHECK |
IF ( diagSt_Fname(ld).EQ.diagSt_Fname(m) ) THEN |
|
./pkg/diagnostics/diagnostics_clear.F |
32 |
DIAGNOSTICS_CLEAR |
INTEGER m, ndId, ipt, nLev |
|
./pkg/diagnostics/diagnostics_clear.F |
34 |
DIAGNOSTICS_CLEAR |
DO m=1,nActive(listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
35 |
DIAGNOSTICS_CLEAR |
IF ( idiag(m,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_clear.F |
36 |
DIAGNOSTICS_CLEAR |
ndId = jdiag(m,listId) |
|
./pkg/diagnostics/diagnostics_clear.F |
37 |
DIAGNOSTICS_CLEAR |
ipt = idiag(m,listId) |
|
./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 |
65 |
DIAGNOSTICS_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./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_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 |
65 |
DIAGNOSTICS_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./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_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 |
110 |
DIAGNOSTICS_FRACT_FILL |
IF ( mdiag(m,n).EQ.0 ) mate = 0 |
|
./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 |
78 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./pkg/diagnostics/diagnostics_is_on.F |
35 |
NO PROCEDURE |
INTEGER n,m |
|
./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 |
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)) |
|
./pkg/diagnostics/diagnostics_list_check.F |
50 |
DIAGNOSTICS_LIST_CHECK |
INTEGER n,m,m1,i |
|
./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 |
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 |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, n, m |
|
./pkg/diagnostics/diagnostics_readparms.F |
119 |
DIAGNOSTICS_READPARMS |
DO m = 1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
120 |
DIAGNOSTICS_READPARMS |
fields(m,l) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
144 |
DIAGNOSTICS_READPARMS |
DO m = 1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
145 |
DIAGNOSTICS_READPARMS |
stat_fields(m,l) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
198 |
DIAGNOSTICS_READPARMS |
DO m = 1,numperlist |
|
./pkg/diagnostics/diagnostics_readparms.F |
199 |
DIAGNOSTICS_READPARMS |
flds(m,n) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
285 |
DIAGNOSTICS_READPARMS |
DO m=1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
286 |
DIAGNOSTICS_READPARMS |
IF ( fields(m,l).NE.blk8c .AND. |
|
./pkg/diagnostics/diagnostics_readparms.F |
289 |
DIAGNOSTICS_READPARMS |
flds(nfields(n),n) = fields(m,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
290 |
DIAGNOSTICS_READPARMS |
ELSEIF ( fields(m,l).NE.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
295 |
DIAGNOSTICS_READPARMS |
& 'when trying to add field (m=', m, ' ): ',fields(m,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
341 |
DIAGNOSTICS_READPARMS |
DO m = 1,numperlist |
|
./pkg/diagnostics/diagnostics_readparms.F |
342 |
DIAGNOSTICS_READPARMS |
diagSt_Flds(m,n) = blk8c |
|
./pkg/diagnostics/diagnostics_readparms.F |
420 |
DIAGNOSTICS_READPARMS |
DO m=1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
421 |
DIAGNOSTICS_READPARMS |
IF ( stat_fields(m,l).NE.blk8c .AND. |
|
./pkg/diagnostics/diagnostics_readparms.F |
424 |
DIAGNOSTICS_READPARMS |
diagSt_Flds(diagSt_nbFlds(n),n) = stat_fields(m,l) |
|
./pkg/diagnostics/diagnostics_readparms.F |
425 |
DIAGNOSTICS_READPARMS |
ELSEIF ( stat_fields(m,l).NE.blk8c ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
430 |
DIAGNOSTICS_READPARMS |
& 'when trying to add stat_field (m=', m, |
|
./pkg/diagnostics/diagnostics_readparms.F |
431 |
DIAGNOSTICS_READPARMS |
& ' ): ',stat_fields(m,l) |
|
./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 |
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 |
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 |
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 |
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 |
69 |
DIAGNOSTICS_SCALE_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./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_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 |
69 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER m, n, j, k, l, bi, bj |
|
./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_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 |
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 |
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 |
241 |
DIAGNOSTICS_GET_POINTERS |
INTEGER n,m |
|
./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 |
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_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_clear.F |
30 |
DIAGSTATS_CLEAR |
INTEGER m, ndId, iSp |
|
./pkg/diagnostics/diagstats_clear.F |
32 |
DIAGSTATS_CLEAR |
DO m=1,diagSt_nbActv(listId) |
|
./pkg/diagnostics/diagstats_clear.F |
33 |
DIAGSTATS_CLEAR |
IF ( iSdiag(m,listId).GT.0 ) THEN |
|
./pkg/diagnostics/diagstats_clear.F |
34 |
DIAGSTATS_CLEAR |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_clear.F |
35 |
DIAGSTATS_CLEAR |
iSp = iSdiag(m,listId) |
|
./lsopt/instore.F |
1 |
INSTORE |
subroutine INSTORE( n, fc, gnorm0, is, m, jmin, jmax, |
|
./lsopt/instore.F |
33 |
INSTORE |
$ isize, m, jmin, jmax |
|
./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 |
84 |
DIAGSTATS_INI_IO |
& (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) ) |
|
./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_output.F |
103 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |
|
./pkg/diagnostics/diagstats_output.F |
104 |
DIAGSTATS_OUTPUT |
& ' (#',m,' ) in outp.Stream: ',diagSt_Fname(listId) |
|
./pkg/diagnostics/diagstats_output.F |
136 |
DIAGSTATS_OUTPUT |
& m, listId, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
143 |
DIAGSTATS_OUTPUT |
& m, listId, myTime, myIter, myThid ) |
|
./pkg/diagnostics/diagstats_output.F |
53 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
71 |
DIAGSTATS_OUTPUT |
DO m = 1,diagSt_nbFlds(listId) |
|
./pkg/diagnostics/diagstats_output.F |
72 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
74 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
87 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
88 |
DIAGSTATS_OUTPUT |
iSm = mSdiag(m,listId) |
|
./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 |