Module dycore_hs94forcing_mod

• Developers: Morikawa Yasuhiro
• Version: $Id: dycore_hs94forcing.f90,v 1.7 2005/05/02 11:33:37 morikawa Exp $
• Tag Name: $Name: dcpam2-20050612 $
• Change History:

Overview

Call hs94forcing_mod .

Error Handling

Known Bugs

Note

Future Plans

Dependency

use type_mod,      only : STRING, DBKIND

Public Interface

private
public :: dycore_hs94forcing_init        ! subroutines
public :: dycore_hs94forcing             ! subroutines
public :: dycore_hs94forcing_end         ! subroutines

Procedure Interface

Initialize module and

hs94forcing_mod ���������롣

subroutine dycore_hs94forcing_init( Dims )

Dependency

use constants_mod  , only: constants_init
use spml_mod       , only: spml_init
use dycore_type_mod, only: DYCORE_DIMS
use dycore_grid_mod, only: dycore_grid_init, im, jm, km, nm
use hs94forcing_mod, only: hs94forcing_init
use dc_trace,        only: BeginSub, EndSub, DbgMessage

Input

type(DYCORE_DIMS), intent(in)   :: Dims   ! �����ǡ�������

Calculate Heating and Dissipation for "Held and Suarez(1994)"

subroutine dycore_hs94forcing( Vars_b, Vars_n, Vars_a )

Dependency

use dycore_type_mod, only: DYCORE_VARS, &
     &                     STRING, DBKIND, INTKIND
use dycore_time_mod, only: DelTime
use constants_mod  , only: R0
use spml_mod       , only: xya_wa, wa_Div_xya_xya, &
     &                     wa_LaplaInv_wa, wa_xya, &
     &                     xya_GradLat_wa, xya_GradLon_wa
use hs94forcing_mod, only: hs94forcing
use dc_trace       , only: BeginSub, EndSub, DbgMessage

Input

type(DYCORE_VARS), intent(in)   :: Vars_b ! �ʻ����ǡ������� (t-��t)
type(DYCORE_VARS), intent(in)   :: Vars_n ! �ʻ����ǡ������� (t)

Output

type(DYCORE_VARS), intent(inout):: Vars_a ! �ʻ����ǡ�������(t+��t)

Terminate module

hs94forcing_mod �ν�λ������Ԥʤ���

subroutine dycore_hs94forcing_end

Dependency

use dycore_type_mod, only: STRING, DBKIND, INTKIND
use hs94forcing_mod, only: hs94forcing_end
use dc_trace,        only: BeginSub, EndSub, DbgMessage