/[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.31 by heimbach, Fri May 29 06:12:05 2009 UTC revision 1.32 by heimbach, Wed Oct 14 20:09:40 2009 UTC
# Line 148  cph    index 23             for bottom d Line 148  cph    index 23             for bottom d
148  cph    index 24  cph    index 24
149  cph    index 25-26          for edtaux, edtauy  cph    index 25-26          for edtaux, edtauy
150  cph    index 27-29          for uvel0, vvel0, etan0  cph    index 27-29          for uvel0, vvel0, etan0
151  cph    index 30-31          for relax. SST, SSS  cph    index 30-31          for generic 2d, 3d field
152  cph    index 32    reserved for precip (atmos. state)  cph    index 32    reserved for precip (atmos. state)
153  cph    index 33    reserved for swflux (atmos. state)  cph    index 33    reserved for swflux (atmos. state)
154  cph    index 34    reserved for swdown (atmos. state)  cph    index 34    reserved for swdown (atmos. state)
# Line 723  c-- Line 723  c--
723    
724  c----------------------------------------------------------------------  c----------------------------------------------------------------------
725  c--  c--
726  #ifdef ALLOW_RELAXSST_CONTROL  #ifdef ALLOW_GEN2D_CONTROL
727          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
728       &       xx_relaxsst_file, 30, 130, 1, 1, 1,       &       xx_gen2d_file, 30, 130, 1, 1, 1,
729       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
730  #endif /* ALLOW_RELAXSST_CONTROL */  #endif /* ALLOW_GEN2D_CONTROL */
731    
732  c----------------------------------------------------------------------  c----------------------------------------------------------------------
733  c--  c--
734  #ifdef ALLOW_RELAXSSS_CONTROL  #ifdef ALLOW_GEN3D_CONTROL
735          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
736       &       xx_relaxsss_file, 31, 131, 1, 1, 1,       &       xx_gen3d_file, 31, 131, 1, 1, 1,
737       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
738  #endif /* ALLOW_RELAXSSS_CONTROL */  #endif /* ALLOW_GEN3D_CONTROL */
739    
740  c----------------------------------------------------------------------  c----------------------------------------------------------------------
741  c--  c--
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22