module_wave2grid_kma.f90

1       MODULE module_wave2grid_kma
2      
3       PARAMETER (KMAX=30)
4 C==== T213 (640*321)
5 C     PARAMETER(IMAXE=640,JMAXE=321)
6 C     PARAMETER(IMAX=640,JMAX=320)
7 C     PARAMETER(IDIM=640,JDIM=320)
8 C     PARAMETER(MEND1 =214,NEND1=214,JEND1=214)
9 
10 C==== T213 (428*215)
11       PARAMETER(IMAXE=428,JMAXE=215)
12       PARAMETER(IMAX=428,JMAX=214)
13       PARAMETER(IDIM=428,JDIM=214)
14       PARAMETER(MEND1 =214,NEND1=214,JEND1=214)
15 
16 C==== T63 (192*97)
17 C     PARAMETER(IMAXE=192,JMAXE=97)
18 C     PARAMETER(IMAX=192,JMAX=96)
19 C     PARAMETER(IDIM=192,JDIM=96)
20 C     PARAMETER(MEND1=64,NEND1=64,JEND1=64)
21 
22       PARAMETER(ISST=360,JSST=181)
23       PARAMETER(ISNW=360,JSNW=180)
24       PARAMETER(MAXJZ=16)
25       PARAMETER(JMAXHF=JMAX/2)
26       PARAMETER(MNWAV=MEND1*(MEND1+1)/2)
27       PARAMETER(IVAR=6,IMX=IMAX+2)
28 
29       CONTAINS
30 
31 #include  "BSSLZ1.inc"
32 #include  "CR8I2V.inc"
33 #include  "CVDATE.inc"
34 #include  "GAUSS.inc"
35 #include  "GH2TV.inc"
36 #include  "LT2GAU.inc"
37 #include  "GPLHGT.inc"
38 #include  "MINMAX.inc"
39 #include  "MONTWO.inc"
40 #include  "OUTZ.inc"
41 #include  "PRESUB.inc"
42 #include  "REDANL.inc"
43 #include  "REDDAT.inc"
44 #include  "REDDAT_ASCII.inc"
45 #include  "REDDAT_BIN.inc"
46 #include  "REDGES.inc"
47 #include  "REDHED.inc"
48 #include  "RESET.inc"
49 #include  "SPLDIF3_H.inc"
50 #include  "TETEN.inc"
51 #include  "PACK.inc"
52 #include  "VPRM.inc"
53 #include  "WRTDAT.inc"
54 #include  "WRTEOF.inc"
55 #include  "WRTHED.inc"
56 #include  "ZE2TVE.inc"
57 #include  "ZMNLAT.inc"
58 #include  "ZMNT.inc"
59 #include  "RELHUM.inc"
60 #include  "PREGSM.inc"
61 #include  "PREGSM1.inc"
62 #include  "Einc_to_Ganl.inc"
63 
64       END MODULE  module_wave2grid_kma