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

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

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

revision 1.4 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.5 by heimbach, Thu Mar 6 00:47:33 2003 UTC
# Line 145  c     == end of interface == Line 145  c     == end of interface ==
145          do bi = mybxlo(mythid), mybxhi(mythid)          do bi = mybxlo(mythid), mybxhi(mythid)
146            do j = 1, sny            do j = 1, sny
147              do i = 1, snx              do i = 1, snx
148                lwflux(i,j,bi,bj)  = 0. _d 0                lwflux(i,j,bi,bj)  = lwfluxconst
149                lwflux0(i,j,bi,bj) = 0. _d 0                lwflux0(i,j,bi,bj) = 0. _d 0
150                lwflux1(i,j,bi,bj) = 0. _d 0                lwflux1(i,j,bi,bj) = 0. _d 0
151              enddo              enddo
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22