SURFEX v7.3
General documentation of Surfex
|
00001 ! ################ 00002 MODULE MODD_GRID_LATLONREGUL 00003 ! ################ 00004 ! 00005 !!**** *MODD_GRID_LATLONREGUL - declaration of Gauss grid characteristics 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! Used if CINGRID_TYPE = 'LATLON' 00010 ! 00011 !! 00012 !!** IMPLICIT ARGUMENTS 00013 !! ------------------ 00014 !! None 00015 !! 00016 !! REFERENCE 00017 !! --------- 00018 !! 00019 !! AUTHOR 00020 !! ------ 00021 !! C. Lebeaupin Brossier *Meteo France* 00022 !! 00023 !! MODIFICATIONS 00024 !! ------------- 00025 !! Original 01/2008 00026 ! 00027 !* 0. DECLARATIONS 00028 ! ------------ 00029 ! 00030 IMPLICIT NONE 00031 ! 00032 REAL :: XILAT1 ! Lat. (y) of first input point 00033 REAL :: XILON1 ! Lon. (x) of first input point 00034 REAL :: XILAT2 ! Lat. (y) of last input point 00035 REAL :: XILON2 ! Lon. (x) of last input point 00036 INTEGER :: NINLAT ! Number of parallels 00037 INTEGER , DIMENSION(:), ALLOCATABLE:: NINLON ! Nb. of points on each parallel 00038 INTEGER :: NILENGTH ! size of input arrays 00039 INTEGER :: NINDEPTH ! nb of vertical levels 00040 REAL, DIMENSION(:), ALLOCATABLE :: XILATARRAY! latitudes values array 00041 REAL, DIMENSION(:), ALLOCATABLE :: XILONARRAY! longitudes values array 00042 REAL, DIMENSION(:), ALLOCATABLE :: XIDEPARRAY! depths values array 00043 ! 00044 END MODULE MODD_GRID_LATLONREGUL