/[MITgcm]/MITgcm/model/src/initialise_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/initialise_fixed.F

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

revision 1.3 by heimbach, Mon Sep 11 23:05:56 2000 UTC revision 1.3.2.1 by adcroft, Tue Jan 9 21:26:07 2001 UTC
# Line 28  C     == Routine arguments == Line 28  C     == Routine arguments ==
28  CEndOfInterface  CEndOfInterface
29    
30  C     == Local variables ==  C     == Local variables ==
 #ifdef ALLOW_OBCS  
       INTEGER bi,bj,K  
 #endif  
31    
32  C--   Set model parameters.  C--   Set model parameters.
33  C     Parameters are set to defaults and then updates are read from  C     Parameters are set to defaults and then updates are read from
# Line 40  C     an input file called data. Line 37  C     an input file called data.
37    
38  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
39  C--   Open boundaries positions  C--   Open boundaries positions
40        CALL INI_OBCS( myThid )        IF (openBoundaries) THEN
41            CALL OBCS_INIT( myThid )
42          ENDIF
43  #endif  #endif
44        _BARRIER        _BARRIER
45    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1
  ViewVC Help
Powered by ViewVC 1.1.22