/[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.3 by dimitri, Wed Mar 17 23:08:09 2004 UTC revision 1.4 by heimbach, Wed Mar 24 21:46:20 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
6    
 #ifdef USE_EXF_INTERPOLATION  
   
7        subroutine exf_set_uv(        subroutine exf_set_uv(
8       &     uvecfile, uvecstartdate, uvecperiod,       &     uvecfile, uvecstartdate, uvecperiod,
9       &     exf_inscal_uvec, uvec, uvec0, uvec1, uvecmask,       &     exf_inscal_uvec, uvec, uvec0, uvec1, uvecmask,
# Line 81  c     *vec_lat_inc         :: vector y-g Line 79  c     *vec_lat_inc         :: vector y-g
79        integer mycurrentiter        integer mycurrentiter
80        integer mythid        integer mythid
81    
82    #ifdef USE_EXF_INTERPOLATION
83  c     == local variables ==  c     == local variables ==
84    
85        logical first, changed        logical first, changed
# Line 269  c     IF ( .NOT. useCubedSphereExchange Line 268  c     IF ( .NOT. useCubedSphereExchange
268    
269        ENDIF        ENDIF
270    
271    #endif /* USE_EXF_INTERPOLATION */
272    
273        return        return
274        end        end
   
 #endif /* USE_EXF_INTERPOLATION */  
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22