| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1242 |
IRRAD |
do 2000 k1=1,np |
|
./pkg/fizhi/fizhi_lwrad.F |
1401 |
IRRAD |
do 3000 k2=k1+1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1566 |
IRRAD |
if (k2 .eq. k1+1) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1573 |
IRRAD |
flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1574 |
IRRAD |
flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1578 |
IRRAD |
flxu(i,j,k1)=flxu(i,j,k1)-blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1579 |
IRRAD |
flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1592 |
IRRAD |
flcu(i,j,k1) =flcu(i,j,k1)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1593 |
IRRAD |
flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1594 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1608 |
IRRAD |
rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1611 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1612 |
IRRAD |
rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1615 |
IRRAD |
* *dlayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1630 |
IRRAD |
trantcr(i,j,k1) =trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1631 |
IRRAD |
transfc(i,j,k1) =trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1642 |
IRRAD |
dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1) |
|
./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 |
2527 |
TABLUP |
x1=sabs(i,j,k2)-sabs(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_utils.F |
733 |
CHPPRM |
integer k1,k2,nymd1,nhms1,nymd2,nhms2,i |
|
./pkg/fizhi/fizhi_utils.F |
865 |
CHPPRM |
call TIME_BOUND ( nymd,nhms, nymd1,nhms1, nymd2,nhms2, k1,k2 ) |
|
./pkg/fizhi/fizhi_utils.F |
870 |
CHPPRM |
zoch(i) = vgz0(k2,ityp(i))*facp + vgz0(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
871 |
CHPPRM |
rdcs(i) = vgrd(k2,ityp(i))*facp + vgrd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
873 |
CHPPRM |
rootl = vgrt(k2,ityp(i))*facp + vgrt(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
887 |
CHPPRM |
d = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm |
|
./pkg/fizhi/update_earth_exports.F |
721 |
GETLGR |
INTEGER i,midmon,midm,midp,id,k1,k2,kk1,kk2 |
|
./pkg/flt/flt_interp_linear.F |
138 |
FLT_TRILINEAR |
INTEGER i1, j1, k1, i2, j2, k2 |
|
./pkg/flt/flt_interp_linear.F |
168 |
FLT_TRILINEAR |
k1 = INT(kz) |
|
./pkg/flt/flt_interp_linear.F |
169 |
FLT_TRILINEAR |
ddz = kz - DFLOAT(k1) |
|
./pkg/flt/flt_interp_linear.F |
171 |
FLT_TRILINEAR |
k1 = NINT(kz) |
|
./pkg/flt/flt_interp_linear.F |
172 |
FLT_TRILINEAR |
ddz = 0.5 _d 0 + kz - DFLOAT(k1) |
|
./pkg/flt/flt_interp_linear.F |
178 |
FLT_TRILINEAR |
k2 = k1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
182 |
FLT_TRILINEAR |
k1 = MIN( MAX( k1, 1 ), Nr ) |
|
./pkg/flt/flt_interp_linear.F |
187 |
FLT_TRILINEAR |
uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
188 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k1,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
189 |
FLT_TRILINEAR |
& + ( ddx *(1.-ddy)*var(i2,j1,k1,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
190 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k1,bi,bj) ) ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
52 |
MON_STATS_LATBND_RL |
INTEGER km, k1, k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
75 |
MON_STATS_LATBND_RL |
k1 = 1 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
78 |
MON_STATS_LATBND_RL |
k1 = kLoc |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
98 |
MON_STATS_LATBND_RL |
DO k=k1,k2 |
|
./pkg/seaice/seaice_fgmres.F |
343 |
SEAICE_FGMRES |
integer i1, ii, j, jj, k, k1!, n1 |
|
./pkg/seaice/seaice_fgmres.F |
498 |
SEAICE_FGMRES |
k1 = k-1 |
|
./pkg/seaice/seaice_fgmres.F |
499 |
SEAICE_FGMRES |
t = hh(k1,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
500 |
SEAICE_FGMRES |
hh(k1,i,myThid) = c(k1,myThid)*t+s(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
501 |
SEAICE_FGMRES |
hh(k,i,myThid) = -s(k1,myThid)*t+c(k1,myThid)*hh(k,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
550 |
SEAICE_FGMRES |
k1 = k+1 |
|
./pkg/seaice/seaice_fgmres.F |
552 |
SEAICE_FGMRES |
do j=k1,i |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
263 |
DIAGNOSTICS_SET_POINTERS |
DO k1=1,nlevels(ld),20 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
264 |
DIAGNOSTICS_SET_POINTERS |
k2 = MIN(nlevels(ld),k1+19) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
265 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, kLev |
|
./pkg/diagnostics/diagnostics_summary.F |
101 |
DIAGNOSTICS_SUMMARY |
DO k1=1,nlevels(ld),10 |
|
./pkg/diagnostics/diagnostics_summary.F |
102 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+9) |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
106 |
DIAGNOSTICS_SUMMARY |
DO k1=1,nlevels(ld),25 |
|
./pkg/diagnostics/diagnostics_summary.F |
107 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+24) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
34 |
DIAGNOSTICS_SUMMARY |
INTEGER j, k, k1, k2, l |