      logical :: run, first, restrt, subpost
      integer :: nfcst,nbc,list,ntsd,nddamp,nprec, &
                 nboco,nshde,ncp,ntddmp
      logical,parameter::lcornerm=.FALSE.
      
      real,parameter :: dt=dtin               ! length of each time step
      logical,parameter:: sigma=.sigmain.
!GSM      integer,parameter::outnum=outnumin            ! number of outputs
!GSM      integer,parameter::nday=ndayin                ! number of days
      integer,parameter:: ntstm=3600*24*ndayin/dt      ! total time steps
!      integer,parameter:: idtad=1
!      integer,parameter:: ncnvc=45
!test      integer,parameter::nphs=45
 
      integer,parameter:: idtad=2
      integer,parameter:: ncnvc=6
      integer,parameter::nphs=6
 
 
      integer,parameter::nradsh=1
!GSM      integer,parameter::nradlh=2
      integer,parameter::nradlh=1
      real,parameter::tsph=3600./dt
      integer,parameter::nrads=tsph*nradsh
      integer,parameter::nradl=tsph*nradlh
      real,parameter::weig=0.25
      
!
! parameters for diagnostics
!
      
      integer,parameter::idgns=10
      integer,parameter::dgnstr=24*3600*200/dt
      integer,parameter::dgnnum=(ntstm-dgnstr)/idgns+1
      integer,parameter::ickmm=1
      
!
!  parameter for initial values
!
            real(KIND=4),parameter::pt = 2500.0
!!!test Dragan 1dec2015
!!            real,parameter::pt=1000
      
!
!  date
!
           integer::idat(3)
!GSM           data idat/idatin/
!GSM           integer::ihrst=ihrstin

! variable sst
          logical::lvsst

! data assimilation constants
        
	  integer,parameter::ndassim=3*3600/dt
!	  integer,parameter::ndassimm=8*ndassim
	  integer,parameter::ndassimm=0
      integer,parameter::outstr=ndassimm      ! step at which starts output
       integer,parameter::outend=  ntstm+ndassimm       ! step at which ends output
!GSM      integer,parameter::iout=(outend-outstr)/outnum   ! steps between two output

!  data choice

      integer,parameter::sstc=sstcin         ! 1 is NCEP sst data
                                             ! 2 is TMI sst data

    
