/[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.20 by heimbach, Fri Mar 28 03:49:54 2008 UTC revision 1.21 by heimbach, Fri Mar 28 14:22:30 2008 UTC
# Line 167  cgg    calendar information as other bou Line 167  cgg    calendar information as other bou
167        call ctrl_getobcse ( mycurrenttime, mycurrentiter, mythid )        call ctrl_getobcse ( mycurrenttime, mycurrentiter, mythid )
168  # endif  # endif
169    
 #ifndef ALLOW_EXF  
170        IF ( .NOT. useEXF ) THEN        IF ( .NOT. useEXF ) THEN
171    #ifndef ALLOW_AUTODIFF_TAMC
172         CALL OBCS_EXTERNAL_FIELDS_LOAD(         CALL OBCS_EXTERNAL_FIELDS_LOAD(
173       &     myCurrentTime, myCurrentIter, myThid )       &     myCurrentTime, myCurrentIter, myThid )
       ENDIF  
174  #else  #else
175        STOP 'PH HAS DISABLED THIS RUNTIME OPTION FOR ALLOW_EXF'         STOP 'PH HAS DISABLED THIS RUNTIME OPTION FOR ALLOW_EXF'
176  #endif  #endif
177          ENDIF
178    
179  #endif /* ALLOW_OBCS and ALLOW_OBCS_PRESCRIBE */  #endif /* ALLOW_OBCS and ALLOW_OBCS_PRESCRIBE */
180    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22