DCPAM Main Program.
----- NAMELIST ̾����⥸�塼�� -----
use nmlfile_mod, only: nmlfile_init, nmlfile_open, nmlfile_close
----- ʪ���������⥸�塼�� -----
use constants_mod, only: SecPerDay
----- ��¤�λ��ȥ⥸�塼�� -----
use dycore_type_mod, only: DYCORE_VARS, DYCORE_DIMS, STRING, INTKIND, REKIND
----- �ʻ��������⥸�塼�� -----
use dycore_grid_mod, only: dycore_grid_init, dycore_grid_end, &
& im, jm, km, nm
----- �ǡ���I/O�⥸�塼�� -----
use dycore_in_mod, only: dycore_in_init, &
& dycore_in_dims, dycore_in_vars, &
& dycore_in_end
use dycore_out_mod, only: dycore_out_init, dycore_out_put, &
& dycore_out_end
----- �ϳز����⥸�塼�� (���ڥ��ȥ��ǥ���) -----
use dycore_dynamics_mod, only: dycore_dynamics_init, &
& dycore_dynamics_prediction, &
& dycore_dynamics_diagnostic, &
& dycore_dynamics_diffusion, &
& dycore_dynamics_end
----- Held and Suarez(1994) �⥸�塼�� -----
use dycore_hs94forcing_mod, only: dycore_hs94forcing_init, &
& dycore_hs94forcing , &
& dycore_hs94forcing_end
----- ���ֹ�����������ե��륿���⥸�塼�� -----
use dycore_time_mod, only: dycore_time_init, dycore_time_progress, &
& dycore_time_end, dycore_time_filter, &
& StepInterval, OutputStep, &
& CurrentLoop, CurrentTime, DelTime
! & dycore_time_filter
----- �ǥХå������ѥġ��� -----
use dc_trace, only: SetDebug, DbgMessage, BeginSub, EndSub use dc_message,only: MessageNotify use dc_string, only: toChar
�¸������Ԥ���
logical :: CalcDynamics = .true. ! �ϳإ����α黻
logical :: CalcDiffusion = .true. ! �Ȼ���α黻
logical :: CalcHS94forcing = .true. ! Held and Suarez(1994) �ˤ�붯��
namelist /dycore_nml/ &
& CalcDynamics , & ! �ϳإ����α黻
& CalcDiffusion , & ! �Ȼ���α黻
& CalcHS94forcing ! Held and Suarez(1994) �ˤ�붯��