source: trunk/SOURCES/limit_file.f90 @ 23

!> \file limit_file.f90
!! Lecture dans un petit fichier au cas ou les parametres du run seraient changes
!<

!> SUBROUTINE: limit_file()
!!
!!Ecrit le fichier limit
!! \author ...
!! \date ...
!! @param  nt                
!! @param  time                
!! @param  dt            
!! @param  tend                       
!! @param  dtsortie
!! @param  dtcpt
!! @param  testdiag
!! @param  dtt
!! @param  runname
!! @return


subroutine limit_file(nt,time,dt,tend,dtsortie,dtcpt,testdiag,dtt,runname)

! ecrit le fichier limit

implicit none
INTEGER :: nt
REAL :: dt
REAL :: tend
REAL :: dtsortie
REAL :: dtcpt
REAL :: testdiag
REAL :: dtt
REAL :: time
CHARACTER(len=8) :: RUNNAME 
      integer :: num_limit = 99



!--------------------------------------------------------------------!
!     lecture dans un petit fichier au cas ou les parametres du run  !
!     seraient changes                                               !
!--------------------------------------------------------------------!
      if (time.ge.5000.)  DTSORTIE=10.
      if (time.ge.6000.)  DTSORTIE=100.
      if (time.ge.20000.) DTSORTIE=500.

     if (nt.eq.1) then
!      if ((nt.eq.1).or.(abs(time-5000.).lt.5.).or.(abs(time-6000.).lt.5.)   &
!           .or.(abs(time-20000.).lt.5.)) then
        open(num_limit,file=runname//'.limit')
        write(num_limit,*) TEND,DTSORTIE,DTCPT,testdiag,dtt
        write(num_limit,*) 'TEND,DTSORTIE,DTCPT,testdiag,dtt'
        write(num_limit,*)'time=', time,'   dt=',dt
        close(num_limit)
     endif


! lecture au cas ou cela ait change
     open(num_limit,file=runname//'.limit')
     read(num_limit,*,end=07,err=07) TEND,DTSORTIE,dtcpt, &
          testdiag,dtt
07     close(num_limit)

! ecriture
     open(num_limit,file=runname//'.limit')
     write(num_limit,*) TEND,DTSORTIE,DTCPT,testdiag,dtt
     write(num_limit,*) 'TEND,DTSORTIE,DTCPT,testdiag,dtt'
     write(num_limit,*)'time=', time,'   dt=',dt
     close(num_limit)


     return
     end subroutine 
!--------------------------------------------------------------------