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

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

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

revision 1.20 by dimitri, Wed Dec 10 19:37:25 2003 UTC revision 1.21 by dimitri, Tue Dec 16 23:28:40 2003 UTC
# Line 48  c     == routine arguments == Line 48  c     == routine arguments ==
48  c     == local variables ==  c     == local variables ==
49    
50        logical output_xC_yC        logical output_xC_yC
51          integer i, j, bi, bj
52    
53  c     == end of interface ==  c     == end of interface ==
54    
# Line 141  c     Atmospheric temperature. Line 142  c     Atmospheric temperature.
142       &     atemp_nlon, atemp_nlat, xC, yC,       &     atemp_nlon, atemp_nlat, xC, yC,
143  #endif  #endif
144       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
145          do bj = mybylo(mythid),mybyhi(mythid)
146             do bi = mybxlo(mythid),mybxhi(mythid)
147                do j = 1,sny
148                   do i = 1,snx
149                      atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
150                   enddo
151                enddo
152             enddo
153          enddo
154    
155  c     Atmospheric humidity.  c     Atmospheric humidity.
156        call exf_set_gen(        call exf_set_gen(
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22