/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_readparams.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_readparams.F

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

revision 1.4 by jahn, Thu Aug 9 21:18:53 2012 UTC revision 1.7 by jahn, Tue Apr 16 20:21:21 2013 UTC
# Line 167  c default periodic forcing to same as fo Line 167  c default periodic forcing to same as fo
167    
168  #ifdef WAVEBANDS  #ifdef WAVEBANDS
169        DO ilam=1,tlam+1        DO ilam=1,tlam+1
170          darwin_wavebands(ilam) = 0          darwin_wavebands(ilam) = -1
171        ENDDO        ENDDO
172  #ifdef DAR_CALC_ACDOM  #ifdef DAR_CALC_ACDOM
173        darwin_Sdom = 0.014 _d 0        darwin_Sdom = 0.014 _d 0
# Line 189  c value >= 100 will be converted to inde Line 189  c value >= 100 will be converted to inde
189          darwin_bbphy(i) = 0 _d 0          darwin_bbphy(i) = 0 _d 0
190        enddo        enddo
191        darwin_radtrans_kmax = Nr        darwin_radtrans_kmax = Nr
192        darwin_radtrans_niter = 1        darwin_radtrans_niter = -2
193        darwin_part_size_P = 1 _d -15   ! mmol P per particle        darwin_part_size_P = 1 _d -15   ! mmol P per particle
194  #endif  #endif
195  #endif /* WAVEBANDS */  #endif /* WAVEBANDS */
# Line 368  C--   Print a summary of parameter value Line 368  C--   Print a summary of parameter value
368        CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )        CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid )
369    
370  #if defined(WAVEBANDS) || defined(OASIM)  #if defined(WAVEBANDS) || defined(OASIM)
371        CALL WRITE_1D_I( darwin_waves, tlam, 0,        CALL WRITE_1D_RL( darwin_waves, tlam, 0,
372       &   'darwin_waves =',       &   'darwin_waves =',
373       &'   /* "central" wavelengths of wavebands */')       &'   /* "central" wavelengths of wavebands */')
374  #endif  #endif
# Line 416  C--   Print a summary of parameter value Line 416  C--   Print a summary of parameter value
416       &'   /* deepest level in which to compute irradiances */')       &'   /* deepest level in which to compute irradiances */')
417        CALL WRITE_0D_I( darwin_radtrans_niter, INDEX_NONE,        CALL WRITE_0D_I( darwin_radtrans_niter, INDEX_NONE,
418       &   'darwin_radtrans_niter =',       &   'darwin_radtrans_niter =',
419       &'   /* number of "radtrans improvement" iterations */')       &'   /* iterations/method for solveing 3-stream equations */')
420  #endif /* DAR_RADTRANS */  #endif /* DAR_RADTRANS */
421  #endif /* WAVEBANDS */  #endif /* WAVEBANDS */
422    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22