/[MITgcm]/MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F
ViewVC logotype

Diff of /MITgcm_contrib/mlosch/optim_m1qn3/optim_readdata.F

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

revision 1.1 by mlosch, Thu Apr 26 11:10:06 2012 UTC revision 1.2 by mlosch, Fri Apr 27 09:50:46 2012 UTC
# Line 47  c     == routine arguments == Line 47  c     == routine arguments ==
47        integer nn        integer nn
48        _RL     ff        _RL     ff
49    
50  #if defined (DYNAMIC)  #ifdef DYNAMIC
51        _RL     vv(nn)        _RL     vv(nn)
 #elif defined (USE_POINTER) || (MAX_INDEPEND == 0)  
       _RL            vv  
       pointer (pvv,vv(1))  
52  #else  #else
53        integer nmax        integer nmax
54        parameter( nmax = MAX_INDEPEND )        parameter( nmax = MAX_INDEPEND )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22