| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1096 |
IRRAD |
taux=taucl(i,j,k,1)+taucl(i,j,k,2)+taucl(i,j,k,3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1098 |
IRRAD |
if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1122 |
IRRAD |
taux=taux*(1.-ww*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
1128 |
IRRAD |
clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux))) |
|
./pkg/fizhi/fizhi_lwrad.F |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
1535 |
IRRAD |
tranal(i,j)=tranal(i,j)*exp(-1.66*taux) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./pkg/fizhi/fizhi_swrad.F |
1013 |
CLDSCALE |
_RL fm,ft,fa,xai,taux |
|
./pkg/fizhi/fizhi_swrad.F |
1085 |
CLDSCALE |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1086 |
CLDSCALE |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1094 |
CLDSCALE |
taux=min(taux,32. _d 0) |
|
./pkg/fizhi/fizhi_swrad.F |
1097 |
CLDSCALE |
ft=(log10(taux)-t1)/dt |
|
./pkg/fizhi/fizhi_swrad.F |
1132 |
CLDSCALE |
tauclb(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1147 |
CLDSCALE |
tauclf(i,j,k) = taux*xai |
|
./pkg/fizhi/fizhi_swrad.F |
1261 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
|
./pkg/fizhi/fizhi_swrad.F |
1353 |
SOLIR |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1354 |
SOLIR |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1363 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
|
./pkg/fizhi/fizhi_swrad.F |
1678 |
SOLUV |
_RL taux,reff1,reff2,g1,g2,asycl(m,n,np) |
|
./pkg/fizhi/fizhi_swrad.F |
1744 |
SOLUV |
taux=taucld(i,j,k,1)+taucld(i,j,k,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1745 |
SOLUV |
if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then |
|
./pkg/fizhi/fizhi_swrad.F |
1752 |
SOLUV |
asyclt(i,j)=(g1+g2)/taux |
|
./pkg/seaice/seaice_get_dynforcing.F |
160 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
201 |
SEAICE_GET_DYNFORCING |
taux(I,J,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
236 |
SEAICE_GET_DYNFORCING |
taux (I,J,bi,bj) = CDAIR(I,J)*FU(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
44 |
SEAICE_GET_DYNFORCING |
_RL taux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_get_dynforcing.F |
9 |
SEAICE_GET_DYNFORCING |
O taux, tauy, |
|
./pkg/seaice/seaice_ocean_stress.F |
67 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |