| 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 |
796 |
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 |
46 |
FLT_EXCH2 |
INTEGER imax, imax2, m |
|
./pkg/flt/flt_exch2.F |
81 |
FLT_EXCH2 |
DO m=1,imax2 |
|
./pkg/flt/flt_exch2.F |
82 |
FLT_EXCH2 |
fltbuf_send(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exch2.F |
83 |
FLT_EXCH2 |
fltbuf_recv(m,bi,bj,N) = 0. |
|
./pkg/flt/flt_exchg.F |
311 |
FLT_EXCHG |
DO m=1,imax2 |
|
./pkg/flt/flt_exchg.F |
312 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
313 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
314 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
315 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
47 |
FLT_EXCHG |
INTEGER ip, jp, jl, m, npNew |
|
./pkg/flt/flt_exchg.F |
78 |
FLT_EXCHG |
DO m=1,imax2 |
|
./pkg/flt/flt_exchg.F |
79 |
FLT_EXCHG |
fltbuf_sendE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
80 |
FLT_EXCHG |
fltbuf_sendW(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
81 |
FLT_EXCHG |
fltbuf_recvE(m,bi,bj) = 0. |
|
./pkg/flt/flt_exchg.F |
82 |
FLT_EXCHG |
fltbuf_recvW(m,bi,bj) = 0. |
|
./pkg/gmredi/gmredi_calc_eigs.F |
110 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
111 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
199 |
GMREDI_CALC_EIGS |
DO m=0,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
200 |
GMREDI_CALC_EIGS |
eigval(m) = -HUGE(zeroRL) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
206 |
GMREDI_CALC_EIGS |
DO m=1,MIN(nmodes,klow(i,j)-1) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
208 |
GMREDI_CALC_EIGS |
IF (eigR(k).LT.eigval(m-1)) THEN |
|
./pkg/gmredi/gmredi_calc_eigs.F |
209 |
GMREDI_CALC_EIGS |
eigval(m) = MAX(eigval(m),eigR(k)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
210 |
GMREDI_CALC_EIGS |
IF (eigval(m).EQ.eigR(k)) idx=k |
|
./pkg/gmredi/gmredi_calc_eigs.F |
215 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
219 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vecs(k,idx) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
227 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
228 |
GMREDI_CALC_EIGS |
vec(m,i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
308 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
309 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = -COS(intN(i,j,k)/(m*c1(i,j))) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
320 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
321 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
328 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
336 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
337 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j)/(-rlow(i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
344 |
GMREDI_CALC_EIGS |
DO m=1,nEigs(i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
345 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k) - vecint(m,i,j) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
355 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
356 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_calc_eigs.F |
364 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
365 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + |
|
./pkg/gmredi/gmredi_calc_eigs.F |
367 |
GMREDI_CALC_EIGS |
& *vec(m,i,j,k)*vec(m,i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
375 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
376 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = SQRT(vecint(m,i,j)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
384 |
GMREDI_CALC_EIGS |
DO m=1,nmodes |
|
./pkg/gmredi/gmredi_calc_eigs.F |
385 |
GMREDI_CALC_EIGS |
vec(m,i,j,k) = vec(m,i,j,k)/(vecint(m,i,j)+small) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
52 |
GMREDI_CALC_EIGS |
INTEGER i,j,k,kk,m |
|
./pkg/gmredi/gmredi_k3d.F |
52 |
GMREDI_K3D |
INTEGER i,j,k,kk,m,kp1 |
|
./pkg/gmredi/gmredi_k3d.F |
863 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
864 |
GMREDI_K3D |
XimX(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
871 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
873 |
GMREDI_K3D |
XimX(m,i,j) = XimX(m,i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
875 |
GMREDI_K3D |
& *Kdqdx(i,j,k)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
892 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
894 |
GMREDI_K3D |
& + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
914 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
915 |
GMREDI_K3D |
XimY(m,i,j) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
922 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
924 |
GMREDI_K3D |
XimY(m,i,j) = XimY(m,i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
926 |
GMREDI_K3D |
& *Kdqdy(i,j,k)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
943 |
GMREDI_K3D |
DO m=1,GM_K3D_NModes |
|
./pkg/gmredi/gmredi_k3d.F |
945 |
GMREDI_K3D |
& + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_write_pickup.F |
110 |
GMREDI_WRITE_PICKUP |
m = m + 1 |
|
./pkg/gmredi/gmredi_write_pickup.F |
112 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
114 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
130 |
GMREDI_WRITE_PICKUP |
m = m + 1 |
|
./pkg/gmredi/gmredi_write_pickup.F |
132 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
134 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
139 |
GMREDI_WRITE_PICKUP |
nm = -m*Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
142 |
GMREDI_WRITE_PICKUP |
m = m + 1 |
|
./pkg/gmredi/gmredi_write_pickup.F |
147 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/gmredi/gmredi_write_pickup.F |
149 |
GMREDI_WRITE_PICKUP |
nWrFlds = m |
|
./pkg/gmredi/gmredi_write_pickup.F |
162 |
GMREDI_WRITE_PICKUP |
m = 1 |
|
./pkg/gmredi/gmredi_write_pickup.F |
165 |
GMREDI_WRITE_PICKUP |
m = Nr |
|
./pkg/gmredi/gmredi_write_pickup.F |
171 |
GMREDI_WRITE_PICKUP |
& 0, 0, m, ' ', |
|
./pkg/gmredi/gmredi_write_pickup.F |
54 |
GMREDI_WRITE_PICKUP |
INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar |
|
./pkg/gmredi/gmredi_write_pickup.F |
75 |
GMREDI_WRITE_PICKUP |
m = 0 |
|
./pkg/gmredi/gmredi_write_pickup.F |
91 |
GMREDI_WRITE_PICKUP |
m = m + 1 |
|
./pkg/gmredi/gmredi_write_pickup.F |
93 |
GMREDI_WRITE_PICKUP |
& vec, -m, myIter, myThid ) |
|
./pkg/gmredi/gmredi_write_pickup.F |
95 |
GMREDI_WRITE_PICKUP |
IF (m.LE.listDim) wrFldList(m) = fieldname |
|
./pkg/layers/layers_fluxcalc.F |
715 |
LAYERS_LOCATE |
I xx,n,m,sNx,sNy,x, |
|
./pkg/layers/layers_fluxcalc.F |
737 |
LAYERS_LOCATE |
INTEGER n,m,sNx,sNy |
|
./pkg/layers/layers_fluxcalc.F |
761 |
LAYERS_LOCATE |
DO l = 1,m |
|
./pkg/profiles/profiles_init_fixed.F |
153 |
PROFILES_INIT_FIXED |
do m=1,NLEVELMAX |
|
./pkg/profiles/profiles_init_fixed.F |
156 |
PROFILES_INIT_FIXED |
profiles_data_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
157 |
PROFILES_INIT_FIXED |
profiles_weight_buff(m,l,k,bi,bj)=0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
41 |
PROFILES_INIT_FIXED |
integer i,j,k,l,m,bi,bj,iG,jG,num_file,ProfNo_tile |
|
./pkg/profiles/profiles_init_fixed.F |
786 |
PROFILES_INIT_FIXED |
do m=1,NLEVELCOMBMAX |
|
./pkg/profiles/profiles_init_fixed.F |
787 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj)=-999. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
790 |
PROFILES_INIT_FIXED |
m = 1 |
|
./pkg/profiles/profiles_init_fixed.F |
794 |
PROFILES_INIT_FIXED |
if(m.EQ.1) then |
|
./pkg/profiles/profiles_init_fixed.F |
795 |
PROFILES_INIT_FIXED |
prof_depth_comb(m,bi,bj) = prof_depth(num_file, k,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
796 |
PROFILES_INIT_FIXED |
m = m + 1 |
|
./pkg/profiles/profiles_init_fixed.F |
840 |
PROFILES_INIT_FIXED |
if(m.GE.NLEVELCOMBMAX-2)then |
|
./pkg/profiles/profiles_init_fixed.F |
850 |
PROFILES_INIT_FIXED |
do m=1,NLEVELCOMBMAX |
|
./pkg/profiles/profiles_init_fixed.F |
851 |
PROFILES_INIT_FIXED |
if(prof_depth_comb(m,bi,bj) .GE. 0. _d 0 |
|
./pkg/profiles/profiles_init_fixed.F |
852 |
PROFILES_INIT_FIXED |
& .AND. NLEVELCOMB.LT.m)then |
|
./pkg/profiles/profiles_init_fixed.F |
853 |
PROFILES_INIT_FIXED |
NLEVELCOMB = m |
|
./pkg/profiles/profiles_init_fixed.F |
854 |
PROFILES_INIT_FIXED |
if(m.GE.NLEVELCOMBMAX-2)then |
|
./pkg/profiles/profiles_init_fixed.F |
857 |
PROFILES_INIT_FIXED |
& m, NLEVELCOMBMAX |
|
./pkg/profiles/profiles_init_fixed.F |
887 |
PROFILES_INIT_FIXED |
DO m=0,sNy+1 |
|
./pkg/profiles/profiles_init_fixed.F |
889 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=xC(l,m,bi,bj) |
|
./pkg/profiles/profiles_init_fixed.F |
907 |
PROFILES_INIT_FIXED |
DO m=0,sNy+1 |
|
./pkg/profiles/profiles_init_fixed.F |
909 |
PROFILES_INIT_FIXED |
xy_buffer_r8(l,m)=yC(l,m,bi,bj) |
|
./pkg/seaice/lsr.F |
481 |
LSR |
DO m = 1, SEAICElinearIterMax |
|
./pkg/seaice/lsr.F |
53 |
LSR |
INTEGER i, j, m, bi, bj, j1, j2, im, jm |
|
./pkg/seaice/lsr.F |
611 |
LSR |
IF ( doIterate4u.AND.MOD(m,SOLV_NCHECK).EQ.0) THEN |
|
./pkg/seaice/lsr.F |
628 |
LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/lsr.F |
631 |
LSR |
ICOUNT1=m |
|
./pkg/seaice/lsr.F |
636 |
LSR |
IF ( doIterate4v.AND.MOD(m,SOLV_NCHECK).EQ.0) THEN |
|
./pkg/seaice/lsr.F |
651 |
LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/lsr.F |
654 |
LSR |
ICOUNT2=m |
|
./pkg/seaice/seaice_fgmres.F |
140 |
SEAICE_MAP_RS2VEC |
INTEGER ii, jj, m |
|
./pkg/seaice/seaice_fgmres.F |
143 |
SEAICE_MAP_RS2VEC |
m = n/2 |
|
./pkg/seaice/seaice_fgmres.F |
174 |
SEAICE_MAP_RS2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
183 |
SEAICE_MAP_RS2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
48 |
SEAICE_MAP2VEC |
INTEGER ii, jj, m |
|
./pkg/seaice/seaice_fgmres.F |
51 |
SEAICE_MAP2VEC |
m = n/2 |
|
./pkg/seaice/seaice_fgmres.F |
636 |
SEAICE_SCALPROD |
integer i,m,mp1,bi,bj |
|
./pkg/seaice/seaice_fgmres.F |
639 |
SEAICE_SCALPROD |
m = mod(n,5) |
|
./pkg/seaice/seaice_fgmres.F |
640 |
SEAICE_SCALPROD |
mp1 = m + 1 |
|
./pkg/seaice/seaice_fgmres.F |
646 |
SEAICE_SCALPROD |
if ( m .ne. 0 ) then |
|
./pkg/seaice/seaice_fgmres.F |
647 |
SEAICE_SCALPROD |
do i = 1,m |
|
./pkg/seaice/seaice_fgmres.F |
82 |
SEAICE_MAP2VEC |
vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
91 |
SEAICE_MAP2VEC |
yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
664 |
SEAICE_LSR |
DO m = 1, SOLV_MAX_TMP |
|
./pkg/seaice/seaice_lsr.F |
668 |
SEAICE_LSR |
itmpkey2 = (itmpkey-1)*SOLV_MAX_FIXED + MIN(m,SOLV_MAX_FIXED) |
|
./pkg/seaice/seaice_lsr.F |
724 |
SEAICE_LSR |
iSubIter = SOLV_MAX_TMP*(ipass-1) + m |
|
./pkg/seaice/seaice_lsr.F |
807 |
SEAICE_LSR |
IF ( doIterate4u.AND.MOD(m,SOLV_NCHECK).EQ.0) THEN |
|
./pkg/seaice/seaice_lsr.F |
824 |
SEAICE_LSR |
IF(m.GT.1.AND.S1.GT.S1A) WFAU=WFAU2 |
|
./pkg/seaice/seaice_lsr.F |
827 |
SEAICE_LSR |
ICOUNT1=m |
|
./pkg/seaice/seaice_lsr.F |
832 |
SEAICE_LSR |
IF ( doIterate4v.AND.MOD(m,SOLV_NCHECK).EQ.0) THEN |
|
./pkg/seaice/seaice_lsr.F |
83 |
SEAICE_LSR |
INTEGER i, j, m, bi, bj |
|
./pkg/seaice/seaice_lsr.F |
847 |
SEAICE_LSR |
IF(m.GT.1.AND.S2.GT.S2A) WFAV=WFAV2 |
|
./pkg/seaice/seaice_lsr.F |
850 |
SEAICE_LSR |
ICOUNT2=m |
|
./pkg/seaice/seaice_preconditioner.F |
280 |
SEAICE_PRECONDITIONER |
DO m = 1, SEAICEpreconLinIter |
|
./pkg/seaice/seaice_preconditioner.F |
83 |
SEAICE_PRECONDITIONER |
INTEGER i, j, m, bi, bj |
|
./pkg/streamice/streamice_bstress_exponent.F |
11 |
NO PROCEDURE |
STREAMICE_BSTRESS_EXP = speed**(m-1) |
|
./pkg/streamice/streamice_bstress_exponent.F |
6 |
NO PROCEDURE |
_RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m) |
|
./pkg/streamice/streamice_bstress_exponent.F |
8 |
NO PROCEDURE |
_RL speed, m |
|
./pkg/streamice/streamice_cg_functions.F |
122 |
STREAMICE_CG_ACTION |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
135 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
136 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
161 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
162 |
STREAMICE_CG_ACTION |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
65 |
STREAMICE_CG_ACTION |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj |
|
./pkg/streamice/streamice_cg_functions.F |
720 |
STREAMICE_CG_ADIAG |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
743 |
STREAMICE_CG_ADIAG |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
756 |
STREAMICE_CG_ADIAG |
ux = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
757 |
STREAMICE_CG_ADIAG |
uy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
772 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
773 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
789 |
STREAMICE_CG_ADIAG |
vx = DPhi (i,j,bi,bj,m,n,1) |
|
./pkg/streamice/streamice_cg_functions.F |
790 |
STREAMICE_CG_ADIAG |
vy = DPhi (i,j,bi,bj,m,n,2) |
|
./pkg/streamice/streamice_cg_functions.F |
805 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
806 |
STREAMICE_CG_ADIAG |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
888 |
STREAMICE_CG_BOUND_VALS |
INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n |
|
./pkg/streamice/streamice_cg_functions.F |
950 |
STREAMICE_CG_BOUND_VALS |
m = 2*(jnode-1)+inode |
|
./pkg/streamice/streamice_cg_functions.F |
964 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) + |
|
./pkg/streamice/streamice_cg_functions.F |
965 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(2*exy)) |
|
./pkg/streamice/streamice_cg_functions.F |
990 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) + |
|
./pkg/streamice/streamice_cg_functions.F |
991 |
STREAMICE_CG_BOUND_VALS |
& DPhi(i,j,bi,bj,m,n,1)*(2*exy)) |
|
./pkg/streamice/streamice_check.F |
35 |
STREAMICE_CHECK |
INTEGER m,n,k |
|
./pkg/streamice/streamice_init_fixed.F |
100 |
STREAMICE_INIT_FIXED |
streamice_sigma_coord (m) = 1./Nr * (m-0.5) |
|
./pkg/streamice/streamice_init_fixed.F |
101 |
STREAMICE_INIT_FIXED |
streamice_delsigma (m) = 1./Nr |
|
./pkg/streamice/streamice_init_fixed.F |
36 |
STREAMICE_INIT_FIXED |
INTEGER bi, bj, i, j, Gi, Gj, m, k |
|
./pkg/streamice/streamice_init_fixed.F |
99 |
STREAMICE_INIT_FIXED |
do m=1,Nr |
|
./pkg/streamice/streamice_init_phi.F |
31 |
STREAMICE_INIT_PHI |
INTEGER bi, bj, i, j, xnode, ynode, xq, yq, m, n, p, kx, ky |
|
./pkg/streamice/streamice_init_phi.F |
71 |
STREAMICE_INIT_PHI |
DO m = 1,4 |
|
./pkg/streamice/streamice_init_phi.F |
73 |
STREAMICE_INIT_PHI |
xnode = 2 - mod(m,2) |
|
./pkg/streamice/streamice_init_phi.F |
74 |
STREAMICE_INIT_PHI |
ynode = floor ((m+1)/2.0) |
|
./pkg/streamice/streamice_init_phi.F |
81 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,1) = |
|
./pkg/streamice/streamice_init_phi.F |
83 |
STREAMICE_INIT_PHI |
Dphi (i,j,bi,bj,m,n,2) = |
|
./pkg/streamice/streamice_vel_phistage.F |
148 |
STREAMICE_VEL_PHISTAGE |
DO m=Nr,1,-1 |
|
./pkg/streamice/streamice_vel_phistage.F |
149 |
STREAMICE_VEL_PHISTAGE |
visc_streamice_full(i,j,m,bi,bj)= visc_full_new_si(i,j,m, |
|
./pkg/streamice/streamice_vel_phistage.F |
79 |
STREAMICE_VEL_PHISTAGE |
INTEGER i, j, bi, bj, cg_iters, m |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
114 |
STREAMICE_VISC_BETA_HYBRID |
DO m=Nr,1,-1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
125 |
STREAMICE_VISC_BETA_HYBRID |
ikey_1 = m |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
137 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_uz (m) = streamice_taubx(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
138 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
139 |
STREAMICE_VISC_BETA_HYBRID |
& * streamice_sigma_coord(m) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
141 |
STREAMICE_VISC_BETA_HYBRID |
streamice_vert_shear_vz (m) = streamice_tauby(i,j,bi,bj) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
142 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
143 |
STREAMICE_VISC_BETA_HYBRID |
& * streamice_sigma_coord(m) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
147 |
STREAMICE_VISC_BETA_HYBRID |
& 0.25 * streamice_vert_shear_uz(m)**2 + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
148 |
STREAMICE_VISC_BETA_HYBRID |
& 0.25 * streamice_vert_shear_vz(m)**2) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
152 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
154 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
156 |
STREAMICE_VISC_BETA_HYBRID |
& .5 * B_glen(i,j,m,bi,bj)**2 * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
160 |
STREAMICE_VISC_BETA_HYBRID |
visc_full_new_si(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
162 |
STREAMICE_VISC_BETA_HYBRID |
visc_streamice_full(i,j,m,bi,bj) = |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
169 |
STREAMICE_VISC_BETA_HYBRID |
& H_streamice(i,j,bi,bj) * streamice_delsigma (m) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
171 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
173 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
176 |
STREAMICE_VISC_BETA_HYBRID |
omega_temp (m) = omega_temp(m+1) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
177 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_sigma_coord(m) * streamice_delsigma(m) / |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
179 |
STREAMICE_VISC_BETA_HYBRID |
& visc_full_new_si(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
181 |
STREAMICE_VISC_BETA_HYBRID |
& visc_streamice_full(i,j,m,bi,bj) |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
184 |
STREAMICE_VISC_BETA_HYBRID |
u_shear (m) = u_shear (m+1) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
185 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_vert_shear_uz (m) * streamice_delsigma (m) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
188 |
STREAMICE_VISC_BETA_HYBRID |
v_shear (m) = v_shear (m+1) + |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
189 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_vert_shear_vz (m) * streamice_delsigma (m) * |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
197 |
STREAMICE_VISC_BETA_HYBRID |
DO m=Nr,1,-1 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
200 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_delsigma(m)*(omega_temp(m)+omega_temp(m+1))*.5 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
204 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_delsigma(m)*(u_shear(m)+u_shear(m+1))*.5 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
207 |
STREAMICE_VISC_BETA_HYBRID |
& streamice_delsigma(m)*(v_shear(m)+v_shear(m+1))*.5 |
|
./pkg/streamice/streamice_visc_beta_hybrid.F |
42 |
STREAMICE_VISC_BETA_HYBRID |
INTEGER i, j, bi, bj, k, l, m |
|
./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 |
|
./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/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 = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
92 |
DIAG_VEGTILE_FILL |
ipointer = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_check.F |
103 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
104 |
DIAGNOSTICS_CHECK |
IF ( fnames(ld).EQ.fnames(m) ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
109 |
DIAGNOSTICS_CHECK |
& '1rst (m=', m, ' ): ', fnames(m) |
|
./pkg/diagnostics/diagnostics_check.F |
120 |
DIAGNOSTICS_CHECK |
DO m = 1,ld-1 |
|
./pkg/diagnostics/diagnostics_check.F |
121 |
DIAGNOSTICS_CHECK |
IF ( diagSt_Fname(ld).EQ.diagSt_Fname(m) ) THEN |
|
./pkg/diagnostics/diagnostics_check.F |
126 |
DIAGNOSTICS_CHECK |
& '1rst (m=', m, ' ): ', diagSt_Fname(m) |
|
./pkg/diagnostics/diagnostics_check.F |
32 |
DIAGNOSTICS_CHECK |
INTEGER k,m |
|
./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 = ABS(jdiag(m,listId)) |
|
./pkg/diagnostics/diagnostics_clear.F |
37 |
DIAGNOSTICS_CLEAR |
ipt = idiag(m,listId) |
|
./pkg/diagnostics/diagnostics_fill.F |
119 |
DIAGNOSTICS_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fill.F |
120 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
121 |
DIAGNOSTICS_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
123 |
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 |
94 |
DIAGNOSTICS_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fill.F |
95 |
DIAGNOSTICS_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
96 |
DIAGNOSTICS_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill.F |
98 |
DIAGNOSTICS_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fill.F |
99 |
DIAGNOSTICS_FILL |
wFac = MIN( jdiag(m,n), 0 ) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
119 |
DIAGNOSTICS_FILL_RS |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
120 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
121 |
DIAGNOSTICS_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
123 |
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 |
94 |
DIAGNOSTICS_FILL_RS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
95 |
DIAGNOSTICS_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
96 |
DIAGNOSTICS_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
98 |
DIAGNOSTICS_FILL_RS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
99 |
DIAGNOSTICS_FILL_RS |
wFac = MIN( jdiag(m,n), 0 ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
108 |
DIAGNOSTICS_FRACT_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
109 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
110 |
DIAGNOSTICS_FRACT_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
112 |
DIAGNOSTICS_FRACT_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
147 |
DIAGNOSTICS_FRACT_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
148 |
DIAGNOSTICS_FRACT_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
149 |
DIAGNOSTICS_FRACT_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
151 |
DIAGNOSTICS_FRACT_FILL |
ndId = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
79 |
DIAGNOSTICS_FRACT_FILL |
INTEGER m, n, j, k, l, bi, bj |
|
./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/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 |
58 |
DIAGNOSTICS_LIST_CHECK |
DO m = m1,nbFlds(n) |
|
./pkg/diagnostics/diagnostics_list_check.F |
60 |
DIAGNOSTICS_LIST_CHECK |
diagName = fldsList(m,n) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
152 |
DIAGNOSTICS_READ_PICKUP |
DO m = 1,nfields(n) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
153 |
DIAGNOSTICS_READ_PICKUP |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, ndId, n, m |
|
./pkg/diagnostics/diagnostics_readparms.F |
148 |
DIAGNOSTICS_READPARMS |
DO m = 1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
149 |
DIAGNOSTICS_READPARMS |
fields(m,l) = blkName |
|
./pkg/diagnostics/diagnostics_readparms.F |
186 |
DIAGNOSTICS_READPARMS |
DO m = 1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
187 |
DIAGNOSTICS_READPARMS |
stat_fields(m,l) = blkName |
|
./pkg/diagnostics/diagnostics_readparms.F |
250 |
DIAGNOSTICS_READPARMS |
DO m = 1,numperList |
|
./pkg/diagnostics/diagnostics_readparms.F |
251 |
DIAGNOSTICS_READPARMS |
flds(m,n) = blkName |
|
./pkg/diagnostics/diagnostics_readparms.F |
348 |
DIAGNOSTICS_READPARMS |
DO m=1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
349 |
DIAGNOSTICS_READPARMS |
diagName = DIAGS_RENAMED( fields(m,l), myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
359 |
DIAGNOSTICS_READPARMS |
& 'when trying to add field (m=', m, ' ): ', diagName |
|
./pkg/diagnostics/diagnostics_readparms.F |
405 |
DIAGNOSTICS_READPARMS |
DO m = 1,numperList |
|
./pkg/diagnostics/diagnostics_readparms.F |
406 |
DIAGNOSTICS_READPARMS |
diagSt_Flds(m,n) = blkName |
|
./pkg/diagnostics/diagnostics_readparms.F |
484 |
DIAGNOSTICS_READPARMS |
DO m=1,fdimLoc |
|
./pkg/diagnostics/diagnostics_readparms.F |
485 |
DIAGNOSTICS_READPARMS |
diagName = DIAGS_RENAMED( stat_fields(m,l), myThid ) |
|
./pkg/diagnostics/diagnostics_readparms.F |
495 |
DIAGNOSTICS_READPARMS |
& 'when trying to add stat_field (m=', m, ' ): ', diagName |
|
./pkg/diagnostics/diagnostics_readparms.F |
587 |
DIAGNOSTICS_READPARMS |
m = MIN(nlevels(n),l+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
588 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,1P10E10.3)')' interp: ', (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
595 |
DIAGNOSTICS_READPARMS |
m = MIN(nlevels(n),l+19) |
|
./pkg/diagnostics/diagnostics_readparms.F |
596 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,n),k=l,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
601 |
DIAGNOSTICS_READPARMS |
m = MIN(nfields(n),nf+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
602 |
DIAGNOSTICS_READPARMS |
WRITE(msgBuf,'(21A)') ' Fields: ',(' ',flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
629 |
DIAGNOSTICS_READPARMS |
m = MIN(diagSt_nbFlds(n),nf+9) |
|
./pkg/diagnostics/diagnostics_readparms.F |
631 |
DIAGNOSTICS_READPARMS |
& (' ',diagSt_Flds(l,n),l=nf,m) |
|
./pkg/diagnostics/diagnostics_readparms.F |
88 |
DIAGNOSTICS_READPARMS |
INTEGER j,k,l,n,m,nf |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
100 |
DIAGNOSTICS_SCALE_FILL |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
101 |
DIAGNOSTICS_SCALE_FILL |
wFac = MIN( jdiag(m,n), 0 ) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
121 |
DIAGNOSTICS_SCALE_FILL |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
122 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.diagSt_Flds(m,n) .AND. iSdiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
123 |
DIAGNOSTICS_SCALE_FILL |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
125 |
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 |
96 |
DIAGNOSTICS_SCALE_FILL |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
97 |
DIAGNOSTICS_SCALE_FILL |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
98 |
DIAGNOSTICS_SCALE_FILL |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
100 |
DIAGNOSTICS_SCALE_FILL_RS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
101 |
DIAGNOSTICS_SCALE_FILL_RS |
wFac = MIN( jdiag(m,n), 0 ) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
121 |
DIAGNOSTICS_SCALE_FILL_RS |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
122 |
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 |
123 |
DIAGNOSTICS_SCALE_FILL_RS |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
125 |
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 |
96 |
DIAGNOSTICS_SCALE_FILL_RS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
97 |
DIAGNOSTICS_SCALE_FILL_RS |
IF ( chardiag.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
98 |
DIAGNOSTICS_SCALE_FILL_RS |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
108 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
111 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
116 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
119 |
DIAGNOSTICS_SWITCH_ONOFF |
ip = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
199 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
200 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
202 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
212 |
DIAGNOSTICS_SWITCH_ONOFF |
DO m=1,diagSt_nbActv(n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
213 |
DIAGNOSTICS_SWITCH_ONOFF |
iSp = iSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
215 |
DIAGNOSTICS_SWITCH_ONOFF |
nd = jSdiag(m,n) |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
46 |
DIAGNOSTICS_SWITCH_ONOFF |
INTEGER m, n, nd |
|
./pkg/diagnostics/diagnostics_utils.F |
249 |
DIAGNOSTICS_GET_POINTERS |
INTEGER n,m |
|
./pkg/diagnostics/diagnostics_utils.F |
259 |
DIAGNOSTICS_GET_POINTERS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
260 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
261 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
262 |
DIAGNOSTICS_GET_POINTERS |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
263 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(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 |
ip = ABS(idiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
284 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
288 |
DIAGNOSTICS_GET_POINTERS |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
289 |
DIAGNOSTICS_GET_POINTERS |
IF ( ip.EQ.0 .AND. diagName.EQ.flds(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
290 |
DIAGNOSTICS_GET_POINTERS |
& .AND. idiag(m,n).NE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
291 |
DIAGNOSTICS_GET_POINTERS |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_utils.F |
54 |
DIAGNOSTICS_COUNT |
INTEGER m, n |
|
./pkg/diagnostics/diagnostics_utils.F |
70 |
DIAGNOSTICS_COUNT |
DO m=1,nActive(n) |
|
./pkg/diagnostics/diagnostics_utils.F |
71 |
DIAGNOSTICS_COUNT |
IF ( diagName.EQ.flds(m,n) .AND. idiag(m,n).GT.0 ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
72 |
DIAGNOSTICS_COUNT |
ipt = idiag(m,n) |
|
./pkg/diagnostics/diagnostics_utils.F |
74 |
DIAGNOSTICS_COUNT |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
188 |
DIAGNOSTICS_WRITE_PICKUP |
DO m = 1,nfields(n) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
189 |
DIAGNOSTICS_WRITE_PICKUP |
ndId = ABS(jdiag(m,n)) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
54 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dUnit, ndId, 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) |
|
./pkg/diagnostics/diagstats_ini_io.F |
37 |
DIAGSTATS_INI_IO |
INTEGER m, n, j, iL, nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
88 |
DIAGSTATS_INI_IO |
& (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
92 |
DIAGSTATS_INI_IO |
& ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) ) |
|
./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 |
48 |
DIAGSTATS_OUTPUT |
INTEGER j, m, ndId, iSp, iSm |
|
./pkg/diagnostics/diagstats_output.F |
66 |
DIAGSTATS_OUTPUT |
DO m = 1,diagSt_nbFlds(listId) |
|
./pkg/diagnostics/diagstats_output.F |
67 |
DIAGSTATS_OUTPUT |
ndId = jSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
69 |
DIAGSTATS_OUTPUT |
IF ( iSdiag(m,listId).NE.0 .AND. gcode(5:5).NE.'D' ) THEN |
|
./pkg/diagnostics/diagstats_output.F |
82 |
DIAGSTATS_OUTPUT |
iSp = ABS(iSdiag(m,listId)) |
|
./pkg/diagnostics/diagstats_output.F |
83 |
DIAGSTATS_OUTPUT |
iSm = mSdiag(m,listId) |
|
./pkg/diagnostics/diagstats_output.F |
98 |
DIAGSTATS_OUTPUT |
& '- WARNING - diagSt.#',ndId, ' : ',diagSt_Flds(m,listId), |
|
./pkg/diagnostics/diagstats_output.F |
99 |
DIAGSTATS_OUTPUT |
& ' (#',m,' ) in outp.Stream: ',diagSt_Fname(listId) |