File indexing completed on 2024-06-06 05:11:01 UTC
view on githubraw file Latest commit af61e5eb on 2024-06-06 03:30:35 UTC
6b47d550f4 Mart*0001 #include "OBCS_OPTIONS.h"
7f861c1808 Patr*0002
aaab34a9a9 Jean*0003
0004
0005
0006 SUBROUTINE OBCS_PRESCRIBE_READ (
0007 I myTime, myIter, myThid )
0008
0009
0010
0011
0012
6b47d550f4 Mart*0013
0014
0015
aaab34a9a9 Jean*0016
0017
0018
0019
0020 IMPLICIT NONE
0021
0022
7f861c1808 Patr*0023 #include "SIZE.h"
a5787b36f8 Jean*0024 #include "EEPARAMS.h"
0025 #include "PARAMS.h"
aaab34a9a9 Jean*0026
0027
0028
0029
0030
0031 _RL myTime
0032 INTEGER myIter
0033 INTEGER myThid
0034
0035 #ifdef ALLOW_OBCS_PRESCRIBE
0036
0037
0038
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