/[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.10 by mlosch, Mon Apr 19 22:30:46 2004 UTC revision 1.11 by jmc, Fri Jul 16 01:20:57 2004 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
197    C         net heat flux = heat flux (except SW) + SW flux.
198              do j = jmin,jmax
199                do i = imin,imax
200                 qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + qsw(i,j,bi,bj)
201                enddo
202              enddo
203  #endif  #endif
204    
205  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22