| 1 | MODULE mod_gauss |
|---|
| 2 | ! |
|---|
| 3 | ! -- gauss.h 29-09-95 Version 2.0 Author: Laurent Terray |
|---|
| 4 | ! ******* 25-10-96 Version 2.1 Addition of amskred |
|---|
| 5 | ! 16-03-99 Version 2.3 Addition of T213 and T319 |
|---|
| 6 | ! 26-03-99 Version 2.3 Changed troncature for number of |
|---|
| 7 | ! latitude between equator and pole |
|---|
| 8 | !@ |
|---|
| 9 | !@ Contents : variables related to gaussian troncature (if any spectral model) |
|---|
| 10 | !@ -------- |
|---|
| 11 | !@ |
|---|
| 12 | !@ -ninip16: number of longitudes for the 16 latitude circles (T21) (1D) |
|---|
| 13 | !@ |
|---|
| 14 | !@ -ninip24: number of longitudes for the 24 latitude circles (T31) (1D) |
|---|
| 15 | !@ |
|---|
| 16 | !@ -ninip32: number of longitudes for the 32 latitude circles (T42) (1D) |
|---|
| 17 | !@ |
|---|
| 18 | !@ -ninip48: number of longitudes for the 48 latitude circles (T63) (1D) |
|---|
| 19 | !@ |
|---|
| 20 | !@ -ninip80: number of longitudes for the 80 latitude circles (T106) (1D) |
|---|
| 21 | !@ |
|---|
| 22 | !@ -ninip160: number of longitudes for the 160 latitude circles (T213-319) (1D) |
|---|
| 23 | !@ |
|---|
| 24 | !@ -- nredu16 : number of points on T21 reduced gaussian grid |
|---|
| 25 | !@ |
|---|
| 26 | !@ -- nredu24 : number of points on T31 reduced gaussian grid |
|---|
| 27 | !2 |
|---|
| 28 | !@ -- nredu32 : number of points on T42 reduced gaussian grid |
|---|
| 29 | !@ |
|---|
| 30 | !@ -- nredu48 : number of points on T63 reduced gaussian grid |
|---|
| 31 | !@ |
|---|
| 32 | !@ -- nredu80 : number of points on T106 reduced gaussian grid |
|---|
| 33 | !@ |
|---|
| 34 | !@ -- nredu160 : number of points on T213-T319 reduced gaussian grids |
|---|
| 35 | !@ |
|---|
| 36 | !@ -- amskred : mask value for reduced grid |
|---|
| 37 | !@ |
|---|
| 38 | ! ------------------------------------------------------------------- |
|---|
| 39 | ! |
|---|
| 40 | USE mod_kinds_oasis |
|---|
| 41 | ! - T21 |
|---|
| 42 | INTEGER (kind=ip_intwp_p), dimension(16), PARAMETER :: ninip16 = & |
|---|
| 43 | (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64/) |
|---|
| 44 | ! - T31 |
|---|
| 45 | INTEGER (kind=ip_intwp_p), dimension(24), PARAMETER :: ninip24 = & |
|---|
| 46 | (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64, & |
|---|
| 47 | 96,96,96,96,96,96,96,96/) |
|---|
| 48 | ! - T42 |
|---|
| 49 | INTEGER (kind=ip_intwp_p), dimension(32), PARAMETER :: ninip32 = & |
|---|
| 50 | (/20,30,40,48,48,54,54,64,72,80,80,90,96,100, & |
|---|
| 51 | 108,108,120,120,120,128,128,128,128,128, & |
|---|
| 52 | 128,128,128,128,128,128,128,128/) |
|---|
| 53 | ! - T63 |
|---|
| 54 | INTEGER (kind=ip_intwp_p), dimension(48), PARAMETER :: ninip48 = & |
|---|
| 55 | (/16, 16, 18, 24, 30, 36, 48, 48, 54, 60, 72, 72, 80, 90, 90 & |
|---|
| 56 | ,96,100,108,120,120,128,128,144,144,144,144,150,160,160,160 & |
|---|
| 57 | ,162,180,180,180,180,180,180,192,192,192,192,192,192,192,192 & |
|---|
| 58 | ,192,192,192/) |
|---|
| 59 | ! - T106 |
|---|
| 60 | INTEGER (kind=ip_intwp_p), dimension(80), PARAMETER :: ninip80 = & |
|---|
| 61 | (/16, 16, 18, 24, 30, 36, 48, 50, 60, 64, 72, 80, 80, 90, 96 & |
|---|
| 62 | ,100,108,120,120,128,128,144,144, 144,150,160,162,180,180,180 & |
|---|
| 63 | ,192,192,192,200,216,216,216,216, 240,240,240,240,240,250,250 & |
|---|
| 64 | ,250,256,270,270,270,270,288,288, 288,288,288,288,300,300,300 & |
|---|
| 65 | ,300,300,320,320,320,320,320,320, 320,320,320,320,320,320,320 & |
|---|
| 66 | ,320,320,320,320,320/) |
|---|
| 67 | !- T213- T319 |
|---|
| 68 | INTEGER (kind=ip_intwp_p), dimension(160), PARAMETER :: ninip160 = & |
|---|
| 69 | (/18, 25, 36, 40, 45, 50, 60, 64, 72, 72, 80, 90, 90, 96,108 & |
|---|
| 70 | ,120,120,125,128,135,144,150,160,160,180,180,180,192,192,200 & |
|---|
| 71 | ,216,216,225,225,240,240,243,250,256,270,270,288,288,288,300 & |
|---|
| 72 | ,300,320,320,320,320,324,360,360,360,360,360,360,375,375,375 & |
|---|
| 73 | ,384,384,400,400,400,405,432,432,432,432,432,450,450,450,450 & |
|---|
| 74 | ,480,480,480,480,480,480,480,500,500,500,500,500,512,512,540 & |
|---|
| 75 | ,540,540,540,540,540,540,540,576,576,576,576,576,576,576,576 & |
|---|
| 76 | ,576,576,600,600,600,600,600,600,600,600,600,640,640,640,640 & |
|---|
| 77 | ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640 & |
|---|
| 78 | ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640 & |
|---|
| 79 | ,640,640,640,640,640,640,640,640,640,640/) |
|---|
| 80 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu16 = 1784 |
|---|
| 81 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu24 = 3320 |
|---|
| 82 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu32 = 6232 |
|---|
| 83 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu48 = 12228 |
|---|
| 84 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu80 = 23444 |
|---|
| 85 | INTEGER (kind=ip_intwp_p), PARAMETER :: nredu160 = 138346 |
|---|
| 86 | REAL (kind=ip_realwp_p), PARAMETER :: amskred = 9999999.0 |
|---|
| 87 | ! |
|---|
| 88 | END MODULE mod_gauss |
|---|
| 89 | ! ------------------------------------------------------------------- |
|---|
| 90 | |
|---|
| 91 | |
|---|
| 92 | |
|---|
| 93 | |
|---|
