44 |
|
|
45 |
c == end of interface == |
c == end of interface == |
46 |
|
|
47 |
|
#ifdef ALLOW_EXF |
48 |
#ifdef ALLOW_OBCS_NORTH |
#ifdef ALLOW_OBCS_NORTH |
49 |
call exf_getffieldrec( |
call exf_getffieldrec( |
50 |
I obcsNstartdate, obcsNperiod |
I obcsNstartdate, obcsNperiod |
154 |
call ctrl_getobcse ( mycurrenttime, mycurrentiter, mythid ) |
call ctrl_getobcse ( mycurrenttime, mycurrentiter, mythid ) |
155 |
#endif |
#endif |
156 |
|
|
157 |
|
#else /* not ALLOW_EXF */ |
158 |
|
CALL OBCS_EXTERNAL_FIELDS_LOAD( |
159 |
|
& myCurrentTime, myCurrentIter, myThid ) |
160 |
|
#endif /* ALLOw_EXF */ |
161 |
|
|
162 |
#endif /* ALLOW_OBCS */ |
#endif /* ALLOW_OBCS */ |
163 |
|
|