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

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

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

revision 1.7 by adcroft, Thu Jul 8 17:03:29 2004 UTC revision 1.8 by heimbach, Mon Sep 20 23:22:58 2004 UTC
# Line 87  C     == Routine arguments == Line 87  C     == Routine arguments ==
87        INTEGER myThid        INTEGER myThid
88    
89  #ifdef ALLOW_ORLANSKI  #ifdef ALLOW_ORLANSKI
90    #ifdef ALLOW_OBCS_WEST
91    
92  C     == Local variables ==  C     == Local variables ==
93        INTEGER J, K, I_obc        INTEGER J, K, I_obc
# Line 285  C              copy (current time) t to Line 286  C              copy (current time) t to
286           ENDDO           ENDDO
287        ENDDO        ENDDO
288    
289    #endif
290  #endif /* ALLOW_ORLANSKI */  #endif /* ALLOW_ORLANSKI */
291        RETURN        RETURN
292        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22