/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

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

revision 1.13 by mlosch, Sun Nov 28 23:50:59 2004 UTC revision 1.14 by mlosch, Wed Dec 1 22:54:02 2004 UTC
# Line 40  C     msgBuf     :: message buffer Line 40  C     msgBuf     :: message buffer
40  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
41  C                          are written to post-processing files.  C                          are written to post-processing files.
42        NAMELIST /PTRACERS_PARM01/        NAMELIST /PTRACERS_PARM01/
43         &     PTRACERS_dumpFreq,
44       &     PTRACERS_taveFreq,       &     PTRACERS_taveFreq,
45       &     PTRACERS_monitorFreq,       &     PTRACERS_monitorFreq,
46       &     PTRACERS_advScheme,       &     PTRACERS_advScheme,
# Line 63  C     internal flag to indicate we are i Line 64  C     internal flag to indicate we are i
64        PTRACERSisON=.TRUE.        PTRACERSisON=.TRUE.
65    
66  C     Set defaults values for parameters in PTRACERS.h  C     Set defaults values for parameters in PTRACERS.h
67          PTRACERS_taveFreq    = dumpFreq
68        PTRACERS_taveFreq    = taveFreq        PTRACERS_taveFreq    = taveFreq
69        PTRACERS_monitorFreq = monitorFreq        PTRACERS_monitorFreq = monitorFreq
70        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
# Line 176  C--   Print a summary of pTracer paramet Line 178  C--   Print a summary of pTracer paramet
178        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,
179       &   'PTRACERS_numInUse =',       &   'PTRACERS_numInUse =',
180       &   ' /* number of tracers */')       &   ' /* number of tracers */')
181          CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,
182         &   'PTRACERS_dumpFreq =',
183         &   ' /* Frequency^-1 for snapshot output (s) */')
184        CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE,        CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE,
185       &   'PTRACERS_taveFreq =',       &   'PTRACERS_taveFreq =',
186       &   ' /* Frequency^-1 for time-Aver. output (s) */')       &   ' /* Frequency^-1 for time-Aver. output (s) */')
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22