* PACKAGE IHSTRG !" ヒストリー 出力登録 
*
*"履歴  96/09/03 竹広真一
*
***********************************************************************
*"          << 入出力初期設定 >>
***********************************************************************
      SUBROUTINE IHSTRT
*
*   [PARAM] 
#ifdef SYS_IBMS
      INCLUDE   (ZHDIM)                      !" 文字列文字数
#else
#include        "zhdim.F"                    !" 文字列文字数
#endif
*
* [INTERNAL WORK]
      CHARACTER  RUN  *(NCC)                 !" 実験名
      CHARACTER  SIGN *(NCC)                 !" 実験者名
*
      REAL       VMISS
      INTEGER    IFPAR, JFPAR
*
      NAMELIST    /NMRUN/  RUN   , SIGN
      NAMELIST    /NMFILE/ VMISS
*
*"         < 1. 実験名 >
*
      RUN  = 'shallow/test'
      SIGN = 'shallow'
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMRUN , END=1190 )
 1190 WRITE  ( JFPAR, NMRUN  )
*
      CALL GTCSET( 'DDSET' , RUN    )
      CALL GTCSET( 'MYSIGN', SIGN   )
*
*"         < 2. 欠損値設定 >
*
      CALL GZDBGT( 'MISS', VMISS )
*
      CALL   REWNML ( IFPAR , JFPAR )
      READ   ( IFPAR, NMFILE, END=2190 )
 2190 CONTINUE
      WRITE  ( JFPAR, NMFILE )
*
      CALL GZDBST( 'MISS', VMISS )
*
      RETURN
      END
***********************************************************************
*"          << 入出力最終処理 >>
***********************************************************************
      SUBROUTINE IHEND
*
      RETURN
      END
***********************************************************************
*"          << 標準時間平均出力の登録 >>
***********************************************************************
      SUBROUTINE IHSTRG
*
      REAL       VMISS
      INTEGER    ISTYPL
      DATA       ISTYPL / 1 /
*
      CALL GZDBGT( 'MISS', VMISS )
*
      CALL     HISTRG
     I       ( 'U     ', 'u-velocity          ' ,'m/s   ', 'ALEV',
     I           VMISS , VMISS , 2.5   , 10.   , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'X'     ,'(F12.3)' )
*
      CALL     HISTRG
     I       ( 'V     ', 'v-velocity          ' ,'m/s   ', 'ALEV',
     I           VMISS , VMISS , 2.5   , 10.   , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'X'     ,'(F12.3)' )
*
      CALL     HISTRG
     I       ( 'PHI   ', 'geopotential        ' ,'(m/s)**2','ALEV',
     I           VMISS , VMISS , 2.5   , 10.   , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'X'     ,'(F12.3)' )
*
      CALL     HISTRG
     I       ( 'VOR   ', 'vorticity           ' ,'1/s   ', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'DIV   ', 'divergence          ' ,'1/s   ', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'UA   ', 'u-advection         ' ,'1/s   ', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'VA   ', 'v-advection         ' ,'1/s   ', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'TH   ', 'phi-tendency  ' ,'1/s   ', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
         CALL     HISTRG
     I       ( 'UP   ', 'phi-advection    ' ,'(m/s)**2', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
         CALL     HISTRG
     I       ( 'VP   ', 'phi-advection    ' ,'(m/s)**2', 'ALEV',
     I           VMISS , VMISS , 1.E-6 , 5.E-6 , ISTYPL  ,
     I         '   '   , '   ' , 0     , 0     , 'X'     ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'KE    ', 'kinetic energy      ' ,'m3/s2 ', 'ALEV',
     I           VMISS , VMISS , VMISS , VMISS , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'XYZ'   ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'AM    ', 'angular momentum    ' ,'m2/s ', 'ALEV',
     I           VMISS , VMISS , VMISS , VMISS , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'XYZ'   ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'PV    ', 'potential vorticity    ' ,'1/m/s', 'ALEV',
     I           VMISS , VMISS , VMISS , VMISS , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'XYZ'   ,'(1PE12.3)' )
*
      CALL     HISTRG
     I       ( 'ENS   ', 'enstrophy            ' ,'1/s^2 ', 'ALEV',
     I           VMISS , VMISS , VMISS , VMISS , ISTYPL  ,
     I         'CON'   , '   ' , 0     , 0     , 'XYZ'   ,'(1PE12.3)' )
*
      RETURN
      END