| 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 |
14 |
SEAICE_GET_DYNFORCING |
O taux, tauy, |
|
./pkg/seaice/seaice_get_dynforcing.F |
189 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)= 0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
232 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj)=0.5 _d 0 * |
|
./pkg/seaice/seaice_get_dynforcing.F |
267 |
SEAICE_GET_DYNFORCING |
taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
282 |
SEAICE_GET_DYNFORCING |
CALL DIAGNOSTICS_FILL( taux, 'SItaux ', 0,1, 0,1,1, myThid ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
291 |
SEAICE_GET_DYNFORCING |
locVar(i,j) = taux(i,j,bi,bj)*locFrac |
|
./pkg/seaice/seaice_get_dynforcing.F |
59 |
SEAICE_GET_DYNFORCING |
_RL taux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_ocean_stress.F |
68 |
SEAICE_OCEAN_STRESS |
& + areaW*taux(I,J,bi,bj) |
|
./pkg/atm_phys/atm_phys_driver.F |
146 |
ATM_PHYS_DRIVER |
_RL taux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/atm_phys/atm_phys_driver.F |
162 |
ATM_PHYS_DRIVER |
U t_surf, taux, |
|
./pkg/atm_phys/atm_phys_driver.F |
438 |
ATM_PHYS_DRIVER |
taux(1:sNx,1:sNy,bi,bj) = -flux_u |
|
./pkg/atm_phys/atm_phys_driver.F |
512 |
ATM_PHYS_DRIVER |
CALL EXCH_UV_AGRID_3D_RL( taux, tauy, |
|
./pkg/atm_phys/atm_phys_driver.F |
519 |
ATM_PHYS_DRIVER |
& *( taux(i-1,j,bi,bj) + taux(i,j,bi,bj) ) |