/[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.18 by edhill, Mon Feb 7 19:07:18 2005 UTC revision 1.19 by jmc, Sat May 14 22:50:15 2005 UTC
# Line 51  C                          are written t Line 51  C                          are written t
51       &     PTRACERS_diffKrNr,       &     PTRACERS_diffKrNr,
52       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
53       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
54         &     PTRACERS_Iter0,
55       &     PTRACERS_numInUse,       &     PTRACERS_numInUse,
56       &     PTRACERS_initialFile,       &     PTRACERS_initialFile,
57       &     PTRACERS_useRecords,       &     PTRACERS_useRecords,
# Line 67  C     Set defaults values for parameters Line 68  C     Set defaults values for parameters
68        PTRACERS_dumpFreq    = dumpFreq        PTRACERS_dumpFreq    = dumpFreq
69        PTRACERS_taveFreq    = taveFreq        PTRACERS_taveFreq    = taveFreq
70        PTRACERS_monitorFreq = monitorFreq        PTRACERS_monitorFreq = monitorFreq
71          PTRACERS_Iter0   = 0
72        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
73        DO iTracer=1,PTRACERS_num        DO iTracer=1,PTRACERS_num
74          PTRACERS_advScheme(iTracer)=saltAdvScheme          PTRACERS_advScheme(iTracer)=saltAdvScheme
# Line 187  C--   Print a summary of pTracer paramet Line 189  C--   Print a summary of pTracer paramet
189        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,
190       &   'PTRACERS_numInUse =',       &   'PTRACERS_numInUse =',
191       &   ' /* number of tracers */')       &   ' /* number of tracers */')
192          CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
193         &   'PTRACERS_Iter0 =',
194         &   ' /* timestep number when tracers are initialized */')
195        CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,        CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,
196       &   'PTRACERS_dumpFreq =',       &   'PTRACERS_dumpFreq =',
197       &   ' /* Frequency^-1 for snapshot output (s) */')       &   ' /* Frequency^-1 for snapshot output (s) */')
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22