C    <@(#)	 block_data.F	4.8 3/28/94>     
      BLOCK DATA POSEIDN
      implicit none
      
#include "oparams.F.h"
#include "poseidon.F.h"


      real tinitl(KM)
      real hinitl(KM)
      real sinitl(KM)
      common / INITIALS / hinitl, tinitl, sinitl

#if KM_DEFINED == 5
      data
     &     hmin  /    5. ,   5.,   5.,   5.,   5. /
     &     hmax  /  100. , 100., 100., 100., 100. /
     &     hmin_b/    5. ,   5.,   5.,   5.,   5. /

      data
     &     D_min1d /    5. ,  10.,  15.,  20.,  25. /
     &     D_max1d /  100. , 200., 300., 400., 500. /

      data tinitl/ 17.5,  14.4,  11.7,  9.85, 7.45/
      data hinitl/  50.,   50.,   50.,   50.,  50./
# if SALT_MODEL
      data sinitl/34.75, 34.97, 35.03,  35.01, 35.02/
# endif 

#elif KM_DEFINED == 1
      data
     &     hmin  /     5.   /
     &     hmax  /  6000.  /
     &     hmin_b/     5.  /
      data
     &     D_min1d /    5.   /
     &     D_max1d /  6000.  /
      data tinitl/   26.  /
      data hinitl/  200.  /
# if SALT_MODEL
      data sinitl/  35.   /
# endif 

     
#elif KM_DEFINED == 2
      data
     &     hmin /      5. ,    5.  /
     &     hmax /    1000., 6000.  /
     &     hmin_b /     5.,    5.  /
      data
     &     D_min1d /    5. ,    5.  /
     &     D_max1d /  1000., 6000.  /
     
      data tinitl/   26.,   20.  /
      data hinitl/  200.,  100.  /
# if SALT_MODEL
      data sinitl/   35.,   35.  /
# endif 

#elif KM_DEFINED == 14
!      data
!     1     hmin  /  11*5., 3*100. /
!     1     hmax  /  100, 4*100., 9*9999. /
      data hmin_b/  14*5. /
! For compatability testing 
      data
c     1     hmin /  5.,   5.,   5.,  5.,   5.,  5.,  5.,  5.,  5.,
c     2             5.,   5.,  45,  50.,  50./
c     1     hmin /  5.,   5.,   5.,  5.,   5.,  5.,  5.,  5.,  10.,
c     2            10.,  10.,  50,  50.,  50./
     1     hmin / 5.,  10.,  10., 10.,  10., 10., 10., 10., 10.,
     2            10.,  50.,  50,  50.,  50./
     1     hmax / 200.,  100.,   100.,  100., 200., 999., 999., 999., 
     2            999., 9999.,9999.,9999.,9999.,9999./


      data
c     1     D_min1d /  5.,  10.,  15.,    20.,  25.,  30.,  35.,  40.,  45.,
c     2              50.,  55., 155.,   300.,1000./
c     1     D_min1d /  5.,  10.,  15.,    20.,  25.,  30.,  35.,  40.,  50.,
c     2               60.,  70., 155.,   300.,1000./
c     1     D_max1d / 100.,200.,300., 400.,  500., 750., 1000.,1250.,1500.,
c     2             1750.,2250., 3000., 3500.,4000./
     1     D_min1d / 5.,  20.,  30.,   40.,  50.,  60.,  70.,  80.,  
     2               90., 100., 150., 200.,  500.,1000./
     1     D_max1d / 200., 200.,  300.,  400., 600., 800.,1000.,1250.,
     2              1500.,1750.,2250., 3000., 3500.,4000./
          
 
      data tinitl/ 24.1,  23.4,  22.9,  22.1, 21.1,  19.8,  18.3,
     &             16.4,  13.3,  9.81,  7.60, 5.44,  3.62,  1.11/
      data hinitl/  25.,   15.,   15.,   15.,  15.,  20., 30.,
     &              50.,  125.,  140.,  200.,  500.,  550., 750. /
#ifdef SALT_MODEL
      data sinitl/34.00, 34.05, 34.16, 34.24, 34.31, 34.39, 34.48,
     &            34.58, 34.63, 34.56, 34.50, 34.52, 34.61, 34.68/
#endif


#elif KM_DEFINED == 7
      data hmin_b/  7*5. /
! For compatability testing 
      data
     1     hmin / 10.,  10., 10., 10., 10.,
     2            50.,  50./
     1     hmax / 100.,  100.,  200., 999., 999.,
     2            9999.,9999./


      data
     1     D_min1d / 10.,  30.,   50.,  75.,  
     2           100., 200.,  1000./
     1     D_max1d / 100., 300.,  500., 1000.,
     2          2000., 3000., 4000./
          
 
      data tinitl/ 24.1,  22.9,  21.1,  18.3,
     &             13.3,  5.61,   1.11/
      data hinitl/  25.,   15.,   15.,  30.,
     &              50.,  150.,  500./
#ifdef SALT_MODEL
      data sinitl/34.00, 34.16, 34.31, 34.48,
     &            34.63, 34.50, 34.68/
#endif

#endif

      data ocealrm /0/
      data mixdl   /0/
      data dff     /0/
      data daily   /0/
      data ufilter /0/
      data hfilter /0/
      data tfilter /0/
      data energy  /0/
      
!      data T_deep  /    1.67 /
!      data S_deep  /   34.67 /
! For testing compatability
       data T_deep  /   -1.80 /
       data S_deep  /   34.67 /

      end
