/[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.33 by jmc, Thu Aug 21 15:16:01 2008 UTC revision 1.34 by jmc, Tue Apr 28 22:11:12 2009 UTC
# Line 274  C--   Print a summary of pTracer paramet Line 274  C--   Print a summary of pTracer paramet
274        CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,        CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
275       &   'PTRACERS_Iter0 =',       &   'PTRACERS_Iter0 =',
276       &   ' /* timestep number when tracers are initialized */')       &   ' /* timestep number when tracers are initialized */')
277        CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,        CALL WRITE_0D_RL(PTRACERS_dumpFreq, INDEX_NONE,
278       &   'PTRACERS_dumpFreq =',       &   'PTRACERS_dumpFreq =',
279       &   ' /* Frequency^-1 for snapshot output (s) */')       &   ' /* Frequency^-1 for snapshot output (s) */')
280        CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE,        CALL WRITE_0D_RL(PTRACERS_taveFreq, INDEX_NONE,
281       &   'PTRACERS_taveFreq =',       &   'PTRACERS_taveFreq =',
282       &   ' /* Frequency^-1 for time-Aver. output (s) */')       &   ' /* Frequency^-1 for time-Aver. output (s) */')
283        CALL WRITE_0D_L( PTRACERS_useRecords, INDEX_NONE,        CALL WRITE_0D_L( PTRACERS_useRecords, INDEX_NONE,
# Line 308  C--   Print a summary of pTracer paramet Line 308  C--   Print a summary of pTracer paramet
308          CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE,          CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE,
309       &     'PTRACERS_ImplVertAdv =',       &     'PTRACERS_ImplVertAdv =',
310       &     ' /* implicit vert. advection flag */')       &     ' /* implicit vert. advection flag */')
311          CALL WRITE_0D_R8( PTRACERS_diffKh(iTracer), INDEX_NONE,          CALL WRITE_0D_RL( PTRACERS_diffKh(iTracer), INDEX_NONE,
312       &     'PTRACERS_diffKh =', ' /* Laplacian Diffusivity */')       &     'PTRACERS_diffKh =', ' /* Laplacian Diffusivity */')
313          CALL WRITE_0D_R8( PTRACERS_diffK4(iTracer), INDEX_NONE,          CALL WRITE_0D_RL( PTRACERS_diffK4(iTracer), INDEX_NONE,
314       &     'PTRACERS_diffK4 =', ' /* Biharmonic Diffusivity */')       &     'PTRACERS_diffK4 =', ' /* Biharmonic Diffusivity */')
315          CALL WRITE_1D_R8( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K,          CALL WRITE_1D_RL( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K,
316       &     'PTRACERS_diffKrNr =', ' /* Vertical Diffusivity */')       &     'PTRACERS_diffKrNr =', ' /* Vertical Diffusivity */')
317          CALL WRITE_0D_L( PTRACERS_useGMRedi(iTracer), INDEX_NONE,          CALL WRITE_0D_L( PTRACERS_useGMRedi(iTracer), INDEX_NONE,
318       &     'PTRACERS_useGMRedi =', ' /* apply GM-Redi */')       &     'PTRACERS_useGMRedi =', ' /* apply GM-Redi */')
# Line 320  C--   Print a summary of pTracer paramet Line 320  C--   Print a summary of pTracer paramet
320       &     'PTRACERS_useDWNSLP =', ' /* apply DOWN-SLOPE Flow */')       &     'PTRACERS_useDWNSLP =', ' /* apply DOWN-SLOPE Flow */')
321          CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,          CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,
322       &     'PTRACERS_useKPP =', ' /* apply KPP scheme */')       &     'PTRACERS_useKPP =', ' /* apply KPP scheme */')
323          CALL WRITE_1D_R8( PTRACERS_ref(1,iTracer), Nr, INDEX_K,          CALL WRITE_1D_RL( PTRACERS_ref(1,iTracer), Nr, INDEX_K,
324       &     'PTRACERS_ref =', ' /* Reference vertical profile */')       &     'PTRACERS_ref =', ' /* Reference vertical profile */')
325          CALL WRITE_0D_R8( PTRACERS_EvPrRn(iTracer), INDEX_NONE,          CALL WRITE_0D_RL( PTRACERS_EvPrRn(iTracer), INDEX_NONE,
326       &     'PTRACERS_EvPrRn =', '/* tracer conc. in Evap. & Rain */')       &     'PTRACERS_EvPrRn =', '/* tracer conc. in Evap. & Rain */')
327    
328        ENDDO        ENDDO
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22