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

Go to the documentation of this file.
00001 !     ######spl
00002       SUBROUTINE FMINIT
00003       USE PARKIND1, ONLY : JPRB
00004       USE YOMHOOK , ONLY : LHOOK, DR_HOOK
00005 !     #################
00006 !
00007 !!****  *FMINIT* - routine to initialize the management arrays used by the FM-routines
00008 !!
00009 !!    PURPOSE
00010 !!    -------
00011 !
00012 !       The purpose of FMINIT is to initialize the management arrays used
00013 !     by the other FM-routines. These arrays allow to associate each logical
00014 !     unit number with the given file name.
00015 !     FMINIT is only called when FMATTR is called for the very
00016 !     first time.
00017 !       Furthermore, FMINIT opens unit 10 which is dedicated to the pipe
00018 !     in which the transfer orders are written (in FMCLOS). Thus, unit 10
00019 !     is specific and unavailable for common file management.
00020 !
00021 !!**  METHOD
00022 !!    ------
00023 !!
00024 !!      Array intrinsics of fortran 90 are used
00025 !!
00026 !!    EXTERNAL
00027 !!    --------
00028 !!
00029 !!      NONE
00030 !!
00031 !!    IMPLICIT ARGUMENTS
00032 !!    ------------------
00033 !!
00034 !!      MODULE: MODD_FMDECLAR contains management parameters and
00035 !!              storage arrays to move information around at the
00036 !!              level of all "FM"-routines.
00037 !!
00038 !!    REFERENCE
00039 !!    ---------
00040 !!
00041 !!      see the Technical Specifications Report for the Meso-nh project
00042 !!      (in French)
00043 !!
00044 !!    AUTHOR
00045 !!    ------
00046 !!
00047 !!      C. FISCHER      *METEO-FRANCE*
00048 !!
00049 !!    MODIFICATIONS
00050 !!    -------------
00051 !!
00052 !!      original                                                        06/94
00053 !!      modified by C. Fischer                    22/11/94  (open unit 10)
00054 !!
00055 !----------------------------------------------------------------------------
00056 !
00057 !*      0.    DECLARATIONS
00058 !             ------------
00059 !
00060 USE MODD_FMDECLAR
00061 
00062 IMPLICIT NONE
00063 !----------------------------------------------------------------------------
00064 
00065 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00066 IF (LHOOK) CALL DR_HOOK('FMINIT',0,ZHOOK_HANDLE)
00067 NOPEFI=0
00068 
00069 NFITYP=JPNIIL
00070 
00071 CNAMFI=CPUDFN ; CNAMFI(1:32)=CPUNLU
00072 
00073 !OPEN(UNIT=10,FILE='pipe_name',FORM='FORMATTED')
00074 
00075 IF (LHOOK) CALL DR_HOOK('FMINIT',1,ZHOOK_HANDLE)
00076 RETURN
00077       IF (LHOOK) CALL DR_HOOK('FMINIT',1,ZHOOK_HANDLE)
00078       END SUBROUTINE FMINIT