/[MITgcm]/MITgcm/pkg/fizhi/update_earth_exports.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/update_earth_exports.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by molod, Mon Jul 26 20:23:16 2004 UTC revision 1.19 by molod, Mon Jul 26 20:28:29 2004 UTC
# Line 105  C                      Compute Surface E Line 105  C                      Compute Surface E
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
# Line 892  C and now call sibalb Line 892  C and now call sibalb
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)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22