/[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.16 by dimitri, Wed Feb 7 17:38:11 2007 UTC revision 1.17 by dimitri, Fri Feb 9 04:53:52 2007 UTC
# Line 232  C+++++++++++++++++++++++++++++++++++++++ Line 232  C+++++++++++++++++++++++++++++++++++++++
232  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  C+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
233    
234        subroutine exf_init_gen (        subroutine exf_init_gen (
235       &     genfile, exf_inscal_gen, genmask,       &     genfile, genperiod, exf_inscal_gen, genmask,
236       &     genconst, genfld, gen0, gen1,       &     genconst, genfld, gen0, gen1,
237  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
238       &     gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc,       &     gen_lon0, gen_lon_inc, gen_lat0, gen_lat_inc,
# Line 267  c     == global variables == Line 267  c     == global variables ==
267    
268  c     == routine arguments ==  c     == routine arguments ==
269    
270        _RL exf_inscal_gen        _RL genperiod, exf_inscal_gen, genconst
       _RL genconst  
271        _RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
272        _RL gen0  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL gen0  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
273        _RL gen1  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL gen1  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
# Line 309  c     == end of interface == Line 308  c     == end of interface ==
308          enddo          enddo
309        enddo        enddo
310    
311        if ( genfile .NE. ' ' ) then        if ( genfile .NE. ' ' .and. genperiod .eq. 0. ) then
312           count = 1           count = 1
313    
314  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22