/[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.19 by molod, Mon Jul 26 20:28:29 2004 UTC revision 1.20 by molod, Tue Jul 27 04:10:57 2004 UTC
# Line 99  C ************************************** Line 99  C **************************************
99       .    albvisdr,albvisdf,albnirdr,albnirdf )       .    albvisdr,albvisdf,albnirdr,albnirdf )
100         endif         endif
101    
   
102  C **********************************************************************  C **********************************************************************
103  C                      Compute Surface Emissivity  C                      Compute Surface Emissivity
104  C **********************************************************************  C **********************************************************************
# Line 110  C ************************************** Line 109  C **************************************
109       .   igrd,ityp,chfr,snodep,ficetile,emiss)       .   igrd,ityp,chfr,snodep,ficetile,emiss)
110         endif         endif
111    
   
112  C*********************************************************************  C*********************************************************************
113  C            Ground Temperature Over Ocean is from SST array,  C            Ground Temperature Over Ocean is from SST array,
114  C               Over land is from tcanopy  C               Over land is from tcanopy
# Line 121  C*************************************** Line 119  C***************************************
119          tmpij(i,j) = 0.          tmpij(i,j) = 0.
120         enddo         enddo
121         enddo         enddo
122         do i = 1,nchp         do i = 1,nchptot
123          tmpchp(i) = tcanopy(i,bi,bj)          tmpchp(i) = tcanopy(i,bi,bj)
124         enddo         enddo
125         call msc2grd(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp,         call msc2grd(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp,
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22