/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_unpack_xy.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_unpack_xy.F

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

revision 1.5 by heimbach, Thu Oct 30 19:09:06 2003 UTC revision 1.6 by heimbach, Thu Nov 6 22:05:08 2003 UTC
# Line 1  Line 1 
 C  
 C $Header$  
 C $Name$  
1    
2  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
3    
   
4        subroutine ctrl_set_unpack_xy(        subroutine ctrl_set_unpack_xy(
5       &     cunit, ivartype, fname, masktype, weighttype,       &     cunit, ivartype, fname, masktype, weighttype,
6       &     nwetglobal, mythid)       &     nwetglobal, mythid)
# Line 33  c     == global variables == Line 29  c     == global variables ==
29  #include "GRID.h"  #include "GRID.h"
30    
31  #include "ctrl.h"  #include "ctrl.h"
 #include "cost.h"  
32    
33  #ifdef ALLOW_ECCO_OPTIMIZATION  #ifdef ALLOW_ECCO_OPTIMIZATION
34  #include "optim.h"  #include "optim.h"
# Line 68  c     == local variables == Line 63  c     == local variables ==
63    
64        integer cbuffindex        integer cbuffindex
65    
66        _RL     cbuff    ( snx*nsx*npx*sny*nsy*npy )        real*4     cbuff    ( snx*nsx*npx*sny*nsy*npy )
67        _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )        _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
68        _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )        _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
69        _RL     globfld2d( snx,nsx,npx,sny,nsy,npy )        _RL     globfld2d( snx,nsx,npx,sny,nsy,npy )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22