var/convertor/wave2grid_kma/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