source: trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h @ 247

CCC $Header$ 
CCC  TOP 1.0 , LOCEAN-IPSL (2005) 
C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
C ---------------------------------------------------------------------------
CCC $Header$
CCC
CCC                       trclsm.cfc.h
CCC                       ****************
CCC
CCC  PURPOSE :
CCC  ---------
CCC     READs and PRINT options for cfc  namelist

#if defined key_passivetrc && defined key_cfc
ckbr
ckbr
      INTEGER ji
      CHARACTER*32 clname

CC
CCC---------------------------------------------------------------------
CCC  OPA8, LODYC (15/11/96)
CCC---------------------------------------------------------------------
C
C 0. initializations
C ------------------

      namelist/coffset/xinitri

      numnat=80
      clname ='namelist.sms.cfc'
      OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old')

      write(numout,*) 'kbrlsm1: '
C
C  Namelist traback :
C
      READ(numnat,coffset)

      write(numout,*) 'kbrlsm2: '

      IF(lwp) THEN
          WRITE(numout,*) ' '
          WRITE(numout,*) 'coffset'
          write(numout,coffset)
          WRITE(numout,*) ' '
      ENDIF

c
c
c    calcul de nit000 et nitend d'apres les informations du namelist
c    ---------------------------------------------------------------
c      nan = nint(datedeb/10000.)
c      itan = nint ( 24.*365.*60.*60. / rdt )
c      itmoi= nint(((24.*365.*60.*60)/12.)/rdt)
c
c      nit000 = ( iannee-nan-1900) * itan 
c     . + imoistart * itmoi +1
c
c      nitend  = nit000 + itstep 
c     .    + iyrstep * itan 
c     .    +imoistep * itmoi - 1
c
c
c      WRITE (numout,*) '     '
c      WRITE (numout,*) 'nit000 = ',nit000,'  nitend=',nitend

#endif