/[MITgcm]/MITgcm/pkg/flt/flt_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_init_fixed.F

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

revision 1.1 by jmc, Sat Jan 31 22:21:31 2009 UTC revision 1.2 by jmc, Sun Feb 1 20:48:50 2009 UTC
# Line 8  C $Name$ Line 8  C $Name$
8  C     ==================================================================  C     ==================================================================
9  C     SUBROUTINE FLT_INIT_FIXED  C     SUBROUTINE FLT_INIT_FIXED
10  C     ==================================================================  C     ==================================================================
11  C  C     o initializes Fixed array
 C     o This routine initializes the start/restart positions.  
 C       It does the following:  
 C     o First it checks for local files. These are supposed to be restarts  
 C       from a previous integration. The floats can therefore be read in  
 C       without any further check (because they exist on the specific tile).  
 C     o If no local files are available the routine assumes that this  
 C       is an initialization. In that case it reads a global file  
 C       (that has the same format as local files) and sorts those floats  
 C       that exist on the specific tile into the local array.  
 C     o At the end the float positions are written to the trajectory file  
 C  
 C     ==================================================================  
 C     SUBROUTINE flt_init  
12  C     ==================================================================  C     ==================================================================
13    
14    C     !USES:
15          IMPLICIT NONE
16    
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PARAMS.h"  #include "PARAMS.h"
# Line 31  C     ================================== Line 21  C     ==================================
21  #include "FLT.h"  #include "FLT.h"
22    
23  C     == routine arguments ==  C     == routine arguments ==
   
24  C     myThid - thread number for this instance of the routine.  C     myThid - thread number for this instance of the routine.
25        INTEGER myThid        INTEGER myThid
26    
27  C     == local variables ==  C     == local variables ==
28        INTEGER bi, bj        INTEGER bi, bj
29        _RL xLo, xHi, yLo, yHi        _RL xLo, xHi, yLo, yHi
   
30        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
31    
32  C     == end of interface ==  C     == end of interface ==
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22