pkg/obcs/obcs_prescribe_read.F

6b47d550f4 Mart*0001 #include "OBCS_OPTIONS.h"
7f861c1808 Patr*0002
aaab34a9a9 Jean*0003 CBOP
                0004 C     !ROUTINE: OBCS_PRESCRIBE_READ
                0005 C     !INTERFACE:
                0006       SUBROUTINE OBCS_PRESCRIBE_READ (
                0007      I                          myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *============================================================*
                0011 C     | SUBROUTINE OBCS_PRESCRIBE_READ
                0012 C     *============================================================*
6b47d550f4 Mart*0013 C     | read open boundary conditions from file
                0014 C     | N.B.: * uses exf and cal routines for file/record handling
                0015 C     |       * uses ctrl routines for control variable handling
aaab34a9a9 Jean*0016 C     *============================================================*
                0017 C     \ev
                0018
                0019 C     !USES:
                0020       IMPLICIT NONE
                0021
                0022 C     == global variables ==
7f861c1808 Patr*0023 #include "SIZE.h"
a5787b36f8 Jean*0024 #include "EEPARAMS.h"
                0025 #include "PARAMS.h"
aaab34a9a9 Jean*0026
                0027 C     !INPUT/OUTPUT PARAMETERS:
                0028 C     myTime :: Simulation time
                0029 C     myIter :: Simulation timestep number
                0030 C     myThid :: my Thread Id. number
                0031       _RL     myTime
                0032       INTEGER myIter
                0033       INTEGER myThid
                0034
                0035 #ifdef ALLOW_OBCS_PRESCRIBE
                0036
                0037 C     !LOCAL VARIABLES:
                0038 CEOP
7c7f4c7f71 Mart*0039
212017a383 Dimi*0040 # ifdef ALLOW_EXF
7c7f4c7f71 Mart*0041       IF ( useEXF ) THEN
aaab34a9a9 Jean*0042         CALL OBCS_EXF_LOAD( myTime, myIter, myThid )
7c7f4c7f71 Mart*0043       ENDIF
212017a383 Dimi*0044 # endif /* ALLOW_EXF */
7c7f4c7f71 Mart*0045
af61e5eb16 Mart*0046 # ifndef EXCLUDE_FFIELDS_LOAD
6ae3c9121e Mart*0047       IF ( .NOT. useEXF ) THEN
af61e5eb16 Mart*0048         CALL OBCS_FIELDS_LOAD( myTime, myIter, myThid )
6ae3c9121e Mart*0049       ENDIF
af61e5eb16 Mart*0050 # endif
6ae3c9121e Mart*0051
aaab34a9a9 Jean*0052 #endif /* ALLOW_OBCS_PRESCRIBE */
de416ebcde Patr*0053
ecad9eec98 Alis*0054       RETURN
                0055       END