doc-doxygen/html/mod__gauss_8_f90_source.html

00001 MODULE mod_gauss
00002 !
00003 ! -- gauss.h   29-09-95   Version 2.0   Author: Laurent Terray
00004 !    *******   25-10-96   Version 2.1   Addition of amskred
00005 !              16-03-99   Version 2.3   Addition of T213 and T319
00006 !              26-03-99   Version 2.3   Changed troncature for number of
00007 !                                        latitude between equator and pole
00008 !@
00009 !@  Contents : variables related to gaussian troncature (if any spectral model)
00010 !@  --------
00011 !@
00012 !@ -ninip16: number of longitudes for the 16 latitude circles (T21) (1D)
00013 !@
00014 !@ -ninip24: number of longitudes for the 24 latitude circles (T31) (1D)
00015 !@
00016 !@ -ninip32: number of longitudes for the 32 latitude circles (T42) (1D)
00017 !@
00018 !@ -ninip48: number of longitudes for the 48 latitude circles (T63) (1D)
00019 !@
00020 !@ -ninip80: number of longitudes for the 80 latitude circles (T106) (1D)
00021 !@
00022 !@ -ninip160: number of longitudes for the 160 latitude circles (T213-319) (1D)
00023 !@
00024 !@ -- nredu16 : number of points on T21 reduced gaussian grid
00025 !@
00026 !@ -- nredu24 : number of points on T31 reduced gaussian grid
00027 !2
00028 !@ -- nredu32 : number of points on T42 reduced gaussian grid
00029 !@
00030 !@ -- nredu48 : number of points on T63 reduced gaussian grid
00031 !@
00032 !@ -- nredu80 : number of points on T106 reduced gaussian grid
00033 !@
00034 !@ -- nredu160 : number of points on T213-T319 reduced gaussian grids
00035 !@
00036 !@ -- amskred : mask value for reduced grid
00037 !@
00038 !     -------------------------------------------------------------------
00039 !
00040   USE mod_kinds_oasis
00041 ! - T21
00042   INTEGER (kind=ip_intwp_p), dimension(16), PARAMETER :: ninip16 =
00043      (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64/)
00044 ! - T31
00045   INTEGER (kind=ip_intwp_p), dimension(24), PARAMETER :: ninip24 =
00046      (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64,
00047      96,96,96,96,96,96,96,96/)
00048 ! - T42
00049   INTEGER (kind=ip_intwp_p), dimension(32), PARAMETER :: ninip32 =
00050      (/20,30,40,48,48,54,54,64,72,80,80,90,96,100,
00051      108,108,120,120,120,128,128,128,128,128,
00052      128,128,128,128,128,128,128,128/)
00053 ! - T63
00054   INTEGER (kind=ip_intwp_p), dimension(48), PARAMETER :: ninip48 =
00055      (/16, 16, 18, 24, 30, 36, 48, 48, 54, 60, 72, 72, 80, 90, 90
00056      ,96,100,108,120,120,128,128,144,144,144,144,150,160,160,160
00057      ,162,180,180,180,180,180,180,192,192,192,192,192,192,192,192
00058      ,192,192,192/)
00059 ! - T106
00060   INTEGER (kind=ip_intwp_p), dimension(80), PARAMETER :: ninip80 =
00061      (/16, 16, 18, 24, 30, 36, 48, 50, 60, 64, 72, 80, 80, 90, 96
00062      ,100,108,120,120,128,128,144,144, 144,150,160,162,180,180,180
00063      ,192,192,192,200,216,216,216,216, 240,240,240,240,240,250,250
00064      ,250,256,270,270,270,270,288,288, 288,288,288,288,300,300,300
00065      ,300,300,320,320,320,320,320,320, 320,320,320,320,320,320,320
00066      ,320,320,320,320,320/)
00067 !- T213- T319
00068   INTEGER (kind=ip_intwp_p), dimension(160), PARAMETER  :: ninip160 =
00069      (/18, 25, 36, 40, 45, 50, 60, 64, 72, 72, 80, 90, 90, 96,108
00070      ,120,120,125,128,135,144,150,160,160,180,180,180,192,192,200
00071      ,216,216,225,225,240,240,243,250,256,270,270,288,288,288,300
00072      ,300,320,320,320,320,324,360,360,360,360,360,360,375,375,375
00073      ,384,384,400,400,400,405,432,432,432,432,432,450,450,450,450
00074      ,480,480,480,480,480,480,480,500,500,500,500,500,512,512,540
00075      ,540,540,540,540,540,540,540,576,576,576,576,576,576,576,576
00076      ,576,576,600,600,600,600,600,600,600,600,600,640,640,640,640
00077      ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640
00078      ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640
00079      ,640,640,640,640,640,640,640,640,640,640/)
00080   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu16 = 1784
00081   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu24 = 3320
00082   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu32 = 6232
00083   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu48 = 12228
00084   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu80 = 23444
00085   INTEGER (kind=ip_intwp_p), PARAMETER  :: nredu160 = 138346
00086   REAL (kind=ip_realwp_p), PARAMETER  :: amskred = 9999999.0
00087 !
00088 END MODULE mod_gauss
00089 !     -------------------------------------------------------------------
00090
00091
00092
00093