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

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

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.9 by jmc, Tue May 27 23:41:28 2014 UTC
# Line 29  C     == local variables == Line 29  C     == local variables ==
29        INTEGER iUnit        INTEGER iUnit
30    
31        NAMELIST /FLT_NML/ flt_int_traj, flt_int_prof,        NAMELIST /FLT_NML/ flt_int_traj, flt_int_prof,
32       &                   flt_noise, flt_deltaT,       &                   flt_selectTrajOutp, flt_selectProfOutp,
33       &                   flt_file       &                   flt_noise, flt_deltaT, FLT_Iter0,
34         &                   flt_file, mapIniPos2Index
35    
36  C     == end of interface ==  C     == end of interface ==
37    
38          IF ( .NOT.useFLT ) THEN
39    C-    pkg FLT is not used
40            _BEGIN_MASTER(myThid)
41    C-    Track pkg activation status:
42    C     print a (weak) warning if data.flt is found
43             CALL PACKAGES_UNUSED_MSG( 'useFLT', ' ', ' ' )
44            _END_MASTER(myThid)
45            RETURN
46          ENDIF
47    
48        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
49    
50  C     Set default values.  C     Set default values.
51        flt_deltaT   = deltaTClock        flt_deltaT   = deltaTClock
52          FLT_Iter0 = 0
53        flt_int_traj =  3600.        flt_int_traj =  3600.
54        flt_int_prof = 43200.        flt_int_prof = 43200.
55        flt_noise    = 0.0        flt_noise    = 0.0
56        flt_file     = 'float_pos'        flt_file     = 'float_pos'
57          mapIniPos2Index = .TRUE.
58          flt_selectTrajOutp = 2
59          flt_selectProfOutp = 2
60    
61        WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt'        WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt'
62        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22