|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ########################################################### 00002 SUBROUTINE PGD_GRID_SURF_ATM(HPROGRAM,HFILE,HFILETYPE,OGRID) 00003 ! ########################################################### 00004 !! 00005 !! PURPOSE 00006 !! ------- 00007 !! This program prepares the physiographic data fields. 00008 !! 00009 !! METHOD 00010 !! ------ 00011 !! 00012 !! EXTERNAL 00013 !! -------- 00014 !! 00015 !! 00016 !! IMPLICIT ARGUMENTS 00017 !! ------------------ 00018 !! 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! AUTHOR 00024 !! ------ 00025 !! 00026 !! V. Masson Meteo-France 00027 !! 00028 !! MODIFICATION 00029 !! ------------ 00030 !! 00031 !! Original 13/10/03 00032 !---------------------------------------------------------------------------- 00033 ! 00034 !* 0. DECLARATION 00035 ! ----------- 00036 ! 00037 USE MODD_SURF_PAR, ONLY : NVERSION, NBUGFIX 00038 USE MODD_SURF_CONF, ONLY : CPROGNAME 00039 USE MODD_PGD_GRID, ONLY : LLATLONMASK, NL 00040 USE MODD_SURF_ATM_GRID_n, ONLY : CGRID, XGRID_PAR, NGRID_PAR, & 00041 XLAT, XLON, XMESH_SIZE, XJPDIR 00042 ! 00043 USE MODI_PGD_GRID 00044 USE MODI_INI_CSTS 00045 ! 00046 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00047 USE PARKIND1 ,ONLY : JPRB 00048 ! 00049 USE MODI_PGD_GRID_IO_INIT 00050 USE MODI_SURF_VERSION 00051 ! 00052 IMPLICIT NONE 00053 ! 00054 !* 0.1 Declaration of dummy arguments 00055 ! ------------------------------ 00056 ! 00057 CHARACTER(LEN=6), INTENT(IN) :: HPROGRAM ! program calling 00058 CHARACTER(LEN=28), INTENT(IN) :: HFILE ! atmospheric file name 00059 CHARACTER(LEN=6), INTENT(IN) :: HFILETYPE! atmospheric file type 00060 LOGICAL, INTENT(IN) :: OGRID ! .true. if grid is imposed by atm. model 00061 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00062 ! 00063 ! 00064 !* 0.2 Declaration of local variables 00065 ! ------------------------------ 00066 ! 00067 CHARACTER(LEN=100) :: YCOMMENT 00068 INTEGER :: IRESP ! error return code 00069 !------------------------------------------------------------------------------ 00070 IF (LHOOK) CALL DR_HOOK('PGD_GRID_SURF_ATM',0,ZHOOK_HANDLE) 00071 CPROGNAME=HPROGRAM 00072 ! 00073 !* 1. Set default constant values 00074 ! --------------------------- 00075 ! 00076 CALL SURF_VERSION 00077 ! 00078 CALL INI_CSTS 00079 ! 00080 !------------------------------------------------------------------------------- 00081 ! 00082 !* 2. Initialisation of output grid 00083 ! ----------------------------- 00084 ! 00085 CALL PGD_GRID (HPROGRAM,HFILE,HFILETYPE,OGRID,CGRID,NGRID_PAR,XGRID_PAR) 00086 ! 00087 ! 00088 !------------------------------------------------------------------------------- 00089 ! 00090 ! 00091 !* 3. Additional actions for I/O 00092 ! 00093 CALL PGD_GRID_IO_INIT(HPROGRAM) 00094 ! 00095 IF (LHOOK) CALL DR_HOOK('PGD_GRID_SURF_ATM',1,ZHOOK_HANDLE) 00096 !_______________________________________________________________________________ 00097 ! 00098 END SUBROUTINE PGD_GRID_SURF_ATM
1.8.0
