/[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.5 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.6 by heimbach, Fri May 23 18:37:31 2003 UTC
# Line 106  c     == end of interface == Line 106  c     == end of interface ==
106            do j = jmin,jmax            do j = jmin,jmax
107              do i = imin,imax              do i = imin,imax
108  c            Heat flux.  c            Heat flux.
109               qnet(i,j,bi,bj) = exf_outscal_hfl*hflux(i,j,bi,bj)               qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
110              enddo              enddo
111            enddo            enddo
112    
# Line 114  c            Heat flux. Line 114  c            Heat flux.
114            do j = jmin,jmax            do j = jmin,jmax
115              do i = imin,imax              do i = imin,imax
116  c            Salt flux.  c            Salt flux.
117               empmr(i,j,bi,bj)= exf_outscal_sfl*sflux(i,j,bi,bj)               empmr(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
118              enddo              enddo
119            enddo            enddo
120    
# Line 141  CADJ STORE ustress(:,:,bi,bj) = comlev1_ Line 141  CADJ STORE ustress(:,:,bi,bj) = comlev1_
141            enddo            enddo
142            do j = jmin,jmax            do j = jmin,jmax
143              do i = imin,imax              do i = imin,imax
144               fu(i,j,bi,bj)   = exf_outscal_ust*ustress(i,j,bi,bj)               fu(i,j,bi,bj)   = exf_outscal_ustress*ustress(i,j,bi,bj)
145              enddo              enddo
146            enddo            enddo
147    
# Line 168  CADJ STORE vstress(:,:,bi,bj) = comlev1_ Line 168  CADJ STORE vstress(:,:,bi,bj) = comlev1_
168            enddo            enddo
169            do j = jmin,jmax            do j = jmin,jmax
170              do i = imin,imax              do i = imin,imax
171               fv(i,j,bi,bj)   = exf_outscal_vst*vstress(i,j,bi,bj)               fv(i,j,bi,bj)   = exf_outscal_vstress*vstress(i,j,bi,bj)
172              enddo              enddo
173            enddo            enddo
174    
# Line 176  CADJ STORE vstress(:,:,bi,bj) = comlev1_ Line 176  CADJ STORE vstress(:,:,bi,bj) = comlev1_
176  c             Short wave radiative flux.  c             Short wave radiative flux.
177            do j = jmin,jmax            do j = jmin,jmax
178              do i = imin,imax              do i = imin,imax
179               qsw(i,j,bi,bj)  = exf_outscal_swf*swflux(i,j,bi,bj)               qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
180              enddo              enddo
181            enddo            enddo
182  #endif  #endif
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22