/[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.6 by jmc, Wed Jan 12 19:00:52 2011 UTC revision 1.7 by jmc, Wed Aug 31 21:41:55 2011 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_selectTrajOutp, flt_selectProfOutp,
33       &                   flt_noise, flt_deltaT,       &                   flt_noise, flt_deltaT,
34       &                   flt_file, mapIniPos2Index       &                   flt_file, mapIniPos2Index
35    
# Line 43  C     Set default values. Line 44  C     Set default values.
44        flt_noise    = 0.0        flt_noise    = 0.0
45        flt_file     = 'float_pos'        flt_file     = 'float_pos'
46        mapIniPos2Index = .TRUE.        mapIniPos2Index = .TRUE.
47          flt_selectTrajOutp = 2
48          flt_selectProfOutp = 2
49    
50        WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt'        WRITE(msgBuf,'(A)') ' FLT_READPARMS: opening data.flt'
51        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22