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

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

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

revision 1.7 by heimbach, Wed Jul 7 19:59:41 2004 UTC revision 1.8 by dimitri, Thu Oct 7 01:10:43 2004 UTC
# Line 25  c     == global variables == Line 25  c     == global variables ==
25    
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "SIZE.h"  #include "SIZE.h"
28    #include "PARAMS.h"
29  #include "cal.h"  #include "cal.h"
30  #include "exf.h"  #include "exf.h"
31  #include "exf_param.h"  #include "exf_param.h"
# Line 104  c     Initialise file type and field pre Line 105  c     Initialise file type and field pre
105        exf_clim_iprec  = 32        exf_clim_iprec  = 32
106        exf_clim_yftype = 'RL'        exf_clim_yftype = 'RL'
107    
108    #ifdef USE_EXF_INTERPOLATION
109          climsst_lon0    = thetaMin + delX(1) / 2
110          climsss_lon0    = thetaMin + delX(1) / 2
111          climsst_lat0    = phimin   + delY(1) / 2
112          climsss_lat0    = phimin   + delY(1) / 2
113          climsst_nlon    = Nx
114          climsst_nlat    = Ny
115          climsss_nlon    = Nx
116          climsss_nlat    = Ny
117          climsst_lon_inc = delX(1)
118          climsss_lon_inc = delX(1)
119          DO i=1,MAX_LAT_INC
120             IF (i.LT.Ny) THEN
121                climsst_lat_inc(i)   = (delY(i) + delY(i)) / 2.
122                climsss_lat_inc(i)   = (delY(i) + delY(i)) / 2.
123             ELSE
124                climsst_lat_inc(i)   = 0.
125                climsss_lat_inc(i)   = 0.
126             ENDIF
127          ENDDO
128    #endif /* USE_EXF_INTERPOLATION */
129    
130  c     Check for the availability of the right calendar version.  c     Check for the availability of the right calendar version.
131        if ( calendarversion .ne. usescalendarversion ) then        if ( calendarversion .ne. usescalendarversion ) then
132           print*,' exf_Init: You are not using the appropriate'           print*,' exf_Init: You are not using the appropriate'
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22