pkg/obcs/obcs_prescribe_read.F

C $Header: /u/gcmpack/MITgcm/pkg/obcs/obcs_prescribe_read.F,v 1.29 2011/04/17 03:20:51 jmc Exp $
C $Name:  $

# include "OBCS_OPTIONS.h"

CBOP
C     !ROUTINE: OBCS_PRESCRIBE_READ
C     !INTERFACE:
      SUBROUTINE OBCS_PRESCRIBE_READ (
     I                          myTime, myIter, myThid )

C     !DESCRIPTION: \bv
C     *============================================================*
C     | SUBROUTINE OBCS_PRESCRIBE_READ
C     *============================================================*
C     | read open boundary conditions from file                           
C     | N.B.: * uses exf and cal routines for file/record handling        
C     |       * uses ctrl routines for control variable handling          
C     *============================================================*
C     \ev

C     !USES:
      IMPLICIT NONE

C     == global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     myTime :: Simulation time
C     myIter :: Simulation timestep number
C     myThid :: my Thread Id. number
      _RL     myTime
      INTEGER myIter
      INTEGER myThid

#ifdef ALLOW_OBCS_PRESCRIBE

C     !LOCAL VARIABLES:
CEOP

# ifdef ALLOW_EXF
      IF ( useEXF ) THEN
        CALL OBCS_EXF_LOAD( myTime, myIter, myThid )
      ENDIF
# endif /* ALLOW_EXF */

      IF ( .NOT. useEXF ) THEN
cph#ifndef ALLOW_AUTODIFF_TAMC
       CALL OBCS_FIELDS_LOAD( myTime, myIter, myThid )
cph#else
cph       STOP 'PH HAS DISABLED THIS RUNTIME OPTION FOR ALLOW_EXF'
cph#endif
      ENDIF

# ifdef ALLOW_OBCSN_CONTROL
      CALL CTRL_GETOBCSN ( myTime, myIter, mythid )
# endif

# ifdef ALLOW_OBCSS_CONTROL
      CALL CTRL_GETOBCSS ( myTime, myIter, mythid )
# endif

# ifdef ALLOW_OBCSW_CONTROL
      CALL CTRL_GETOBCSW ( myTime, myIter, myThid )
# endif

# ifdef ALLOW_OBCSE_CONTROL
      CALL CTRL_GETOBCSE ( myTime, myIter, myThid )
# endif

#endif /* ALLOW_OBCS_PRESCRIBE */

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/obcs/obcs_prescribe_read.F,v 1.29 2011/04/17 03:20:51 jmc Exp $
2	C $Name: $
3
4	# include "OBCS_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: OBCS_PRESCRIBE_READ
8	C !INTERFACE:
9	SUBROUTINE OBCS_PRESCRIBE_READ (
10	I myTime, myIter, myThid )
11
12	C !DESCRIPTION: \bv
13	C ============================================================
14	C \| SUBROUTINE OBCS_PRESCRIBE_READ
15	C ============================================================
16	C \| read open boundary conditions from file
17	C \| N.B.: * uses exf and cal routines for file/record handling
18	C \| * uses ctrl routines for control variable handling
19	C ============================================================
20	C \ev
21
22	C !USES:
23	IMPLICIT NONE
24
25	C == global variables ==
26	#include "SIZE.h"
27	#include "EEPARAMS.h"
28	#include "PARAMS.h"
29
30	C !INPUT/OUTPUT PARAMETERS:
31	C myTime :: Simulation time
32	C myIter :: Simulation timestep number
33	C myThid :: my Thread Id. number
34	_RL myTime
35	INTEGER myIter
36	INTEGER myThid
37
38	#ifdef ALLOW_OBCS_PRESCRIBE
39
40	C !LOCAL VARIABLES:
41	CEOP
42
43	# ifdef ALLOW_EXF
44	IF ( useEXF ) THEN
45	CALL OBCS_EXF_LOAD( myTime, myIter, myThid )
46	ENDIF
47	# endif /* ALLOW_EXF */
48
49	IF ( .NOT. useEXF ) THEN
50	cph#ifndef ALLOW_AUTODIFF_TAMC
51	CALL OBCS_FIELDS_LOAD( myTime, myIter, myThid )
52	cph#else
53	cph STOP 'PH HAS DISABLED THIS RUNTIME OPTION FOR ALLOW_EXF'
54	cph#endif
55	ENDIF
56
57	# ifdef ALLOW_OBCSN_CONTROL
58	CALL CTRL_GETOBCSN ( myTime, myIter, mythid )
59	# endif
60
61	# ifdef ALLOW_OBCSS_CONTROL
62	CALL CTRL_GETOBCSS ( myTime, myIter, mythid )
63	# endif
64
65	# ifdef ALLOW_OBCSW_CONTROL
66	CALL CTRL_GETOBCSW ( myTime, myIter, myThid )
67	# endif
68
69	# ifdef ALLOW_OBCSE_CONTROL
70	CALL CTRL_GETOBCSE ( myTime, myIter, myThid )
71	# endif
72
73	#endif /* ALLOW_OBCS_PRESCRIBE */
74
75	RETURN
76	END