| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
1256 |
SOLIR |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1327 |
SOLIR |
rs(i,j,np+1,1)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1328 |
SOLIR |
rs(i,j,np+1,2)=rsirdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1484 |
SOLIR |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1510 |
SOLIR |
rs(i,j,k,2)=rs2t(i,j) |
|
./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 |
1680 |
SOLUV |
* rs(m,n,np+1,2),ts(m,n,np+1,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1723 |
SOLUV |
rs(i,j,np+1,1)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1724 |
SOLUV |
rs(i,j,np+1,2)=rsuvdf(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1856 |
SOLUV |
rs(i,j,k,1)=rs1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1882 |
SOLUV |
rs(i,j,k,2)=rs2t(i,j) |
|
./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 |
2160 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./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 |
2251 |
CLDFLX |
rsa(i,j,1,ih,1)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2254 |
CLDFLX |
rsa(i,j,1,ih,2)=rs(i,j,1,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2261 |
CLDFLX |
denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih)) |
|
./pkg/fizhi/fizhi_swrad.F |
2266 |
CLDFLX |
rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2282 |
CLDFLX |
denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im)) |
|
./pkg/fizhi/fizhi_swrad.F |
2287 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2308 |
CLDFLX |
rxa(i,j,np+1,1,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2310 |
CLDFLX |
rxa(i,j,np+1,2,is)=rs(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2317 |
CLDFLX |
denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2320 |
CLDFLX |
rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2335 |
CLDFLX |
denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2338 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2425 |
CLDFLX |
denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) ) |
|
./pkg/fizhi/fizhi_swrad.F |
2430 |
CLDFLX |
rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2441 |
CLDFLX |
denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is)) |
|
./pkg/fizhi/fizhi_swrad.F |
2444 |
CLDFLX |
rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih) |
|
./pkg/seaice/seaice_fgmres.F |
338 |
SEAICE_FGMRES |
_RL rs(4*imax+1,MAX_NO_THREADS),t,ro |
|
./pkg/seaice/seaice_fgmres.F |
351 |
SEAICE_FGMRES |
COMMON /SEAICE_FMRES_LOC_RL/ hh, c, s, rs, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
408 |
SEAICE_FGMRES |
rs(1,myThid) = ro |
|
./pkg/seaice/seaice_fgmres.F |
524 |
SEAICE_FGMRES |
rs(i1,myThid) = -s(i,myThid)*rs(i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
525 |
SEAICE_FGMRES |
rs(i ,myThid) = c(i,myThid)*rs(i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
531 |
SEAICE_FGMRES |
ro = abs(rs(i1,myThid)) |
|
./pkg/seaice/seaice_fgmres.F |
547 |
SEAICE_FGMRES |
rs(i,myThid) = rs(i,myThid)/hh(i,i,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
551 |
SEAICE_FGMRES |
t=rs(k,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
553 |
SEAICE_FGMRES |
t = t-hh(k,j,myThid)*rs(j,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
555 |
SEAICE_FGMRES |
rs(k,myThid) = t/hh(k,k,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
562 |
SEAICE_FGMRES |
t = rs(j,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
583 |
SEAICE_FGMRES |
rs(jj-1,myThid) = -s(jj-1,myThid)*rs(jj,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
584 |
SEAICE_FGMRES |
rs(jj ,myThid) = c(jj-1,myThid)*rs(jj,myThid) |
|
./pkg/seaice/seaice_fgmres.F |
587 |
SEAICE_FGMRES |
t = rs(j,myThid) |
|
./pkg/thsice/thsice_calc_thickn.F |
1066 |
THSICE_CALC_THICKN |
rs = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
1067 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
206 |
THSICE_CALC_THICKN |
_RL frace, rs, hq |