/[MITgcm]/MITgcm/pkg/exf/exf_mapfields.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_mapfields.F

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

revision 1.11 by jmc, Fri Jul 16 01:20:57 2004 UTC revision 1.12 by heimbach, Wed Jun 29 07:11:18 2005 UTC
# Line 194  c             Short wave radiative flux. Line 194  c             Short wave radiative flux.
194               qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)               qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
195              enddo              enddo
196            enddo            enddo
 C         net heat flux = heat flux (except SW) + SW flux.  
           do j = jmin,jmax  
             do i = imin,imax  
              qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + qsw(i,j,bi,bj)  
             enddo  
           enddo  
197  #endif  #endif
198    
199  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22