/[MITgcm]/MITgcm/pkg/flt/flt_runga2.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_runga2.F

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

revision 1.5 by edhill, Mon Sep 13 16:13:42 2004 UTC revision 1.6 by jmc, Tue Mar 1 16:52:27 2005 UTC
# Line 62  c     == local variables == Line 62  c     == local variables ==
62  #undef _USE_INTEGERS  #undef _USE_INTEGERS
63  #ifdef _USE_INTEGERS  #ifdef _USE_INTEGERS
64        integer seed        integer seed
65          seed = -1
66  #else  #else
67        Real*8 seed        Real*8 seed
68          seed = -1.d0
69  #endif  #endif
70  #endif  #endif
71    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22