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

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

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

revision 1.21 by heimbach, Wed Apr 18 19:55:34 2007 UTC revision 1.22 by jmc, Fri Nov 30 22:22:06 2007 UTC
# Line 154  C     Complete filename with YR or _YEAR Line 154  C     Complete filename with YR or _YEAR
154       &           , gen_nlon,gen_nlat,interp_method,mythid       &           , gen_nlon,gen_nlat,interp_method,mythid
155       &           )       &           )
156  #else  #else
157                _BARRIER
158              call mdsreadfield( genfile0, exf_iprec, exf_yftype, 1              call mdsreadfield( genfile0, exf_iprec, exf_yftype, 1
159       &           , gen1, count0, mythid       &           , gen1, count0, mythid
160       &           )       &           )
161                _BARRIER
162  #endif /* USE_EXF_INTERPOLATION */  #endif /* USE_EXF_INTERPOLATION */
163    
164              if (exf_yftype .eq. 'RL') then              if (exf_yftype .eq. 'RL') then
# Line 195  C     Complete filename with YR or _YEAR Line 197  C     Complete filename with YR or _YEAR
197       &           , gen_nlon,gen_nlat,interp_method,mythid       &           , gen_nlon,gen_nlat,interp_method,mythid
198       &           )       &           )
199  #else  #else
200                _BARRIER
201              call mdsreadfield( genfile1, exf_iprec, exf_yftype, 1              call mdsreadfield( genfile1, exf_iprec, exf_yftype, 1
202       &           , gen1, count1, mythid       &           , gen1, count1, mythid
203       &           )       &           )
204                _BARRIER
205  #endif /* USE_EXF_INTERPOLATION */  #endif /* USE_EXF_INTERPOLATION */
206    
207              if (exf_yftype .eq. 'RL') then              if (exf_yftype .eq. 'RL') then
# Line 227  c     Interpolate linearly onto the  tim Line 231  c     Interpolate linearly onto the  tim
231    
232        endif        endif
233    
234        end        RETURN
235          END
236    
237  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
238  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# Line 321  c     == end of interface == Line 325  c     == end of interface ==
325       &        , gen_nlon,gen_nlat,interp_method,mythid       &        , gen_nlon,gen_nlat,interp_method,mythid
326       &        )       &        )
327  #else  #else
328             _BARRIER
329           call mdsreadfield( genfile, exf_iprec, exf_yftype, 1           call mdsreadfield( genfile, exf_iprec, exf_yftype, 1
330       &        , genfld, count, mythid       &        , genfld, count, mythid
331       &        )       &        )
332             _BARRIER
333  #endif /* USE_EXF_INTERPOLATION */  #endif /* USE_EXF_INTERPOLATION */
334    
335           if (exf_yftype .eq. 'RL') then           if (exf_yftype .eq. 'RL') then
# Line 347  c     Interpolate linearly onto the  tim Line 353  c     Interpolate linearly onto the  tim
353    
354        endif        endif
355    
356        end        RETURN
357          END
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22