/[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.29 by gforget, Sat Feb 2 02:34:49 2008 UTC revision 1.30 by gforget, Fri May 30 02:48:28 2008 UTC
# Line 688  c-- Line 688  c--
688    
689  c----------------------------------------------------------------------  c----------------------------------------------------------------------
690  c--  c--
691  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDDYPSI_CONTROL
692          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
693       &       xx_edtaux_file, 25, 125, 1, 1, 1,       &       xx_edtaux_file, 25, 125, 1, 1, 1,
694       &       snx, sny, nr, 'w', '3d', mythid )       &       snx, sny, nr, 'w', '3d', mythid )
 #endif /* ALLOW_EDTAUX_CONTROL */  
695    
 c----------------------------------------------------------------------  
 c--  
 #ifdef ALLOW_EDTAUY_CONTROL  
696          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
697       &       xx_edtauy_file, 26, 126, 1, 1, 1,       &       xx_edtauy_file, 26, 126, 1, 1, 1,
698       &       snx, sny, nr, 's', '3d', mythid )       &       snx, sny, nr, 's', '3d', mythid )
699  #endif /* ALLOW_EDTAUY_CONTROL */  #endif /* ALLOW_EDDYPSI_CONTROL */
700    
701  c----------------------------------------------------------------------  c----------------------------------------------------------------------
702  c--  c--
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22