/[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.2 by heimbach, Fri Jul 13 13:40:17 2001 UTC revision 1.3 by heimbach, Mon Aug 13 18:10:26 2001 UTC
# Line 269  cph    index 17    reserved for passive Line 269  cph    index 17    reserved for passive
269  cph    index 18,19 reserved for sst, sss  cph    index 18,19 reserved for sst, sss
270  cph)  cph)
271    
272    #ifdef ALLOW_DIFFKR_CONTROL
273          _BEGIN_MASTER( mythid )
274            ncvarindex(15) = 115
275            ncvarrecs (15) =   1
276            ncvarxmax (15) = snx
277            ncvarymax (15) = sny
278            ncvarnrmax(15) =  nr
279            ncvargrd  (15) = 'c'
280          _END_MASTER( mythid )
281    #endif /* ALLOW_DIFFKR_CONTROL */
282    
283    #ifdef ALLOW_KAPGM_CONTROL
284          _BEGIN_MASTER( mythid )
285            ncvarindex(16) = 116
286            ncvarrecs (16) =   1
287            ncvarxmax (16) = snx
288            ncvarymax (16) = sny
289            ncvarnrmax(16) =  nr
290            ncvargrd  (16) = 'c'
291          _END_MASTER( mythid )
292    #endif /* ALLOW_KAPGM_CONTROL */
293    
294  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
295        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
296          ncvarindex(17) = 117          ncvarindex(17) = 117
297          ncvarrecs(17)  =   1          ncvarrecs (17) =   1
298          ncvarxmax(17)  = snx          ncvarxmax (17) = snx
299          ncvarymax(17)  = sny          ncvarymax (17) = sny
300          ncvarnrmax(17) =  nr          ncvarnrmax(17) =  nr
301          ncvargrd(17)   = 'c'          ncvargrd  (17) = 'c'
302        _END_MASTER( mythid )        _END_MASTER( mythid )
303  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
304    
305  #ifdef ALLOW_SST0_CONTROL  #ifdef ALLOW_SST0_CONTROL
306        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
307          ncvarindex(18) = 118          ncvarindex(18) = 118
308          ncvarrecs(18)  =   1          ncvarrecs (18) =   1
309          ncvarxmax(18)  = snx          ncvarxmax (18) = snx
310          ncvarymax(18)  = sny          ncvarymax (18) = sny
311          ncvarnrmax(18) =   1          ncvarnrmax(18) =   1
312          ncvargrd(18)   = 'c'          ncvargrd  (18) = 'c'
313        _END_MASTER( mythid )        _END_MASTER( mythid )
314  #endif /* ALLOW_SST0_CONTROL */  #endif /* ALLOW_SST0_CONTROL */
315    
316  #ifdef ALLOW_SSS0_CONTROL  #ifdef ALLOW_SSS0_CONTROL
317        _BEGIN_MASTER( mythid )        _BEGIN_MASTER( mythid )
318          ncvarindex(19) = 119          ncvarindex(19) = 119
319          ncvarrecs(19)  =   1          ncvarrecs (19) =   1
320          ncvarxmax(19)  = snx          ncvarxmax (19) = snx
321          ncvarymax(19)  = sny          ncvarymax (19) = sny
322          ncvarnrmax(19) =   1          ncvarnrmax(19) =   1
323          ncvargrd(19)   = 'c'          ncvargrd  (19) = 'c'
324        _END_MASTER( mythid )        _END_MASTER( mythid )
325  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
326    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22