/[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.5 by jahn, Thu Aug 23 21:49:33 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 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
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22