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

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

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

revision 1.6 by jmc, Mon Oct 18 14:59:38 2004 UTC revision 1.7 by dimitri, Mon Dec 20 23:32:52 2004 UTC
# Line 282  c     IF ( .NOT. useCubedSphereExchange Line 282  c     IF ( .NOT. useCubedSphereExchange
282       &           exf_inscal_uvec,       &           exf_inscal_uvec,
283       &           uvec, uvec0, uvec1, uvecmask,       &           uvec, uvec0, uvec1, uvecmask,
284       &           uvec_lon0, uvec_lon_inc, uvec_lat0, uvec_lat_inc,       &           uvec_lon0, uvec_lon_inc, uvec_lat0, uvec_lat_inc,
285       &           uvec_nlon, uvec_nlat, xC, yC,       &           uvec_nlon, uvec_nlat, xC, yC, interp_method,
286       &           mycurrenttime, mycurrentiter, mythid )       &           mycurrenttime, mycurrentiter, mythid )
287              call exf_set_gen(              call exf_set_gen(
288       &           vvecfile, vvecstartdate, vvecperiod,       &           vvecfile, vvecstartdate, vvecperiod,
# Line 290  c     IF ( .NOT. useCubedSphereExchange Line 290  c     IF ( .NOT. useCubedSphereExchange
290       &           exf_inscal_vvec,       &           exf_inscal_vvec,
291       &           vvec, vvec0, vvec1, vvecmask,       &           vvec, vvec0, vvec1, vvecmask,
292       &           vvec_lon0, vvec_lon_inc, vvec_lat0, vvec_lat_inc,       &           vvec_lon0, vvec_lon_inc, vvec_lat0, vvec_lat_inc,
293       &           vvec_nlon, vvec_nlat, xC, yC,       &           vvec_nlon, vvec_nlat, xC, yC, interp_method,
294       &           mycurrenttime, mycurrentiter, mythid )       &           mycurrenttime, mycurrentiter, mythid )
295    
296        ENDIF        ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22