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

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

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

revision 1.6 by heimbach, Thu Oct 30 19:09:05 2003 UTC revision 1.7 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_pack_xyz(        subroutine ctrl_set_pack_xyz(
5       &     cunit, ivartype, fname, masktype, weighttype,       &     cunit, ivartype, fname, masktype, weighttype,
6       &     weightfld, lxxadxx, mythid)       &     weightfld, lxxadxx, 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 69  c     == local variables == Line 64  c     == local variables ==
64    
65        integer cbuffindex        integer cbuffindex
66    
67        _RL     cbuff    ( snx*nsx*npx*sny*nsy*npy )        real*4     cbuff    ( snx*nsx*npx*sny*nsy*npy )
68        _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )        _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
69        _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )        _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
70  #ifdef CTRL_PACK_PRECISE  #ifdef CTRL_PACK_PRECISE
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22