/[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.4 by dimitri, Thu Aug 7 02:31:29 2003 UTC revision 1.5 by dimitri, Fri Aug 15 01:42:44 2003 UTC
# Line 72  c     == local variables == Line 72  c     == local variables ==
72        _RL     fac        _RL     fac
73    
74        integer bi, bj        integer bi, bj
75        integer i, j        integer i, j, interp_method
76    
77  c     == end of interface ==  c     == end of interface ==
78    
# Line 88  c     get record numbers and interpolati Line 88  c     get record numbers and interpolati
88    
89           if ( first ) then           if ( first ) then
90  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
91                interp_method = 2
92              call exf_interp( genfile, exf_iprec              call exf_interp( genfile, exf_iprec
93       &           , gen1, count0, gen_xout, gen_yout       &           , gen1, count0, gen_xout, gen_yout
94       &           , gen_lon0,gen_lon_inc       &           , gen_lon0,gen_lon_inc
95       &           , gen_lat0,gen_lat_inc       &           , gen_lat0,gen_lat_inc
96       &           , gen_nlon,gen_nlat,mythid       &           , gen_nlon,gen_nlat,interp_method,mythid
97       &           )       &           )
98  #else  #else
99              call mdsreadfield( genfile, exf_iprec, exf_yftype, 1              call mdsreadfield( genfile, exf_iprec, exf_yftype, 1
# Line 115  c     get record numbers and interpolati Line 116  c     get record numbers and interpolati
116       &           , gen1, count1, gen_xout, gen_yout       &           , gen1, count1, gen_xout, gen_yout
117       &           , gen_lon0,gen_lon_inc       &           , gen_lon0,gen_lon_inc
118       &           , gen_lat0,gen_lat_inc       &           , gen_lat0,gen_lat_inc
119       &           , gen_nlon,gen_nlat,mythid       &           , gen_nlon,gen_nlat,interp_method,mythid
120       &           )       &           )
121  #else  #else
122              call mdsreadfield( genfile, exf_iprec, exf_yftype, 1              call mdsreadfield( genfile, exf_iprec, exf_yftype, 1
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22