/[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.33 by heimbach, Thu Oct 15 05:22:29 2009 UTC
# Line 75  c     == global variables == Line 75  c     == global variables ==
75  #ifdef ALLOW_OBCS_CONTROL  #ifdef ALLOW_OBCS_CONTROL
76  # include "OBCS.h"  # include "OBCS.h"
77  #endif  #endif
78    #ifdef ALLOW_DIC_CONTROL
79    # include "DIC_CTRL.h"
80    #endif
81    
82  c     == routine arguments ==  c     == routine arguments ==
83    
# Line 148  cph    index 23             for bottom d Line 151  cph    index 23             for bottom d
151  cph    index 24  cph    index 24
152  cph    index 25-26          for edtaux, edtauy  cph    index 25-26          for edtaux, edtauy
153  cph    index 27-29          for uvel0, vvel0, etan0  cph    index 27-29          for uvel0, vvel0, etan0
154  cph    index 30-31          for relax. SST, SSS  cph    index 30-31          for generic 2d, 3d field
155  cph    index 32    reserved for precip (atmos. state)  cph    index 32    reserved for precip (atmos. state)
156  cph    index 33    reserved for swflux (atmos. state)  cph    index 33    reserved for swflux (atmos. state)
157  cph    index 34    reserved for swdown (atmos. state)  cph    index 34    reserved for swdown (atmos. state)
# Line 723  c-- Line 726  c--
726    
727  c----------------------------------------------------------------------  c----------------------------------------------------------------------
728  c--  c--
729  #ifdef ALLOW_RELAXSST_CONTROL  #ifdef ALLOW_GEN2D_CONTROL
730          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
731       &       xx_relaxsst_file, 30, 130, 1, 1, 1,       &       xx_gen2d_file, 30, 130, 1, 1, 1,
732       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, 1, 'c', 'xy', mythid )
733  #endif /* ALLOW_RELAXSST_CONTROL */  #endif /* ALLOW_GEN2D_CONTROL */
734    
735  c----------------------------------------------------------------------  c----------------------------------------------------------------------
736  c--  c--
737  #ifdef ALLOW_RELAXSSS_CONTROL  #ifdef ALLOW_GEN3D_CONTROL
738          call ctrl_init_ctrlvar (          call ctrl_init_ctrlvar (
739       &       xx_relaxsss_file, 31, 131, 1, 1, 1,       &       xx_gen3d_file, 31, 131, 1, 1, 1,
740       &       snx, sny, 1, 'c', 'xy', mythid )       &       snx, sny, nr, 'c', '3d', mythid )
741  #endif /* ALLOW_RELAXSSS_CONTROL */  #endif /* ALLOW_GEN3D_CONTROL */
742    
743  c----------------------------------------------------------------------  c----------------------------------------------------------------------
744  c--  c--
# Line 1046  c--------------------------------------- Line 1049  c---------------------------------------
1049    
1050  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1051  c----------------------------------------------------------------------  c----------------------------------------------------------------------
1052    
1053    #ifdef ALLOW_DIC_CONTROL
1054            do i = 1, dic_n_control
1055               xx_dic(i) = 0. _d 0
1056            enddo
1057    #endif
1058    
1059    c----------------------------------------------------------------------
1060    c----------------------------------------------------------------------
1061    
1062        do bj = jtlo,jthi        do bj = jtlo,jthi
1063          do bi = itlo,ithi          do bi = itlo,ithi
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22