/[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.2 by jahn, Thu Aug 9 21:18:53 2012 UTC revision 1.3 by jahn, Tue Apr 16 20:20:27 2013 UTC
# Line 100  c  Water data files Line 100  c  Water data files
100             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',
101       &     "wavelength for water spectrum doesn't match darwin_waves:"       &     "wavelength for water spectrum doesn't match darwin_waves:"
102             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
103             WRITE(msgBuf,'(2A,I3,A,I4,A,F4.0)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A,I3,A,I4,A,I4)') 'WAVEBANDS_INIT_FIXED: ',
104       &     'ilam', ilam, ': ', swlambda, ' versus ', pwaves(ilam)       &     'ilam', ilam, ': ', swlambda, ' versus ', pwaves(ilam)
105             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
106             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'
# Line 141  c ANNA easiest way to 'turn off' PS for Line 141  c ANNA easiest way to 'turn off' PS for
141             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',
142       &     "wavelength for phyto spectrum doesn't match darwin_waves:"       &     "wavelength for phyto spectrum doesn't match darwin_waves:"
143             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
144             WRITE(msgBuf,'(2A,I3,A,I4,A,F4.0)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A,I3,A,I4,A,I4)') 'WAVEBANDS_INIT_FIXED: ',
145       &     'ilam', ilam, ': ', splambda, ' versus ', pwaves(ilam)       &     'ilam', ilam, ': ', splambda, ' versus ', pwaves(ilam)
146             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
147             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'
# Line 178  c surface spectrum for initial use Line 178  c surface spectrum for initial use
178             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',
179       &     "wavelength for surface spectrum doesn't match darwin_waves:"       &     "wavelength for surface spectrum doesn't match darwin_waves:"
180             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
181             WRITE(msgBuf,'(2A,I3,A,I4,A,F4.0)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A,I3,A,I4,A,I4)') 'WAVEBANDS_INIT_FIXED: ',
182       &     'ilam', ilam, ': ', ssflambda, ' versus ', pwaves(ilam)       &     'ilam', ilam, ': ', ssflambda, ' versus ', pwaves(ilam)
183             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
184             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'
# Line 277  c  absorption and scattering by particle Line 277  c  absorption and scattering by particle
277             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A)') 'WAVEBANDS_INIT_FIXED: ',
278       &    "wavelength for particle spectrum doesn't match darwin_waves:"       &    "wavelength for particle spectrum doesn't match darwin_waves:"
279             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
280             WRITE(msgBuf,'(2A,I3,A,I4,A,F4.0)') 'WAVEBANDS_INIT_FIXED: ',             WRITE(msgBuf,'(2A,I3,A,I4,A,I4)') 'WAVEBANDS_INIT_FIXED: ',
281       &     'ilam', ilam, ': ', splambda, ' versus ', pwaves(ilam)       &     'ilam', ilam, ': ', splambda, ' versus ', pwaves(ilam)
282             CALL PRINT_ERROR( msgBuf, myThid )             CALL PRINT_ERROR( msgBuf, myThid )
283             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'             STOP 'ABNORMAL END: S/R WAVEBANDS_INIT_FIXED'
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22