/[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.24 by heimbach, Fri Oct 27 05:16:54 2006 UTC revision 1.25 by heimbach, Fri Nov 10 04:57:09 2006 UTC
# Line 465  c--   Northern obc. Line 465  c--   Northern obc.
465          diffrec  = endrec          diffrec  = endrec
466          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
467       &       xx_obcsn_file, 11, 111, diffrec, startrec, endrec,       &       xx_obcsn_file, 11, 111, diffrec, startrec, endrec,
468       &       snx, sny, nr, 'm', 'xz', mythid )       &       snx, 1, nr, 'm', 'xz', mythid )
469    
470  #endif /* ALLOW_OBCSN_CONTROL */  #endif /* ALLOW_OBCSN_CONTROL */
471    
# Line 491  c--   Southern obc. Line 491  c--   Southern obc.
491          diffrec  = endrec          diffrec  = endrec
492          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
493       &       xx_obcss_file, 12, 112, diffrec, startrec, endrec,       &       xx_obcss_file, 12, 112, diffrec, startrec, endrec,
494       &       snx, sny, nr, 'm', 'xz', mythid )       &       snx, 1, nr, 'm', 'xz', mythid )
495    
496  #endif /* ALLOW_OBCSS_CONTROL */  #endif /* ALLOW_OBCSS_CONTROL */
497    
# Line 517  c--   Western obc. Line 517  c--   Western obc.
517          diffrec  = endrec          diffrec  = endrec
518          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
519       &       xx_obcsw_file, 13, 113, diffrec, startrec, endrec,       &       xx_obcsw_file, 13, 113, diffrec, startrec, endrec,
520       &       snx, sny, nr, 'm', 'yz', mythid )       &       1, sny, nr, 'm', 'yz', mythid )
521    
522  #endif  /* ALLOW_OBCSW_CONTROL */  #endif  /* ALLOW_OBCSW_CONTROL */
523    
# Line 543  c--   Eastern obc. Line 543  c--   Eastern obc.
543          diffrec  = endrec          diffrec  = endrec
544          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
545       &       xx_obcse_file, 14, 114, diffrec, startrec, endrec,       &       xx_obcse_file, 14, 114, diffrec, startrec, endrec,
546       &       snx, sny, nr, 'm', 'yz', mythid )       &       1, sny, nr, 'm', 'yz', mythid )
547    
548  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
549    
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22