|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE LFIGET_LUOUT(HPROGRAM,KLUOUT) 00003 ! ####################################################### 00004 ! 00005 !!**** *LFIGET_LUOUT* - get output listing logical unit 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! EXTERNAL 00014 !! -------- 00015 !! 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! 00024 !! AUTHOR 00025 !! ------ 00026 !! V. Masson *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 01/2004 00031 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 ! 00037 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00038 USE PARKIND1 ,ONLY : JPRB 00039 ! 00040 IMPLICIT NONE 00041 ! 00042 !* 0.1 Declarations of arguments 00043 ! ------------------------- 00044 ! 00045 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling GROUND 00046 INTEGER, INTENT(OUT) :: KLUOUT ! Logical unit of output listing 00047 ! 00048 !* 0.2 Declarations of local variables 00049 ! ------------------------------- 00050 ! 00051 INTEGER :: IRESP ! IRESP : return-code if a problem appears 00052 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00053 ! at the open of the file in LFI routines 00054 ! 00055 !------------------------------------------------------------------------------- 00056 IF (LHOOK) CALL DR_HOOK('LFIGET_LUOUT',0,ZHOOK_HANDLE) 00057 KLUOUT=10 ! This value is not used by FMATTR and FMOPEN routines, for which 00058 IF (LHOOK) CALL DR_HOOK('LFIGET_LUOUT',1,ZHOOK_HANDLE) 00059 ! ! logical unit start at number 11 00060 !------------------------------------------------------------------------------- 00061 ! 00062 END SUBROUTINE LFIGET_LUOUT
1.8.0
