read_extinction


INTERFACE:

   subroutine read_extinction(unit,jul,secs)
DESCRIPTION:

This routine will provide the light extinction coefficients. It is only called if no Jerlov class has been specified in obs.nml.


USES:

   use time
   use observations, only : read_obs,init_saved_vars
   use observations, only : A,g1,g2
   IMPLICIT NONE
INPUT PARAMETERS:
   integer, intent(in)                 :: unit,jul,secs
REVISION HISTORY:
   Original author(s): Karsten Bolding



Karsten Bolding 2012-12-28