| File |
Line number |
Procedure |
Code |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
23 |
MDS_BYTESWAPR4 |
character*(1) cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
26 |
MDS_BYTESWAPR4 |
cc=arr(i:i) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
28 |
MDS_BYTESWAPR4 |
arr(i+3:i+3)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
29 |
MDS_BYTESWAPR4 |
cc=arr(i+1:i+1) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
31 |
MDS_BYTESWAPR4 |
arr(i+2:i+2)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
57 |
MDS_BYTESWAPR8 |
character*(1) cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
60 |
MDS_BYTESWAPR8 |
cc=arr(i:i) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
62 |
MDS_BYTESWAPR8 |
arr(i+7:i+7)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
63 |
MDS_BYTESWAPR8 |
cc=arr(i+1:i+1) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
65 |
MDS_BYTESWAPR8 |
arr(i+6:i+6)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
66 |
MDS_BYTESWAPR8 |
cc=arr(i+2:i+2) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
68 |
MDS_BYTESWAPR8 |
arr(i+5:i+5)=cc |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
69 |
MDS_BYTESWAPR8 |
cc=arr(i+3:i+3) |
|
./pkg/aim_ocn_coupler/mds_byteswap.F |
71 |
MDS_BYTESWAPR8 |
arr(i+4:i+4)=cc |
|
./pkg/fizhi/fizhi_swrad.F |
1000 |
CLDSCALE |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1027 |
CLDSCALE |
cc(i,j,1)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1028 |
CLDSCALE |
cc(i,j,2)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1029 |
CLDSCALE |
cc(i,j,3)=0.0 |
|
./pkg/fizhi/fizhi_swrad.F |
1036 |
CLDSCALE |
cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1044 |
CLDSCALE |
cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1052 |
CLDSCALE |
cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k)) |
|
./pkg/fizhi/fizhi_swrad.F |
1082 |
CLDSCALE |
fa=fcld(i,j,k)/cc(i,j,kk) |
|
./pkg/fizhi/fizhi_swrad.F |
1152 |
SOLIR |
* ict,icb,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
1227 |
SOLIR |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1530 |
SOLIR |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
1562 |
SOLUV |
* ict,icb,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
1649 |
SOLUV |
_RL tauclb(m,n,np),tauclf(m,n,np),cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
1901 |
SOLUV |
call CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2152 |
CLDFLX |
subroutine CLDFLX (m,n,np,ict,icb,cc,rr,tt,td,rs,ts, |
|
./pkg/fizhi/fizhi_swrad.F |
2192 |
CLDFLX |
_RL cc(m,n,3) |
|
./pkg/fizhi/fizhi_swrad.F |
2348 |
CLDFLX |
ch(i,j)=1.0-cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2358 |
CLDFLX |
ch(i,j)=cc(i,j,1) |
|
./pkg/fizhi/fizhi_swrad.F |
2372 |
CLDFLX |
cm(i,j)=ch(i,j)*(1.0-cc(i,j,2)) |
|
./pkg/fizhi/fizhi_swrad.F |
2382 |
CLDFLX |
cm(i,j)=ch(i,j)*cc(i,j,2) |
|
./pkg/fizhi/fizhi_swrad.F |
2396 |
CLDFLX |
ct(i,j)=cm(i,j)*(1.0-cc(i,j,3)) |
|
./pkg/fizhi/fizhi_swrad.F |
2406 |
CLDFLX |
ct(i,j)=cm(i,j)*cc(i,j,3) |
|
./pkg/fizhi/fizhi_swrad.F |
780 |
SORAD |
_RL cc(m,n,3),tauclb(m,n,np),tauclf(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
834 |
SORAD |
* cc,tauclb,tauclf) |
|
./pkg/fizhi/fizhi_swrad.F |
852 |
SORAD |
* ,fcld,cc,taual,csm,rsirbm,rsirdf,flx,flc,fdirir,fdifir) |
|
./pkg/fizhi/fizhi_swrad.F |
857 |
SORAD |
* ,fcld,cc,taual,csm,rsuvbm,rsuvdf,flx,flc |
|
./pkg/fizhi/fizhi_swrad.F |
952 |
CLDSCALE |
* cc,tauclb,tauclf) |