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

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

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

revision 1.22 by gforget, Wed Mar 29 22:07:34 2006 UTC revision 1.23 by heimbach, Wed Jun 7 01:55:13 2006 UTC
# Line 639  c-- Line 639  c--
639    
640  c----------------------------------------------------------------------  c----------------------------------------------------------------------
641  c--  c--
642  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
 # ifdef ALLOW_HFACC3D_CONTROL  
643          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
644       &       xx_hfacc_file, 20, 120, 1, 1, 1,       &       xx_depth_file, 20, 120, 1, 1, 1,
      &       snx, sny, nr, 'c', '3d', mythid )  
 # else  
         call ctrl_init_ctrlvar (  
      &       xx_hfacc_file, 20, 120, 1, 1, 1,  
645       &       snx, sny,  1, 'c', 'xy', mythid )       &       snx, sny,  1, 'c', 'xy', mythid )
646  # endif /*ALLOW_HFACC3D_CONTROL*/  #endif /* ALLOW_DEPTH_CONTROL */
 #endif /* ALLOW_HFACC_CONTROL */  
647    
648  c----------------------------------------------------------------------  c----------------------------------------------------------------------
649  c--  c--
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22