/[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.30 by gforget, Fri May 30 02:48:28 2008 UTC revision 1.31 by heimbach, Fri May 29 06:12:05 2009 UTC
# Line 435  c--   Meridional wind speed. Line 435  c--   Meridional wind speed.
435    
436  #elif (defined (ALLOW_TAUV0_CONTROL))  #elif (defined (ALLOW_TAUV0_CONTROL))
437  c--   initial forcing only  c--   initial forcing only
         diffrec  = endrec - startrec + 1  
438          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
439       &       xx_tauv_file, 6, 106, 1, 1, 1,       &       xx_tauv_file, 6, 106, 1, 1, 1,
440       &       snx, sny, 1, 's', 'xy', mythid )       &       snx, sny, 1, 's', 'xy', mythid )
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22