|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE READ_PGD_WATFLUX_n(HPROGRAM) 00003 ! ######################################### 00004 ! 00005 !!**** *READ_PGD_WATFLUX_n* - read WATFLUX physiographic fields 00006 !! 00007 !! 00008 !! PURPOSE 00009 !! ------- 00010 !! 00011 !!** METHOD 00012 !! ------ 00013 !! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! 00018 !! IMPLICIT ARGUMENTS 00019 !! ------------------ 00020 !! 00021 !! REFERENCE 00022 !! --------- 00023 !! 00024 !! 00025 !! AUTHOR 00026 !! ------ 00027 !! V. Masson *Meteo France* 00028 !! 00029 !! MODIFICATIONS 00030 !! ------------- 00031 !! Original 01/2003 00032 !------------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATIONS 00035 ! ------------ 00036 ! 00037 USE MODD_TYPE_DATE_SURF 00038 ! 00039 USE MODD_DATA_COVER_PAR, ONLY : JPCOVER 00040 USE MODD_WATFLUX_n, ONLY : XCOVER, XZS,TTIME, LCOVER 00041 USE MODD_WATFLUX_GRID_n, ONLY : XLAT, XLON, XMESH_SIZE, CGRID, XGRID_PAR, NDIM 00042 ! 00043 USE MODI_READ_SURF 00044 USE MODI_READ_GRID 00045 USE MODI_READ_LCOVER 00046 ! 00047 ! 00048 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00049 USE PARKIND1 ,ONLY : JPRB 00050 ! 00051 USE MODI_GET_TYPE_DIM_n 00052 ! 00053 IMPLICIT NONE 00054 ! 00055 !* 0.1 Declarations of arguments 00056 ! ------------------------- 00057 ! 00058 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! calling program 00059 ! 00060 !* 0.2 Declarations of local variables 00061 ! ------------------------------- 00062 ! 00063 INTEGER :: IRESP ! Error code after redding 00064 ! 00065 CHARACTER(LEN=12) :: YRECFM ! Name of the article to be read 00066 ! 00067 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00068 !------------------------------------------------------------------------------- 00069 ! 00070 !* 1D physical dimension 00071 ! 00072 IF (LHOOK) CALL DR_HOOK('READ_PGD_WATFLUX_N',0,ZHOOK_HANDLE) 00073 YRECFM='SIZE_WATER' 00074 CALL GET_TYPE_DIM_n('WATER ',NDIM) 00075 ! 00076 ! 00077 ! 00078 !* 2. Physiographic data fields: 00079 ! ------------------------- 00080 ! 00081 !* cover classes 00082 ! 00083 ALLOCATE(LCOVER(JPCOVER)) 00084 CALL READ_LCOVER(HPROGRAM,LCOVER) 00085 ! 00086 ALLOCATE(XCOVER(NDIM,JPCOVER)) 00087 CALL READ_SURF(HPROGRAM,'COVER',XCOVER(:,:),LCOVER,IRESP) 00088 ! 00089 !* orography 00090 ! 00091 ALLOCATE(XZS(NDIM)) 00092 YRECFM='ZS' 00093 CALL READ_SURF(HPROGRAM,YRECFM,XZS(:),IRESP) 00094 ! 00095 !* latitude, longitude 00096 ! 00097 ALLOCATE(XLAT (NDIM)) 00098 ALLOCATE(XLON (NDIM)) 00099 ALLOCATE(XMESH_SIZE(NDIM)) 00100 CALL READ_GRID(HPROGRAM,CGRID,XGRID_PAR,XLAT,XLON,XMESH_SIZE,IRESP) 00101 IF (LHOOK) CALL DR_HOOK('READ_PGD_WATFLUX_N',1,ZHOOK_HANDLE) 00102 ! 00103 !------------------------------------------------------------------------------- 00104 ! 00105 END SUBROUTINE READ_PGD_WATFLUX_n
1.8.0
