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

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

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

revision 1.1 by adcroft, Tue Mar 14 16:10:23 2000 UTC revision 1.2 by adcroft, Tue Mar 14 20:28:12 2000 UTC
# Line 11  C $Header$ Line 11  C $Header$
11  #include "mpif.h"  #include "mpif.h"
12  #endif  #endif
13    
14        REAL*8 ans        Real*8 ans
15        INTEGER myThid        INTEGER myThid
16    
17  #ifdef LETS_MAKE_JAM  #ifdef LETS_MAKE_JAM
18    
19        REAL*8 phi        Real*8 phi
20        INTEGER RC        INTEGER RC
21    
22        phi = ans        phi = ans
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22