/[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.2 by heimbach, Thu Feb 7 20:00:09 2002 UTC revision 1.3 by heimbach, Tue Nov 12 20:34:41 2002 UTC
# Line 54  c     get record numbers and interpolati Line 54  c     get record numbers and interpolati
54       &                     )       &                     )
55    
56        if ( first ) then        if ( first ) then
57          call mdsreadfield( lwfluxfile, exf_iprec, exf_yftype, 1          if ( lwfluxfile .NE. ' ' )
58         &        call mdsreadfield( lwfluxfile, exf_iprec, exf_yftype, 1
59       &                   , lwflux1, count0, mythid       &                   , lwflux1, count0, mythid
60       &                   )       &                   )
61          if (exf_yftype .eq. 'RL') then          if (exf_yftype .eq. 'RL') then
# Line 67  c     get record numbers and interpolati Line 68  c     get record numbers and interpolati
68        if (( first ) .or. ( changed )) then        if (( first ) .or. ( changed )) then
69          call exf_SwapFFields( lwflux0, lwflux1, mythid )          call exf_SwapFFields( lwflux0, lwflux1, mythid )
70    
71          call mdsreadfield( lwfluxfile, exf_iprec, exf_yftype, 1          if ( lwfluxfile .NE. ' ' )
72         &       call mdsreadfield( lwfluxfile, exf_iprec, exf_yftype, 1
73       &                   , lwflux1, count1, mythid       &                   , lwflux1, count1, mythid
74       &                   )       &                   )
75          if (exf_yftype .eq. 'RL') then          if (exf_yftype .eq. 'RL') then
# Line 140  c     == end of interface == Line 142  c     == end of interface ==
142          do bi = mybxlo(mythid), mybxhi(mythid)          do bi = mybxlo(mythid), mybxhi(mythid)
143            do j = 1, sny            do j = 1, sny
144              do i = 1, snx              do i = 1, snx
145                  lwflux(i,j,bi,bj)  = 0. _d 0
146                lwflux0(i,j,bi,bj) = 0. _d 0                lwflux0(i,j,bi,bj) = 0. _d 0
147                lwflux1(i,j,bi,bj) = 0. _d 0                lwflux1(i,j,bi,bj) = 0. _d 0
148              enddo              enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22