| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
133 |
DO_FIZHI |
_RL cosz(sNx,sNy) |
|
./pkg/fizhi/do_fizhi.F |
178 |
DO_FIZHI |
call ASTRO ( 20040321,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./pkg/fizhi/do_fizhi.F |
180 |
DO_FIZHI |
call ASTRO ( nymd,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./pkg/fizhi/do_fizhi.F |
184 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./pkg/fizhi/fizhi_clockstuff.F |
894 |
ASTRO |
_RL getcon, cosz(irun), alat(irun), alon(irun), ra |
|
./pkg/fizhi/fizhi_swrad.F |
1004 |
CLDSCALE |
_RL cosz(m,ndim),fcld(m,ndim,np),taucld(m,ndim,np,2) |
|
./pkg/fizhi/fizhi_swrad.F |
1096 |
CLDSCALE |
fm=cosz(i,j)/dm |
|
./pkg/fizhi/fizhi_swrad.F |
463 |
SWRIO |
. albirdr,albirdf,albuvdr,albuvdf,cosz, |
|
./pkg/fizhi/fizhi_swrad.F |
494 |
SWRIO |
if( cosz(i).gt.0.0 ) then |
|
./pkg/fizhi/fizhi_swrad.F |
667 |
SORAD |
* taual,rsirbm,rsirdf,rsuvbm,rsuvdf,cosz, |
|
./pkg/fizhi/fizhi_swrad.F |
776 |
SORAD |
* rsuvbm(m,ndim),rsuvdf(m,ndim),cosz(m,ndim),co2 |
|
./pkg/fizhi/fizhi_swrad.F |
804 |
SORAD |
csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.) |
|
./pkg/fizhi/fizhi_swrad.F |
841 |
SORAD |
call CLDSCALE(m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_swrad.F |
959 |
CLDSCALE |
subroutine CLDSCALE (m,n,ndim,np,cosz,fcld,taucld,ict,icb, |
|
./pkg/fizhi/fizhi_turb.F |
193 |
TURBIO |
_RL lats(istrip),lons(istrip),cosz(istrip),icest(istrip) |
|
./pkg/fizhi/fizhi_turb.F |
505 |
TURBIO |
call ASTRO ( 20040321,nhms,lats,lons,istrip,cosz,ra ) |
|
./pkg/fizhi/fizhi_turb.F |
507 |
TURBIO |
call ASTRO ( nymd,nhms,lats,lons,istrip,cosz,ra ) |
|
./pkg/fizhi/fizhi_turb.F |
628 |
TURBIO |
cosz(i) = max(cosz(i),0.0001 _d 0) |
|
./pkg/fizhi/fizhi_turb.F |
742 |
TURBIO |
I tmpnlay, sh(1,nlay), cd, cosz, pardr, pardf, |
|
./pkg/fizhi/update_earth_exports.F |
110 |
UPDATE_EARTH_EXPORTS |
call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
112 |
UPDATE_EARTH_EXPORTS |
call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
114 |
UPDATE_EARTH_EXPORTS |
call GETALB(sec,month,day,cosz,snodep,fraci,fracl,im2,jm2,nchp, |
|
./pkg/fizhi/update_earth_exports.F |
47 |
UPDATE_EARTH_EXPORTS |
_RL lats(sNx,sNy), lons(sNx,sNy), cosz(sNx,sNy) |
|
./pkg/fizhi/update_earth_exports.F |
820 |
GETALB |
SUBROUTINE GETALB(sec,month,day,cosz,snodep,fraci,fracg,im,jm, |
|
./pkg/fizhi/update_earth_exports.F |
863 |
GETALB |
_RL cosz(im,jm),fraci(im,jm),fracg(im,jm) |
|
./pkg/fizhi/update_earth_exports.F |
889 |
GETALB |
ALBOC(I,J) = A0 + (A1 + (A2 + A3*cosz(I,J))*cosz(I,J))*cosz(I,J) |
|
./pkg/fizhi/update_earth_exports.F |
899 |
GETALB |
call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
133 |
DO_FIZHI |
_RL cosz(sNx,sNy) |
|
./pkg/bling/bling_light.F |
133 |
BLING_LIGHT |
cosz = ( sin(delta)*sin(lat)+ !average zenith angle |
|
./pkg/bling/bling_light.F |
135 |
BLING_LIGHT |
IF (cosz.LE.5. _d -3) cosz= 5. _d -3 |
|
./pkg/bling/bling_light.F |
138 |
BLING_LIGHT |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |
|
./pkg/bling/bling_light.F |
71 |
BLING_LIGHT |
_RL cosz, frac, fluxi |
|
./pkg/chronos/chronos.F |
731 |
ASTRO |
_RL cosz(irun), alat(irun), alon(irun), ra |
|
./pkg/dic/insol.F |
43 |
INSOL |
_RL cosz, frac, fluxi |
|
./pkg/dic/insol.F |
77 |
INSOL |
cosz = ( sin(delta)*sin(lat)+ !average zenith angle |
|
./pkg/dic/insol.F |
79 |
INSOL |
IF (cosz.LE.5. _d -3) cosz= 5. _d -3 |
|
./pkg/dic/insol.F |
82 |
INSOL |
fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac |