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

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

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

revision 1.5 by jahn, Tue Apr 16 20:21:57 2013 UTC revision 1.6 by jahn, Wed Dec 4 21:18:51 2013 UTC
# Line 56  c      _RL planck, c, hc, oavo, hcoavo, Line 56  c      _RL planck, c, hc, oavo, hcoavo,
56  c local indeces  c local indeces
57        integer nabp,i,ilam        integer nabp,i,ilam
58    
59          _BEGIN_MASTER(myThid)
60    
61  C fill in missing waveband information:  C fill in missing waveband information:
62  C "representative values" darwin_waves need not be centered within  C "representative values" darwin_waves need not be centered within
63  C waveband boundaries darwin_wavebands, so both may be given  C waveband boundaries darwin_wavebands, so both may be given
# Line 511  c     constants Line 513  c     constants
513        rad = 180.0D0/pid        rad = 180.0D0/pid
514  #endif  #endif
515    
516          _END_MASTER(myThid)
517    
518  #endif /* WAVEBANDS */  #endif /* WAVEBANDS */
519    
520        return        return
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22