|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE PGD_WATFLUX(HPROGRAM) 00003 ! ############################################################## 00004 ! 00005 !!**** *PGD_WATFLUX* monitor for averaging and interpolations of WATFLUX physiographic fields 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !! METHOD 00011 !! ------ 00012 !! 00013 ! 00014 !! EXTERNAL 00015 !! -------- 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! AUTHOR 00024 !! ------ 00025 !! 00026 !! V. Masson Meteo-France 00027 !! 00028 !! MODIFICATION 00029 !! ------------ 00030 !! 00031 !! Original 03/2004 00032 !! 00033 !---------------------------------------------------------------------------- 00034 ! 00035 !* 0. DECLARATION 00036 ! ----------- 00037 ! 00038 USE MODD_DATA_COVER_PAR, ONLY : JPCOVER 00039 USE MODD_WATFLUX_n, ONLY : XCOVER, LCOVER, XZS 00040 USE MODD_WATFLUX_GRID_n, ONLY : CGRID, XGRID_PAR, XLAT, XLON, XMESH_SIZE, NDIM 00041 ! 00042 USE MODI_GET_SURF_SIZE_n 00043 USE MODI_PACK_PGD 00044 ! 00045 ! 00046 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00047 USE PARKIND1 ,ONLY : JPRB 00048 ! 00049 USE MODI_WRITE_COVER_TEX_WATER 00050 ! 00051 IMPLICIT NONE 00052 ! 00053 !* 0.1 Declaration of arguments 00054 ! ------------------------ 00055 ! 00056 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! Type of program 00057 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00058 ! 00059 ! 00060 !* 0.2 Declaration of local variables 00061 ! ------------------------------ 00062 ! 00063 !* 0.3 Declaration of namelists 00064 ! ------------------------ 00065 ! 00066 !------------------------------------------------------------------------------- 00067 ! 00068 !* 1. Initializations of defaults 00069 ! --------------------------- 00070 ! 00071 !------------------------------------------------------------------------------- 00072 ! 00073 !* 2. Reading of namelist 00074 ! ------------------- 00075 ! 00076 !------------------------------------------------------------------------------- 00077 ! 00078 !* 3. Coherence of options 00079 ! -------------------- 00080 ! 00081 !------------------------------------------------------------------------------- 00082 ! 00083 !* 4. Number of points and packing 00084 ! ---------------------------- 00085 ! 00086 IF (LHOOK) CALL DR_HOOK('PGD_WATFLUX',0,ZHOOK_HANDLE) 00087 CALL GET_SURF_SIZE_n('WATER ',NDIM) 00088 ! 00089 ALLOCATE(LCOVER (JPCOVER)) 00090 ALLOCATE(XCOVER (NDIM,JPCOVER)) 00091 ALLOCATE(XZS (NDIM)) 00092 ALLOCATE(XLAT (NDIM)) 00093 ALLOCATE(XLON (NDIM)) 00094 ALLOCATE(XMESH_SIZE (NDIM)) 00095 ! 00096 CALL PACK_PGD(HPROGRAM, 'WATER ', & 00097 CGRID, XGRID_PAR, & 00098 LCOVER, XCOVER, XZS, & 00099 XLAT, XLON, XMESH_SIZE ) 00100 ! 00101 !------------------------------------------------------------------------------- 00102 CALL WRITE_COVER_TEX_WATER 00103 IF (LHOOK) CALL DR_HOOK('PGD_WATFLUX',1,ZHOOK_HANDLE) 00104 !------------------------------------------------------------------------------- 00105 ! 00106 END SUBROUTINE PGD_WATFLUX
1.8.0
