SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/FM/fmreadx3.F90 Source File

Go to the documentation of this file.
00001 !     ######spl
00002       SUBROUTINE FMREADX3(HFILEM,HRECFM,HFIPRI,KLENG,PFIELD,KGRID,&
00003                            KLENCH,HCOMMENT,KRESP)
00004       USE PARKIND1, ONLY : JPRB
00005       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00006 !     #############################################################
00007 !
00008 !!****  *FMREADX1* - routine to read a real 3D array into a "FM"-file
00009 !!
00010 !!    PURPOSE
00011 !!    -------
00012 !
00013 !       The purpose of FMREADX0 is to convert the real into integer(kind=8)
00014 !     by calling FM_READ without interface module
00015 !
00016 !!**  METHOD
00017 !!    ------
00018 !!
00019 !!    EXTERNAL
00020 !!    --------
00021 !!
00022 !!      FM_READ
00023 !!
00024 !!    IMPLICIT ARGUMENTS
00025 !!    ------------------
00026 !!
00027 !!
00028 !!    REFERENCE
00029 !!    ---------
00030 !!
00031 !!
00032 !!    AUTHOR
00033 !!    ------
00034 !!
00035 !!      V. MASSON      *METEO-FRANCE*
00036 !!
00037 !!    MODIFICATIONS
00038 !!    -------------
00039 !!
00040 !!      original                                                     06/08/97
00041 !!      Modification 15/10/97 (V.Masson)    1D and 2D cases
00042 !----------------------------------------------------------------------------
00043 !
00044 !*      0.    DECLARATIONS
00045 !             ------------
00046 !
00047 USE MODD_FMDECLAR
00048 IMPLICIT NONE
00049 !
00050 !*      0.1   Declarations of arguments
00051 !
00052 CHARACTER(LEN=*)          ,INTENT(IN) ::HFILEM   ! file name
00053 CHARACTER(LEN=*)          ,INTENT(IN) ::HRECFM   ! name of the article to be written
00054 
00055 CHARACTER(LEN=*)          ,INTENT(IN) ::HFIPRI   ! file for prints in FM
00056 
00057 INTEGER,                   INTENT(IN) ::KLENG  ! length of the data field
00058 REAL, DIMENSION(:,:,:), 
00059                            INTENT(OUT)::PFIELD ! array containing the data field
00060 INTEGER,                   INTENT(OUT)::KGRID  ! C-grid indicator (u,v,w,T)
00061 INTEGER,                   INTENT(OUT)::KLENCH ! length of comment string
00062 
00063 CHARACTER(LEN=*)     ,INTENT(OUT)::HCOMMENT ! comment string
00064 
00065 INTEGER,                   INTENT(OUT)::KRESP  ! return-code if problems araised
00066 !
00067 !*      0.2   Declarations of local variables
00068 !
00069 CHARACTER(LEN=JPXKRK) ::YCOMMENT 
00070 INTEGER :: ILENG
00071 REAL(KIND=8),DIMENSION(SIZE(PFIELD,1),SIZE(PFIELD,2),SIZE(PFIELD,3)) :: ZFIELD
00072 !-------------------------------------------------------------------------------
00073 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00074 IF (LHOOK) CALL DR_HOOK('FMREADX3',0,ZHOOK_HANDLE)
00075 ILENG=SIZE(PFIELD)
00076 CALL FM_READ(HFILEM,HRECFM,HFIPRI,ILENG,ZFIELD,KGRID,KLENCH,YCOMMENT,KRESP)
00077 IF(KRESP==0) PFIELD = ZFIELD
00078 IF(KRESP==0) HCOMMENT = YCOMMENT
00079 !-------------------------------------------------------------------------------
00080 IF (LHOOK) CALL DR_HOOK('FMREADX3',1,ZHOOK_HANDLE)
00081 END SUBROUTINE FMREADX3