/[MITgcm]/MITgcm/pkg/flt/FLT.h
ViewVC logotype

Diff of /MITgcm/pkg/flt/FLT.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jahn, Wed Dec 22 21:25:18 2010 UTC revision 1.6 by jmc, Wed Jan 12 19:00:52 2011 UTC
# Line 27  C     flt_xLo     :: Full domain lower X Line 27  C     flt_xLo     :: Full domain lower X
27  C     flt_xHi     :: Full domain upper X boundary  C     flt_xHi     :: Full domain upper X boundary
28  C     flt_yLo     :: Full domain lower Y boundary  C     flt_yLo     :: Full domain lower Y boundary
29  C     flt_yHi     :: Full domain upper Y boundary  C     flt_yHi     :: Full domain upper Y boundary
30  C  
31        _RL    flt_xLo, flt_xHi, flt_yLo, flt_yHi        _RL    flt_xLo, flt_xHi, flt_yLo, flt_yHi
32        COMMON / FLT_CONST_R /        COMMON / FLT_CONST_R /
33       &       flt_xLo, flt_xHi, flt_yLo, flt_yHi       &       flt_xLo, flt_xHi, flt_yLo, flt_yHi
# Line 48  C           be specified individually fo Line 48  C           be specified individually fo
48  C           for return ing to the surface is called in the profiling routine  C           for return ing to the surface is called in the profiling routine
49  C           flt_int_prof has to be the minimum of all iup(max_npart).  C           flt_int_prof has to be the minimum of all iup(max_npart).
50  C           The subsampling of profiles can be done later in the analysis.  C           The subsampling of profiles can be done later in the analysis.
51  C  
52        _RL flt_noise, flt_deltaT        _RL flt_noise, flt_deltaT
53        _RL flt_int_traj, flt_int_prof        _RL flt_int_traj, flt_int_prof
54        COMMON / FLT_PARAM_R /        COMMON / FLT_PARAM_R /
# Line 59  C     flt_file    :: name of the file co Line 59  C     flt_file    :: name of the file co
59  C                    At initialization the program first looks for a  C                    At initialization the program first looks for a
60  C                    global file flt_file.data. If that is not found it  C                    global file flt_file.data. If that is not found it
61  C                    looks for tiled files flt_file.iG.jG.data.  C                    looks for tiled files flt_file.iG.jG.data.
 C  
62        CHARACTER*(MAX_LEN_FNAM) flt_file        CHARACTER*(MAX_LEN_FNAM) flt_file
63        COMMON / FLT_PARAM_C / flt_file        COMMON / FLT_PARAM_C / flt_file
64    
65    C     mapIniPos2Index :: convert float initial position to (local) index map
66          LOGICAL mapIniPos2Index
67          COMMON / FLT_PARAM_L / mapIniPos2Index
68    
69  C== Float State ==  C== Float State ==
70    
71  C     npart_tile  :: actual number of floats per tile  C     npart_tile  :: actual number of floats per tile
 C  
72        INTEGER npart_tile(nSx,nSy)        INTEGER npart_tile(nSx,nSy)
73        COMMON / FLT_STATE_I / npart_tile        COMMON / FLT_STATE_I / npart_tile
74    
75  C     max_npart   :: total number of floats  C     max_npart   :: total number of floats
76  C                    (this is read from the input files)  C                    (this is read from the input files)
 C  
77        _RL   max_npart        _RL   max_npart
78        COMMON / FLT_STATE_R / max_npart        COMMON / FLT_STATE_R / max_npart
79    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22