/[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.15 by heimbach, Mon Feb 28 17:29:38 2005 UTC revision 1.16 by heimbach, Thu Apr 7 23:38:43 2005 UTC
# Line 132  cph    index 21-22          for efluxy, Line 132  cph    index 21-22          for efluxy,
132  cph    index 23-24          for bottom drag  cph    index 23-24          for bottom drag
133  cph)  cph)
134    
135  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
136  c--  c--
137  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
138  c--   Initial state temperature contribution.  c--   Initial state temperature contribution.
# Line 141  c--   Initial state temperature contribu Line 141  c--   Initial state temperature contribu
141       &     snx, sny, nr, 'c', '3d', mythid )       &     snx, sny, nr, 'c', '3d', mythid )
142  #endif /* ALLOW_THETA0_CONTROL */  #endif /* ALLOW_THETA0_CONTROL */
143    
144  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
145  c--  c--
146  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
147  c--   Initial state salinity contribution.  c--   Initial state salinity contribution.
# Line 154  c--   =========================== Line 154  c--   ===========================
154  c--   Surface flux contributions.  c--   Surface flux contributions.
155  c--   ===========================  c--   ===========================
156    
157  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
158  c--  c--
159  #if (defined (ALLOW_HFLUX_CONTROL))  #if (defined (ALLOW_HFLUX_CONTROL))
160  c--   Heat flux.  c--   Heat flux.
# Line 208  c--   initial forcing only Line 208  c--   initial forcing only
208    
209  #endif /* ALLOW_HFLUX_CONTROL */  #endif /* ALLOW_HFLUX_CONTROL */
210    
211  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
212  c--  c--
213  #if (defined (ALLOW_SFLUX_CONTROL))  #if (defined (ALLOW_SFLUX_CONTROL))
214  c--   Salt flux.  c--   Salt flux.
# Line 262  c--   initial forcing only Line 262  c--   initial forcing only
262    
263  #endif /* ALLOW_SFLUX_CONTROL */  #endif /* ALLOW_SFLUX_CONTROL */
264    
265  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
266  c--  c--
267  #if (defined (ALLOW_USTRESS_CONTROL))  #if (defined (ALLOW_USTRESS_CONTROL))
268  c--   Zonal wind stress.  c--   Zonal wind stress.
# Line 316  c--   initial forcing only Line 316  c--   initial forcing only
316    
317  #endif /* ALLOW_USTRESS_CONTROL */  #endif /* ALLOW_USTRESS_CONTROL */
318    
319  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
320  c--  c--
321  #if (defined (ALLOW_VSTRESS_CONTROL))  #if (defined (ALLOW_VSTRESS_CONTROL))
322  c--   Meridional wind stress.  c--   Meridional wind stress.
# Line 375  c--   =========================== Line 375  c--   ===========================
375  c--   Open boundary contributions.  c--   Open boundary contributions.
376  c--   ===========================  c--   ===========================
377    
378  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
379  c--  c--
380  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
381  c--   Northern obc.  c--   Northern obc.
# Line 401  c--   Northern obc. Line 401  c--   Northern obc.
401    
402  #endif /* ALLOW_OBCSN_CONTROL */  #endif /* ALLOW_OBCSN_CONTROL */
403    
404  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
405  c--  c--
406  #ifdef ALLOW_OBCSS_CONTROL  #ifdef ALLOW_OBCSS_CONTROL
407  c--   Southern obc.  c--   Southern obc.
# Line 427  c--   Southern obc. Line 427  c--   Southern obc.
427    
428  #endif /* ALLOW_OBCSS_CONTROL */  #endif /* ALLOW_OBCSS_CONTROL */
429    
430  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
431  c--  c--
432  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
433  c--   Western obc.  c--   Western obc.
# Line 453  c--   Western obc. Line 453  c--   Western obc.
453    
454  #endif  /* ALLOW_OBCSW_CONTROL */  #endif  /* ALLOW_OBCSW_CONTROL */
455    
456  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
457  c--  c--
458  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
459  c--   Eastern obc.  c--   Eastern obc.
# Line 479  c--   Eastern obc. Line 479  c--   Eastern obc.
479    
480  #endif /* ALLOW_OBCSE_CONTROL */  #endif /* ALLOW_OBCSE_CONTROL */
481    
482  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
483  c--  c--
484  #ifdef ALLOW_DIFFKR_CONTROL  #ifdef ALLOW_DIFFKR_CONTROL
485          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 487  c-- Line 487  c--
487       &       snx, sny, nr, 'c', '3d', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
488  #endif /* ALLOW_DIFFKR_CONTROL */  #endif /* ALLOW_DIFFKR_CONTROL */
489    
490  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
491  c--  c--
492  #ifdef ALLOW_KAPGM_CONTROL  #ifdef ALLOW_KAPGM_CONTROL
493          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 495  c-- Line 495  c--
495       &       snx, sny, nr, 'c', '3d', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
496  #endif /* ALLOW_KAPGM_CONTROL */  #endif /* ALLOW_KAPGM_CONTROL */
497    
498  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
499  c--  c--
500  #ifdef ALLOW_TR10_CONTROL  #ifdef ALLOW_TR10_CONTROL
501          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 503  c-- Line 503  c--
503       &       snx, sny, nr, 'c', '3d', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
504  #endif /* ALLOW_TR10_CONTROL */  #endif /* ALLOW_TR10_CONTROL */
505    
506  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
507  c--  c--
508  #ifdef ALLOW_SST0_CONTROL  #ifdef ALLOW_SST0_CONTROL
509          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 511  c-- Line 511  c--
511       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
512  #endif /* ALLOW_SST0_CONTROL */  #endif /* ALLOW_SST0_CONTROL */
513    
514  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
515  c--  c--
516  #ifdef ALLOW_SSS0_CONTROL  #ifdef ALLOW_SSS0_CONTROL
517          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 519  c-- Line 519  c--
519       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
520  #endif /* ALLOW_SSS0_CONTROL */  #endif /* ALLOW_SSS0_CONTROL */
521    
522  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
523  c--  c--
524  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_HFACC_CONTROL
525  # ifdef ALLOW_HFACC3D_CONTROL  # ifdef ALLOW_HFACC3D_CONTROL
# Line 533  c-- Line 533  c--
533  # endif /*ALLOW_HFACC3D_CONTROL*/  # endif /*ALLOW_HFACC3D_CONTROL*/
534  #endif /* ALLOW_HFACC_CONTROL */  #endif /* ALLOW_HFACC_CONTROL */
535    
536  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
537  c--  c--
538  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
539          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 541  c-- Line 541  c--
541       &       snx, sny, nr, 's', '3d', mythid )       &       snx, sny, nr, 's', '3d', mythid )
542  #endif /* ALLOW_EFLUXY0_CONTROL */  #endif /* ALLOW_EFLUXY0_CONTROL */
543    
544  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
545  c--  c--
546  #ifdef ALLOW_EFLUXP0_CONTROL  #ifdef ALLOW_EFLUXP0_CONTROL
547          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 549  c-- Line 549  c--
549       &       snx, sny, nr, 'v', '3d', mythid )       &       snx, sny, nr, 'v', '3d', mythid )
550  #endif /* ALLOW_EFLUXP0_CONTROL */  #endif /* ALLOW_EFLUXP0_CONTROL */
551    
552  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
553  c--  c--
554  #ifdef ALLOW_BOTTOMDRAG_CONTROL  #ifdef ALLOW_BOTTOMDRAG_CONTROL
555          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 557  c-- Line 557  c--
557       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
558  #endif /* ALLOW_BOTTOMDRAG_CONTROL */  #endif /* ALLOW_BOTTOMDRAG_CONTROL */
559    
560  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
561  c--  c--
562  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDTAUX_CONTROL
563          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 565  c-- Line 565  c--
565       &       snx, sny, nr, 'w', '3d', mythid )       &       snx, sny, nr, 'w', '3d', mythid )
566  #endif /* ALLOW_EDTAUX_CONTROL */  #endif /* ALLOW_EDTAUX_CONTROL */
567    
568  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
569  c--  c--
570  #ifdef ALLOW_EDTAUY_CONTROL  #ifdef ALLOW_EDTAUY_CONTROL
571          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
# Line 573  c-- Line 573  c--
573       &       snx, sny, nr, 's', '3d', mythid )       &       snx, sny, nr, 's', '3d', mythid )
574  #endif /* ALLOW_EDTAUY_CONTROL */  #endif /* ALLOW_EDTAUY_CONTROL */
575    
576  c-------------------------------------------------------------------------------  c----------------------------------------------------------------------
577  c-------------------------------------------------------------------------------  c--
578  c-------------------------------------------------------------------------------  #ifdef ALLOW_UVEL0_CONTROL
579            call ctrl_init_ctrlvar (
580         &       xx_uvel_file, 27, 127, 1, 1, 1,
581         &       snx, sny, nr, 'w', '3d', mythid )
582    #endif /* ALLOW_UVEL0_CONTROL */
583    
584    c----------------------------------------------------------------------
585    c--
586    #ifdef ALLOW_VVEL0_CONTROL
587            call ctrl_init_ctrlvar (
588         &       xx_vvel_file, 28, 128, 1, 1, 1,
589         &       snx, sny, nr, 's', '3d', mythid )
590    #endif /* ALLOW_VVEL0_CONTROL */
591    
592    c----------------------------------------------------------------------
593    c--
594    #ifdef ALLOW_ETAN0_CONTROL
595            call ctrl_init_ctrlvar (
596         &       xx_etan_file, 29, 129, 1, 1, 1,
597         &       snx, sny, 1, 'c', 'xy', mythid )
598    #endif /* ALLOW_VVEL0_CONTROL */
599    
600    c----------------------------------------------------------------------
601    c--
602    #ifdef ALLOW_RELAXSST_CONTROL
603            call ctrl_init_ctrlvar (
604         &       xx_relaxsst_file, 30, 130, 1, 1, 1,
605         &       snx, sny, 1, 'c', 'xy', mythid )
606    #endif /* ALLOW_RELAXSST_CONTROL */
607    
608    c----------------------------------------------------------------------
609    c--
610    #ifdef ALLOW_RELAXSSS_CONTROL
611            call ctrl_init_ctrlvar (
612         &       xx_relaxsss_file, 31, 131, 1, 1, 1,
613         &       snx, sny, 1, 'c', 'xy', mythid )
614    #endif /* ALLOW_RELAXSSS_CONTROL */
615    
616    c----------------------------------------------------------------------
617    c----------------------------------------------------------------------
618    c----------------------------------------------------------------------
619    
620          call ctrl_init_wet( mythid )          call ctrl_init_wet( mythid )
621                    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22