/[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.12 by heimbach, Tue Nov 16 05:42:12 2004 UTC revision 1.13 by mlosch, Fri Dec 3 00:48:57 2004 UTC
# Line 394  c--   Northern obc. Line 394  c--   Northern obc.
394          startrec = 1          startrec = 1
395          endrec   = 1          endrec   = 1
396  # endif  # endif
397          diffrec  = endrec*nobcs          diffrec  = endrec
398          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
399       &       xx_obcsn_file, 11, 111, diffrec, startrec, endrec,       &       xx_obcsn_file, 11, 111, diffrec, startrec, endrec,
400       &       snx, sny, nr, 'm', 'xz', mythid )       &       snx, sny, nr, 'm', 'xz', mythid )
# Line 420  c--   Southern obc. Line 420  c--   Southern obc.
420          startrec = 1          startrec = 1
421          endrec   = 1          endrec   = 1
422  # endif  # endif
423          diffrec  = endrec*nobcs          diffrec  = endrec
424          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
425       &       xx_obcss_file, 12, 112, diffrec, startrec, endrec,       &       xx_obcss_file, 12, 112, diffrec, startrec, endrec,
426       &       snx, sny, nr, 'm', 'xz', mythid )       &       snx, sny, nr, 'm', 'xz', mythid )
# Line 446  c--   Western obc. Line 446  c--   Western obc.
446          startrec = 1          startrec = 1
447          endrec   = 1          endrec   = 1
448  # endif  # endif
449          diffrec  = endrec*nobcs          diffrec  = endrec
450          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
451       &       xx_obcsw_file, 13, 113, diffrec, startrec, endrec,       &       xx_obcsw_file, 13, 113, diffrec, startrec, endrec,
452       &       snx, sny, nr, 'm', 'yz', mythid )       &       snx, sny, nr, 'm', 'yz', mythid )
# Line 472  c--   Eastern obc. Line 472  c--   Eastern obc.
472          startrec = 1          startrec = 1
473          endrec   = 1          endrec   = 1
474  # endif  # endif
475          diffrec  = endrec*nobcs          diffrec  = endrec
476          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
477       &       xx_obcse_file, 14, 114, diffrec, startrec, endrec,       &       xx_obcse_file, 14, 114, diffrec, startrec, endrec,
478       &       snx, sny, nr, 'm', 'yz', mythid )       &       snx, sny, nr, 'm', 'yz', mythid )
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22