| File |
Line number |
Procedure |
Code |
|
./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 |
1325 |
SOLIR |
rr(i,j,np+1,1)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1326 |
SOLIR |
rr(i,j,np+1,2)=rsirbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1469 |
SOLIR |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1495 |
SOLIR |
rr(i,j,k,2)=rr2t(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 |
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 |
1721 |
SOLUV |
rr(i,j,np+1,1)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1722 |
SOLUV |
rr(i,j,np+1,2)=rsuvbm(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1841 |
SOLUV |
rr(i,j,k,1)=rr1t(i,j) |
|
./pkg/fizhi/fizhi_swrad.F |
1867 |
SOLUV |
rr(i,j,k,2)=rr2t(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 |
1948 |
DELEDD |
subroutine DELEDD(tau,ssc,g0,csm,rr,tt,td) |
|
./pkg/fizhi/fizhi_swrad.F |
1992 |
DELEDD |
_RL rr,tt,td |
|
./pkg/fizhi/fizhi_swrad.F |
2064 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2067 |
DELEDD |
rr = max(rr,zero) |
|
./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 |
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 |
2264 |
CLDFLX |
* +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih) |
|
./pkg/fizhi/fizhi_swrad.F |
2285 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2307 |
CLDFLX |
rra(i,j,np+1,1,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2309 |
CLDFLX |
rra(i,j,np+1,2,is)=rr(i,j,np+1,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2318 |
CLDFLX |
rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2336 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im) |
|
./pkg/fizhi/fizhi_swrad.F |
2428 |
CLDFLX |
* +(tda(i,j,k-1,ih,im)*rr(i,j,k,is) |
|
./pkg/fizhi/fizhi_swrad.F |
2442 |
CLDFLX |
rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih) |
|
./pkg/flt/flt_mapping.F |
182 |
FLT_MAP_IJLOCAL2XY |
I rr, bi, bj, myThid ) |
|
./pkg/flt/flt_mapping.F |
203 |
FLT_MAP_IJLOCAL2XY |
_RL rr |
|
./pkg/flt/flt_mapping.F |
216 |
FLT_MAP_IJLOCAL2XY |
IF ( rF(k) .GE. rr .AND. rr.GT.rF(k+1) ) THEN |
|
./pkg/flt/flt_mapping.F |
217 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
185 |
CHEAPAML_COARE3_FLUX |
rr=zo*usr/visa |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
189 |
CHEAPAML_COARE3_FLUX |
IF ( rr.LE.0. ) THEN |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
194 |
CHEAPAML_COARE3_FLUX |
& ' rr,zo,usr,visa=', rr, zo, usr, visa |
|
./pkg/cheapaml/cheapaml_coare3_flux.F |
206 |
CHEAPAML_COARE3_FLUX |
zoq = MIN( 1.15 _d -4, 5.5 _d -5/rr**0.6 _d 0 ) |