pkg/exf/exf_check.F

c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_check_range.F,v 1.2 2004/02/26 22:30:27 heimbach Exp $

#include "EXF_OPTIONS.h"

      subroutine exf_check( mythid )

c     ==================================================================
c     SUBROUTINE exf_check
c     ==================================================================
c
      implicit none

c     == global variables ==

#include "EEPARAMS.h"
#include "SIZE.h"
#include "PARAMS.h"
#include "FFIELDS.h"
#include "GRID.h"

#include "exf_param.h"
#include "exf_constants.h"
#include "exf_fields.h"
#include "exf_clim_fields.h"
c     == routine arguments ==

c     mythid - thread number for this instance of the routine.

      integer mythid

c     == local variables ==

      integer bi,bj
      integer i,j
      integer jtlo
      integer jthi
      integer itlo
      integer ithi
      integer jmin
      integer jmax
      integer imin
      integer imax

c     == end of interface ==

      jtlo = mybylo(mythid)
      jthi = mybyhi(mythid)
      itlo = mybxlo(mythid)
      ithi = mybxhi(mythid)
      jmin = 1-oly
      jmax = sny+oly
      imin = 1-olx
      imax = snx+olx

c     check for consistency
      if (.NOT. 
     &     (exf_iprec .EQ. 32 .OR. exf_iprec .EQ. 64)
     &     ) then
         stop 'stop in exf_readparms: value of exf_iprec not allowed'
      else if (.NOT. 
     &        (exf_yftype .EQ. 'RS' .OR. 
     &        exf_yftype .EQ. 'RL')
     &        ) then
         stop 'stop in exf_readparms: value of exf_yftype not allowed'
      end if

      if ( useCubedSphereExchange ) then
cph         if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then
c     some restrictions that can be relaxed later on
cph            if ( uvecstartdate .ne. vvecstartdate .or.
cph     &           uvecperiod    .ne. vvecperiod ) then
cph               print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
cph               print*,'assumes that the u and v wind or wind stress'
cph               print*,'files have the same startdate and period.'
cph               stop
cph            endif
cph         endif
      endif


      end
1	c $Header: /u/gcmpack/MITgcm/pkg/exf/exf_check_range.F,v 1.2 2004/02/26 22:30:27 heimbach Exp $
2
3	#include "EXF_OPTIONS.h"
4
5	subroutine exf_check( mythid )
6
7	c ==================================================================
8	c SUBROUTINE exf_check
9	c ==================================================================
10	c
11	implicit none
12
13	c == global variables ==
14
15	#include "EEPARAMS.h"
16	#include "SIZE.h"
17	#include "PARAMS.h"
18	#include "FFIELDS.h"
19	#include "GRID.h"
20
21	#include "exf_param.h"
22	#include "exf_constants.h"
23	#include "exf_fields.h"
24	#include "exf_clim_fields.h"
25	c == routine arguments ==
26
27	c mythid - thread number for this instance of the routine.
28
29	integer mythid
30
31	c == local variables ==
32
33	integer bi,bj
34	integer i,j
35	integer jtlo
36	integer jthi
37	integer itlo
38	integer ithi
39	integer jmin
40	integer jmax
41	integer imin
42	integer imax
43
44	c == end of interface ==
45
46	jtlo = mybylo(mythid)
47	jthi = mybyhi(mythid)
48	itlo = mybxlo(mythid)
49	ithi = mybxhi(mythid)
50	jmin = 1-oly
51	jmax = sny+oly
52	imin = 1-olx
53	imax = snx+olx
54
55	c check for consistency
56	if (.NOT.
57	& (exf_iprec .EQ. 32 .OR. exf_iprec .EQ. 64)
58	& ) then
59	stop 'stop in exf_readparms: value of exf_iprec not allowed'
60	else if (.NOT.
61	& (exf_yftype .EQ. 'RS' .OR.
62	& exf_yftype .EQ. 'RL')
63	& ) then
64	stop 'stop in exf_readparms: value of exf_yftype not allowed'
65	end if
66
67	if ( useCubedSphereExchange ) then
68	cph if ( uvecfile .NE. ' ' .and. vvecfile .NE. ' ' ) then
69	c some restrictions that can be relaxed later on
70	cph if ( uvecstartdate .ne. vvecstartdate .or.
71	cph & uvecperiod .ne. vvecperiod ) then
72	cph print*,'For useCubedSphereExchange, S/R exf_set_uv.F'
73	cph print*,'assumes that the u and v wind or wind stress'
74	cph print*,'files have the same startdate and period.'
75	cph stop
76	cph endif
77	cph endif
78	endif
79
80
81
82	end