105 |
C ********************************************************************** |
C ********************************************************************** |
106 |
|
|
107 |
if( alarm('radlw') ) then |
if( alarm('radlw') ) then |
108 |
call grd2msc(fraci,im2,jm2,igrd,ficetile,nchp,nchp) |
call grd2msc(fraci,im2,jm2,igrd,ficetile,nchp,nchptot) |
109 |
call getemiss(fracl,im2,jm2,nchp,nchptot,nSx,nSy,bi,bj, |
call getemiss(fracl,im2,jm2,nchp,nchptot,nSx,nSy,bi,bj, |
110 |
. igrd,ityp,chfr,snodep,ficetile,emiss) |
. igrd,ityp,chfr,snodep,ficetile,emiss) |
111 |
endif |
endif |
892 |
|
|
893 |
C finally some transformations back to grid space for albedos |
C finally some transformations back to grid space for albedos |
894 |
|
|
|
print *,' In getalb, chfr: ' |
|
|
print *,(chfr(i,1,1),i=1,nchptot) |
|
|
|
|
895 |
DO I=1,IM |
DO I=1,IM |
896 |
DO J=1,JM |
DO J=1,JM |
897 |
tmpij(i,j) = albvr(i,j,bi,bj) |
tmpij(i,j) = albvr(i,j,bi,bj) |