/[MITgcm]/MITgcm/pkg/obcs/obcs_prescribe_read.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_prescribe_read.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Wed Sep 22 20:43:04 2004 UTC revision 1.2 by mlosch, Fri Sep 24 12:32:09 2004 UTC
# Line 44  c     == local variables == Line 44  c     == local variables ==
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
# Line 153  cgg    calendar information as other bou Line 154  cgg    calendar information as other bou
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    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22