|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ####################################################### 00002 SUBROUTINE GET_SURF_GRID_DIM_n(HGRID,ORECT,KDIM1,KDIM2) 00003 ! ####################################################### 00004 ! 00005 !!**** *GET_SURF_GRID_DIM_n* get the grid mesh dimensions 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !! METHOD 00011 !! ------ 00012 !! 00013 !! REFERENCE 00014 !! --------- 00015 !! 00016 !! AUTHOR 00017 !! ------ 00018 !! 00019 !! V. Masson Meteo-France 00020 !! 00021 !! MODIFICATION 00022 !! ------------ 00023 !! 00024 !! Original 03/2004 00025 !! 00026 !---------------------------------------------------------------------------- 00027 ! 00028 !* 0. DECLARATION 00029 ! ----------- 00030 ! 00031 USE MODD_SURF_ATM_GRID_n, ONLY : CGRID, XGRID_PAR, NGRID_PAR 00032 ! 00033 ! 00034 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00035 USE PARKIND1 ,ONLY : JPRB 00036 ! 00037 USE MODI_GET_GRID_DIM 00038 IMPLICIT NONE 00039 ! 00040 !* 0.1 Declaration of arguments 00041 ! ------------------------ 00042 ! 00043 CHARACTER(LEN=10), INTENT(OUT) :: HGRID ! grid type 00044 LOGICAL, INTENT(OUT) :: ORECT ! T if rectangular grid 00045 INTEGER, INTENT(OUT) :: KDIM1 ! 1st dimension 00046 INTEGER, INTENT(OUT) :: KDIM2 ! 2nd dimension 00047 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00048 ! 00049 !* 0.2 Declaration of other local variables 00050 ! ------------------------------------ 00051 ! 00052 !---------------------------------------------------------------------------- 00053 ! 00054 IF (LHOOK) CALL DR_HOOK('GET_SURF_GRID_DIM_N',0,ZHOOK_HANDLE) 00055 HGRID = CGRID 00056 ! 00057 CALL GET_GRID_DIM(CGRID,NGRID_PAR,XGRID_PAR,ORECT,KDIM1,KDIM2) 00058 IF (LHOOK) CALL DR_HOOK('GET_SURF_GRID_DIM_N',1,ZHOOK_HANDLE) 00059 ! 00060 !------------------------------------------------------------------------------- 00061 ! 00062 END SUBROUTINE GET_SURF_GRID_DIM_n
1.8.0
