/[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.10 by heimbach, Mon Oct 11 16:41:01 2004 UTC revision 1.11 by dimitri, Mon Dec 20 23:32:52 2004 UTC
# Line 7  Line 7 
7       &     genfld, gen0, gen1, genmask,       &     genfld, gen0, gen1, genmask,
8  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
9       &     gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc,       &     gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc,
10       &     gen_nlon, gen_nlat, gen_xout, gen_yout,       &     gen_nlon, gen_nlat, gen_xout, gen_yout, interp_method,
11  #endif  #endif
12       &     mycurrenttime, mycurrentiter, mythid )       &     mycurrenttime, mycurrentiter, mythid )
13    
# Line 65  c     gen_xout, gen_yout   :: coordinate Line 65  c     gen_xout, gen_yout   :: coordinate
65        INTEGER gen_nlon, gen_nlat        INTEGER gen_nlon, gen_nlat
66        _RS gen_xout  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS gen_xout  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67        _RS gen_yout  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS gen_yout  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68          integer interp_method
69  #endif  #endif
70    
71  c     == local variables ==  c     == local variables ==
# Line 75  c     == local variables == Line 76  c     == local variables ==
76        _RL     fac        _RL     fac
77    
78        integer bi, bj        integer bi, bj
79        integer i, j        integer i, j, il
       integer il, interp_method  
80    
81  c     == external ==  c     == external ==
82    
# Line 109  c     get record numbers and interpolati Line 109  c     get record numbers and interpolati
109                 genfile0 = genfile                 genfile0 = genfile
110              endif              endif
111  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
             interp_method = 2  
112              call exf_interp( genfile0, exf_iprec              call exf_interp( genfile0, exf_iprec
113       &           , gen1, count0, gen_xout, gen_yout       &           , gen1, count0, gen_xout, gen_yout
114       &           , gen_lon0,gen_lon_inc       &           , gen_lon0,gen_lon_inc
# Line 140  c     get record numbers and interpolati Line 139  c     get record numbers and interpolati
139                 genfile1 = genfile                 genfile1 = genfile
140              endif              endif
141  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
             interp_method = 2  
142              call exf_interp( genfile1, exf_iprec              call exf_interp( genfile1, exf_iprec
143       &           , gen1, count1, gen_xout, gen_yout       &           , gen1, count1, gen_xout, gen_yout
144       &           , gen_lon0,gen_lon_inc       &           , gen_lon0,gen_lon_inc
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22