update_data_mesh.f

Go to the documentation of this file.

!                   ***************************
                    SUBROUTINE update_data_mesh
!                   ***************************
!
     &(fformat,file_id,time,record,nb_dim_mesh,npoin,coord,ierr)
!
!***********************************************************************
! HERMES   V7P0                                               01/05/2014
!***********************************************************************
!
!brief    Update mesh coordinates
!
!history  V STOBIAC (LNHE)
!+        10/12/2014
!+        V7P0
!+
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| FFORMAT        |-->| FORMAT OF THE FILE
!| file_id        |-->| File descriptor
!| time           |-->| Time of the data
!| record         |-->| Time step of the data
!| NB_DIM_MESH    |-->| Dimension of the mesh
!| NPOIN          |-->| Number of points in the mesh
!| COORD          |-->| Coordinates table
!| Ierr           |<--| 0 if no error during the opening
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE utils_med
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      CHARACTER(LEN=8), INTENT(IN)  :: FFORMAT
      INTEGER,          INTENT(IN)  :: FILE_ID
      DOUBLE PRECISION, INTENT(IN)  :: TIME
      INTEGER,          INTENT(IN)  :: RECORD
      INTEGER,          INTENT(IN)  :: NB_DIM_MESH, NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: COORD(nb_dim_mesh*npoin)
      INTEGER,          INTENT(OUT) :: IERR
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      ierr=0
      SELECT CASE (fformat(1:7))
        CASE ('SERAFIN')
          WRITE(lu,*)'NO NEED TO UPDATE MESH COORDINATES FOR SLF FORMAT'
        CASE ('MED    ')
! Do nothing for now as the option is not available in Paravis
          RETURN
          CALL update_data_mesh_med (file_id,time,record,nb_dim_mesh,
     &                               npoin,coord,ierr)
        CASE DEFAULT
          ierr = hermes_unknown_file_format_err
          WRITE(error_message,*) 'ADD_DATA: BAD FILE FORMAT: ',fformat
          RETURN
      END SELECT
!
!-----------------------------------------------------------------------
!
      RETURN
      END