fmreadc0.F90

Go to the documentation of this file.

!     ######spl
      SUBROUTINE fmreadc0(HFILEM,HRECFM,HFIPRI,KLENG,HFIELD,KGRID,&
                           KLENCH,HCOMMENT,KRESP)
      USE parkind1, ONLY : jprb
      USE yomhook , ONLY : lhook, dr_hook
!     #############################################################
!
!!****  *FMREADL1* - routine to read a logical scalar into a "FM"-file
!!
!!    PURPOSE
!!    -------
!
!       The purpose of FMREADL0 is to convert the string into arrayr of
!      integer(kind=8) and to call FM_READ without interface module
!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!      FM_READ
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!
!!      V. MASSON      *METEO-FRANCE*
!!
!!    MODIFICATIONS
!!    -------------
!!
!!      original                                                     06/08/97
!----------------------------------------------------------------------------
!
!*      0.    DECLARATIONS
!             ------------
!
USE modd_fmdeclar
IMPLICIT NONE
!
!*      0.1   Declarations of arguments
!
CHARACTER(LEN=*)          ,INTENT(IN) ::HFILEM   ! file name
CHARACTER(LEN=*)          ,INTENT(IN) ::HRECFM   ! name of the article to be written

CHARACTER(LEN=*)          ,INTENT(IN) ::HFIPRI   ! file for prints in FM

INTEGER,                   INTENT(IN) ::KLENG  ! length of the data field
CHARACTER(LEN=*), &
                           INTENT(OUT)::hfield ! array containing the data field
INTEGER,                   INTENT(OUT)::KGRID  ! C-grid indicator (u,v,w,T)
INTEGER,                   INTENT(OUT)::KLENCH ! length of comment string

CHARACTER(LEN=*)     ,INTENT(OUT)::HCOMMENT ! comment string

INTEGER,                   INTENT(OUT)::KRESP  ! return-code if problems araised
!
!*      0.2   Declarations of local variables
!
INTEGER                                      :: JLOOP
CHARACTER(LEN=JPXKRK)                        ::YCOMMENT 
INTEGER(KIND=8), DIMENSION(:), ALLOCATABLE   :: IFIELD
INTEGER                                      :: ILENG
!-------------------------------------------------------------------------------
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('FMREADC0',0,zhook_handle)
ileng=len(hfield)
ALLOCATE(ifield(ileng))
!
CALL FM_READ(HFILEM,HRECFM,HFIPRI,ILENG,IFIELD,KGRID,KLENCH,YCOMMENT,KRESP)
!
IF(kresp==0) THEN
  DO jloop=1,ileng
   hfield(jloop:jloop)=achar(ifield(jloop))
  END DO
  hcomment = ycomment
END IF
!
DEALLOCATE(ifield)
!-------------------------------------------------------------------------------
IF (lhook) CALL dr_hook('FMREADC0',1,zhook_handle)
END SUBROUTINE fmreadc0