/[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.14 by heimbach, Thu Feb 24 05:08:34 2005 UTC revision 1.15 by heimbach, Mon Feb 28 17:29:38 2005 UTC
# Line 558  c-- Line 558  c--
558  #endif /* ALLOW_BOTTOMDRAG_CONTROL */  #endif /* ALLOW_BOTTOMDRAG_CONTROL */
559    
560  c-------------------------------------------------------------------------------  c-------------------------------------------------------------------------------
561    c--
562    #ifdef ALLOW_EDTAUX_CONTROL
563            call ctrl_init_ctrlvar (
564         &       xx_edtaux_file, 25, 125, 1, 1, 1,
565         &       snx, sny, nr, 'w', '3d', mythid )
566    #endif /* ALLOW_EDTAUX_CONTROL */
567    
568    c-------------------------------------------------------------------------------
569    c--
570    #ifdef ALLOW_EDTAUY_CONTROL
571            call ctrl_init_ctrlvar (
572         &       xx_edtauy_file, 26, 126, 1, 1, 1,
573         &       snx, sny, nr, 's', '3d', mythid )
574    #endif /* ALLOW_EDTAUY_CONTROL */
575    
576    c-------------------------------------------------------------------------------
577  c-------------------------------------------------------------------------------  c-------------------------------------------------------------------------------
578  c-------------------------------------------------------------------------------  c-------------------------------------------------------------------------------
579    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22