fmlook.F90

Go to the documentation of this file.

!     ######spl
      SUBROUTINE fmlook(HFILEM,HFIPRI,KNUMBR,KRESP)
      USE parkind1, ONLY : jprb
      USE yomhook , ONLY : lhook, dr_hook
!     #############################################
!
!!****  *FMLOOK* - routine to look for the logical unit attributed to a file
!!
!!    PURPOSE
!!    -------
!
!       The purpose of FMLOOK is to look for the logical unit (Fortran)
!     that is associated to the file named HFILEM. This unit was attributed
!     previously to HFILEM by FMATTR.
!
!!**  METHOD
!!    ------
!!
!!      The string HFILEM is searched in array CNAMFI which contains the
!!    names of all files that have been opened for the FM-routines.
!!    The place in array CNAMFI of HFILEM corresponds exactly to
!!    its logical unit.
!!
!!    EXTERNAL
!!    --------
!!
!!      NONE
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!      MODULE: MODD_FMDECLAR contains management parameters and
!!              storage arrays to move information around at the
!!              level of all "FM"-routines.
!!
!!    REFERENCE
!!    ---------
!!
!!      see the Technical Specifications Report for the Meso-nh project
!!      (in French)
!!
!!    AUTHOR
!!    ------
!!
!!      C. FISCHER      *METEO-FRANCE*
!!
!!    MODIFICATIONS
!!    -------------
!!
!!      original                                                        04/94
!!
!----------------------------------------------------------------------------
!
!*      0.    DECLARATIONS
!             ------------
!
USE modd_fmdeclar

IMPLICIT NONE
!
!*      0.1   Declarations of arguments
!
CHARACTER(LEN=*),     INTENT(IN) ::HFILEM  ! file name

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

INTEGER,              INTENT(OUT)::KNUMBR  ! logical unit number
INTEGER,              INTENT(OUT)::KRESP   ! return-code if problems araised

!
!*      0.2   Declarations of local variables
!
INTEGER::J,ILOGIQ=0,iresp=0,ilupri
CHARACTER(LEN=JPFINL)::YLOCFN
!
!*      0.3   Taskcommon for logical units
!
COMMON/TASKLOOK/ILUPRI
!DIR$ TASKCOMMON TASKLOOK
!
!----------------------------------------------------------------------------
!
!*      1.    WE LOOK FOR THE FILE NAME IN ARRAY CNAMFI
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook('FMLOOK',0,zhook_handle)
ilogiq = 0 ; iresp = 0 ; ilupri = 6
IF (nopefi.LT.1) THEN
     iresp=-53
     GOTO 1000
ENDIF
ylocfn=hfilem ; ylocfn=adjustl(ylocfn)
DO j=1,jpnxlu
     IF (ylocfn.EQ.cnamfi(j)) THEN
        ilogiq=j
        EXIT
     ENDIF
ENDDO
IF (ilogiq.EQ.0) THEN
     iresp=-54
     GOTO 1000
ENDIF

knumbr=ilogiq
!
!*      2.     MESSAGE PRINTING WHATEVER THE ISSUE WAS
!
1000    CONTINUE

IF (iresp.NE.0) THEN
ylocfn=adjustl(hfipri)
DO j=1,jpnxlu
    IF (cnamfi(j).EQ.ylocfn) THEN
       ilupri=j
       EXIT
    ENDIF
ENDDO
WRITE (ilupri,*) ' exit from FMLOOK with IRESP:',iresp
WRITE (ilupri,*) '   | HFILEM = ',hfilem
ENDIF
kresp=iresp

IF (lhook) CALL dr_hook('FMLOOK',1,zhook_handle)
RETURN
      IF (lhook) CALL dr_hook('FMLOOK',1,zhook_handle)
      END SUBROUTINE fmlook