* PACKAGE P2DAD0 ! 物理過程(2) 乾燥対流調節ダミー
*
**********************************************************************
      SUBROUTINE DADJST       !" 乾燥対流調節ダミー
     M         ( GDT   ,
     I           GDP   , GDPM  , DELTA  )
*
*   [PARAM]
#ifdef SYS_IBMS
      INCLUDE   (ZCDIM)                      !" 格子点数，波数
      INCLUDE   (ZCCOM)                      !" 標準物理定数
#else
#include        "zcdim.F"                    !" 格子点数，波数
#include        "zccom.F"                    !" 標準物理定数
#endif
*
*   [MODIFY]
      REAL       GDT   ( IDIM*JDIM, KMAX )   !" 温度  Ｔ
*
*   [INPUT]
      REAL       GDP   ( IDIM*JDIM, KMAX )   !" 気圧  Ｐ
      REAL       GDPM  ( IDIM*JDIM, KMAX+1 ) !" 気圧（半整数）
      REAL       DELTA                       !" 2Δt
*
*   [INTERNAL ONCE]
      LOGICAL    OFIRST
      DATA       OFIRST / .TRUE. /
      SAVE       OFIRST
*
*   [ONCE]
      IF ( OFIRST ) THEN
         WRITE ( 6,* ) ' DRY CONVENCIVE ADJUSTMENT REMOVED '
         OFIRST = .FALSE.
      ENDIF
*
      RETURN
      END