|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE INIT_READ_DATA_COVER(HPROGRAM) 00003 ! ########################################################################## 00004 !! 00005 !! PURPOSE 00006 !! ------- 00007 !! initialyse flag to read or not data for covers in external binary files 00008 !! ecoclimapI_covers_param.bin & ecoclimapII_eu_covers_param.bin 00009 !! 00010 !! METHOD 00011 !! ------ 00012 !! 00013 !! EXTERNAL 00014 !! -------- 00015 !! 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! 00021 !! REFERENCE 00022 !! --------- 00023 !! 00024 !! AUTHOR 00025 !! ------ 00026 !! 00027 !! V. Masson Meteo-France 00028 !! 00029 !! MODIFICATION 00030 !! ------------ 00031 !! 00032 !! Original 09/11 00033 !---------------------------------------------------------------------------- 00034 ! 00035 !* 0. DECLARATION 00036 ! ----------- 00037 ! 00038 USE MODI_OPEN_NAMELIST 00039 USE MODI_CLOSE_NAMELIST 00040 USE MODI_GET_LUOUT 00041 ! 00042 USE MODD_DATA_COVER, ONLY : LREAD_DATA_COVER 00043 ! 00044 USE MODE_POS_SURF 00045 ! 00046 ! 00047 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00048 USE PARKIND1 ,ONLY : JPRB 00049 ! 00050 IMPLICIT NONE 00051 ! 00052 !* 0.1 Declaration of dummy arguments 00053 ! ------------------------------ 00054 ! 00055 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling READ_PGD 00056 ! 00057 ! 00058 !* 0.2 Declaration of local variables 00059 ! ------------------------------ 00060 ! 00061 INTEGER :: ILUOUT ! logical unit 00062 INTEGER :: ILUNAM ! logical unit 00063 ! 00064 LOGICAL :: GFOUND 00065 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00066 ! 00067 ! 00068 !* 0.2 local namelist variables 00069 ! ------------------------ 00070 ! 00071 NAMELIST/NAM_READ_DATA_COVER/LREAD_DATA_COVER 00072 !------------------------------------------------------------------------------ 00073 ! 00074 !* 1. defaults 00075 ! 00076 IF (LHOOK) CALL DR_HOOK('INIT_READ_DATA_COVER',0,ZHOOK_HANDLE) 00077 ! 00078 ! 00079 LREAD_DATA_COVER = .TRUE. 00080 ! 00081 #ifdef MNH 00082 IF (HPROGRAM=='MESONH') LREAD_DATA_COVER = .FALSE. 00083 #endif 00084 ! 00085 !------------------------------------------------------------------------------ 00086 ! 00087 !* 2. opening of namelist 00088 ! 00089 CALL GET_LUOUT(HPROGRAM,ILUOUT) 00090 ! 00091 CALL OPEN_NAMELIST(HPROGRAM,ILUNAM) 00092 ! 00093 !------------------------------------------------------------------------------- 00094 ! 00095 !* 3. reading of namelist 00096 ! 00097 CALL POSNAM(ILUNAM,'NAM_READ_DATA_COVER',GFOUND,ILUOUT) 00098 IF (GFOUND) READ(UNIT=ILUNAM,NML=NAM_READ_DATA_COVER) 00099 ! 00100 !------------------------------------------------------------------------------- 00101 ! 00102 !* 5. close namelist file 00103 ! 00104 CALL CLOSE_NAMELIST(HPROGRAM,ILUNAM) 00105 IF (LHOOK) CALL DR_HOOK('INIT_READ_DATA_COVER',1,ZHOOK_HANDLE) 00106 ! 00107 !------------------------------------------------------------------------------- 00108 ! 00109 END SUBROUTINE INIT_READ_DATA_COVER
1.8.0
