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

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

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

revision 1.2 by adcroft, Mon Mar 22 17:37:43 1999 UTC revision 1.3 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 GSUM_R8_INIT( myThid )        SUBROUTINE GSUM_R8_INIT( myThid )
4  C        IMPLICIT NONE
5  #include "SIZE.h"  #include "SIZE.h"
6  #include "EEPARAMS.h"  #include "EEPARAMS.h"
7  #include "EESUPPORT.h"  #include "EESUPPORT.h"
# Line 25  C Line 25  C
25        RETURN        RETURN
26        END        END
27        SUBROUTINE GSUM_R8( myPhi, answer, myThid )        SUBROUTINE GSUM_R8( myPhi, answer, myThid )
28  C        IMPLICIT NONE
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "EESUPPORT.h"  #include "EESUPPORT.h"
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22