/[MITgcm]/MITgcm/eesupp/src/bar2.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/bar2.F

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

revision 1.1 by cnh, Tue Sep 29 18:53:44 1998 UTC revision 1.2 by adcroft, Tue May 18 17:39:21 1999 UTC
# Line 1  Line 1 
1  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
2    
3        SUBROUTINE BAR2_INIT( myThid )        SUBROUTINE BAR2_INIT( myThid )
4          IMPLICIT NONE
5  C  C
6  #include "SIZE.h"  #include "SIZE.h"
7  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 24  C Line 25  C
25        RETURN        RETURN
26        END        END
27        SUBROUTINE BAR2( myThid )        SUBROUTINE BAR2( myThid )
28          IMPLICIT NONE
29  C  C
30  #include "SIZE.h"  #include "SIZE.h"
31  #include "EEPARAMS.h"  #include "EEPARAMS.h"
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22