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

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

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

revision 1.16 by molod, Tue May 24 21:03:08 2005 UTC revision 1.17 by molod, Fri Jun 17 01:04:24 2005 UTC
# Line 110  c -------------------------------------- Line 110  c --------------------------------------
110         call diagnostics_fill(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)         call diagnostics_fill(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)
111        endif        endif
112                                                                                                                                                                    
113    c Planetary Albedo
114    c ----------------
115          if(diagnostics_is_on('PLALBEDO',myid) ) then
116           do j=jm1,jm2
117           do i=im1,im2
118            if(radswt(i,j,bi,bj).ne.0.) then
119             tmpdiag(i,j) = osr(i,j,bi,bj)
120            else
121             tmpdiag(i,j) = 0.
122            endif
123           enddo
124           enddo
125           call diagnostics_fill(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid)
126          endif
127                                                                                    
128  c Upward Longwave Flux at the Ground (W/m**2)  c Upward Longwave Flux at the Ground (W/m**2)
129  c -------------------------------------------  c -------------------------------------------
130        if(diagnostics_is_on('LWGUP   ',myid) ) then        if(diagnostics_is_on('LWGUP   ',myid) ) then
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22