module_wave2grid_kma.f90

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