/[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.13 by mlosch, Fri Dec 3 00:48:57 2004 UTC revision 1.14 by heimbach, Thu Feb 24 05:08:34 2005 UTC
# Line 306  c--   Zonal wind speed. Line 306  c--   Zonal wind speed.
306          diffrec  = endrec - startrec + 1          diffrec  = endrec - startrec + 1
307          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
308       &       xx_uwind_file, 9, 109, diffrec, startrec, endrec,       &       xx_uwind_file, 9, 109, diffrec, startrec, endrec,
309       &       snx, sny, 1, 'w', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
310    
311  #elif (defined (ALLOW_TAUU0_CONTROL))  #elif (defined (ALLOW_TAUU0_CONTROL))
312  c--   initial forcing only  c--   initial forcing only
# Line 360  c--   Meridional wind speed. Line 360  c--   Meridional wind speed.
360          diffrec  = endrec - startrec + 1          diffrec  = endrec - startrec + 1
361          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
362       &       xx_vwind_file, 10, 110, diffrec, startrec, endrec,       &       xx_vwind_file, 10, 110, diffrec, startrec, endrec,
363       &       snx, sny, 1, 's', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
364    
365  #elif (defined (ALLOW_TAUV0_CONTROL))  #elif (defined (ALLOW_TAUV0_CONTROL))
366  c--   initial forcing only  c--   initial forcing only
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22