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

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

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

revision 1.7 by mlosch, Mon Oct 10 05:53:48 2005 UTC revision 1.8 by jmc, Thu Dec 15 00:48:16 2005 UTC
# Line 43  c     == routine arguments == Line 43  c     == routine arguments ==
43    
44  c     == local variables ==  c     == local variables ==
45    
46    #ifdef ALLOW_EXF
47        logical first, changed        logical first, changed
48        integer count0, count1        integer count0, count1
49        integer year0, year1        integer year0, year1
# Line 50  c     == local variables == Line 51  c     == local variables ==
51  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
52        integer iTracer, i,j,k        integer iTracer, i,j,k
53  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
54    #endif /* ALLOW_EXF */
55    
56  c     == end of interface ==  c     == end of interface ==
57    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22