|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !----------------------------------------------------------------- 00002 ! ####################### 00003 SUBROUTINE READ_TOPD_HEADER_CONNEX(HPROGRAM,HFILE,HFORM,KNMC) 00004 ! ####################### 00005 ! 00006 !!**** *READ_TOPD_HEADER* 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 ! This routine aims at reading topographic files 00011 !!** METHOD 00012 !! ------ 00013 ! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! none 00018 !! 00019 !! IMPLICIT ARGUMENTS 00020 !! ------------------ 00021 !! 00022 !! 00023 !! 00024 !! 00025 !! 00026 !! REFERENCE 00027 !! --------- 00028 !! 00029 !! 00030 !! 00031 !! AUTHOR 00032 !! ------ 00033 !! 00034 !! B. Vincendon * Meteo-France * 00035 !! 00036 !! MODIFICATIONS 00037 !! ------------- 00038 !! 00039 !! Original 11/2006 00040 !------------------------------------------------------------------------------- 00041 ! 00042 !* 0. DECLARATIONS 00043 ! ------------ 00044 ! 00045 USE MODI_GET_LUOUT 00046 USE MODI_OPEN_FILE 00047 USE MODI_CLOSE_FILE 00048 ! 00049 USE MODD_TOPODYN, ONLY : NPMAX 00050 ! 00051 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00052 USE PARKIND1 ,ONLY : JPRB 00053 ! 00054 IMPLICIT NONE 00055 ! 00056 !* 0.1 declarations of arguments 00057 ! 00058 CHARACTER(LEN=*), INTENT(IN) :: HPROGRAM ! 00059 CHARACTER(LEN=*), INTENT(IN) :: HFILE ! File to be read 00060 CHARACTER(LEN=*), INTENT(IN) :: HFORM ! Format of the file to be read 00061 INTEGER, INTENT(OUT) :: KNMC ! number of pixels in a catchment 00062 ! 00063 !* 0.2 declarations of local variables 00064 ! 00065 ! 00066 INTEGER :: JJ ! loop control 00067 INTEGER :: IUNIT ! Unit of the files 00068 INTEGER :: ILUOUT ! Unit of the files 00069 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00070 !------------------------------------------------------------------------------- 00071 IF (LHOOK) CALL DR_HOOK('READ_TOPD_HEADER_CONNEX',0,ZHOOK_HANDLE) 00072 ! 00073 !* 0.2 preparing file openning 00074 ! ---------------------- 00075 ! 00076 CALL GET_LUOUT(HPROGRAM,ILUOUT) 00077 ! 00078 WRITE(ILUOUT,*) 'Open ',HFILE,'header' 00079 ! 00080 CALL OPEN_FILE(HPROGRAM,IUNIT,HFILE,HFORM,HACTION='READ') 00081 ! 00082 READ(IUNIT,*) 00083 READ(IUNIT,*) KNMC 00084 ! 00085 DO JJ=1,5 00086 READ(IUNIT,*) 00087 ENDDO 00088 ! 00089 CALL CLOSE_FILE(HPROGRAM,IUNIT) 00090 ! 00091 IF (LHOOK) CALL DR_HOOK('READ_TOPD_HEADER_CONNEX',1,ZHOOK_HANDLE) 00092 ! 00093 END SUBROUTINE READ_TOPD_HEADER_CONNEX 00094 00095 00096 00097 00098 00099 00100
1.8.0
