!
! $Id: $
!
SUBROUTINE phyredem (fichnom)

  USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
  USE phys_state_var_mod, ONLY: rlon, rlat

  IMPLICIT NONE

  CHARACTER(LEN=*),INTENT(IN) :: fichnom

  INTEGER,PARAMETER :: tab_cntrl_len=100
  REAL :: tab_cntrl(tab_cntrl_len)

  ! open file

  CALL open_restartphy(fichnom)

  ! tab_cntrl() contains run parameters

  tab_cntrl(:)=0.0
 

  CALL put_var("controle", "Control parameters", tab_cntrl)

  ! coordinates

  CALL put_field("longitude", "Longitudes on physics grid", rlon)
     
  CALL put_field("latitude", "Latitudes on physics grid", rlat)

  ! close file

  CALL close_restartphy
  !$OMP BARRIER

END SUBROUTINE phyredem