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

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

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

revision 1.7 by heimbach, Wed Apr 18 05:02:08 2007 UTC revision 1.8 by heimbach, Wed Apr 18 13:24:28 2007 UTC
# Line 37  c     ================================== Line 37  c     ==================================
37  c     == global variables ==  c     == global variables ==
38  #include "EEPARAMS.h"  #include "EEPARAMS.h"
39  #include "SIZE.h"  #include "SIZE.h"
40    #include "GRID.h"
41  #include "EXF_PARAM.h"  #include "EXF_PARAM.h"
42  #include "EXF_CONSTANTS.h"  #include "EXF_CONSTANTS.h"
43  #include "EXF_FIELDS.h"  #include "EXF_FIELDS.h"
# Line 53  c     mythid - thread number for this in Line 54  c     mythid - thread number for this in
54    
55  c     == local variables ==  c     == local variables ==
56    
57          integer interp_method
58    
59  c     == end of interface ==  c     == end of interface ==
60    
61          interp_method=2
62    
63  #ifdef ALLOW_CLIMSST_RELAXATION  #ifdef ALLOW_CLIMSST_RELAXATION
64  c     Get values of climatological sst fields.  c     Get values of climatological sst fields.
65        call exf_set_gen  (  cph      call exf_set_gen  (
66       &     climsstfile, climsststartdate, climsstperiod,  cph     &     climsstfile, climsststartdate, climsstperiod,
67       &     climsststartdate1, climsststartdate2,  cph     &     climsststartdate1, climsststartdate2,
68       &     exf_inscal_climsst,  cph     &     exf_inscal_climsst,
69       &     climsst_exfremo_intercept, climsst_exfremo_slope,  cph     &     climsst_exfremo_intercept, climsst_exfremo_slope,
70       &     climsst, climsst0, climsst1, climsstmask,  cph     &     climsst, climsst0, climsst1, climsstmask,
71  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
72       &     climsst_lon0, climsst_lon_inc, climsst_lat0, climsst_lat_inc,  cph     &     climsst_lon0, climsst_lon_inc, climsst_lat0, climsst_lat_inc,
73       &     climsst_nlon, climsst_nlat, xC, yC, interp_method,  cph     &     climsst_nlon, climsst_nlat, xC, yC, interp_method,
74  #endif  #endif
75       &     mytime, myiter, mythid )  cph     &     mytime, myiter, mythid )
76  c  c
77          call exf_set_climsst ( mytime, myiter, mythid )
78    
79  c--   Update the tile edges.  c--   Update the tile edges.
80        _EXCH_XY_R8(climsst, mythid)        _EXCH_XY_R8(climsst, mythid)
81  #endif  #endif
82    
83  #ifdef ALLOW_CLIMSSS_RELAXATION  #ifdef ALLOW_CLIMSSS_RELAXATION
84  c     Get values of climatological sss fields.  c     Get values of climatological sss fields.
85        call exf_set_gen  (  cph      call exf_set_gen  (
86       &     climsssfile, climsssstartdate, climsssperiod,  cph     &     climsssfile, climsssstartdate, climsssperiod,
87       &     climsssstartdate1, climsssstartdate2,  cph     &     climsssstartdate1, climsssstartdate2,
88       &     exf_inscal_climsss,  cph     &     exf_inscal_climsss,
89       &     climsss_exfremo_intercept, climsss_exfremo_slope,  cph     &     climsss_exfremo_intercept, climsss_exfremo_slope,
90       &     climsss, climsss0, climsss1, climsssmask,  cph     &     climsss, climsss0, climsss1, climsssmask,
91  #ifdef USE_EXF_INTERPOLATION  #ifdef USE_EXF_INTERPOLATION
92       &     climsss_lon0, climsss_lon_inc, climsss_lat0, climsss_lat_inc,  cph     &     climsss_lon0, climsss_lon_inc, climsss_lat0, climsss_lat_inc,
93       &     climsss_nlon, climsss_nlat, xC, yC, interp_method,  cph     &     climsss_nlon, climsss_nlat, xC, yC, interp_method,
94  #endif  #endif
95       &     mytime, myiter, mythid )  cph     &     mytime, myiter, mythid )
96  c  c
97          call exf_set_climsss ( mytime, myiter, mythid )
98    
99  c--   Update the tile edges.  c--   Update the tile edges.
100        _EXCH_XY_R8(climsss, mythid)        _EXCH_XY_R8(climsss, mythid)
101  #endif  #endif
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22