Module spml_mod

• Developers: Morikawa Yasuhiro
• Version: $Id: spml.f90,v 1.6 2005/01/20 11:02:09 morikawa Exp $
• Tag Name: $Name: dcpam2-20050522-1 $
• Change History:

Overview

This module is wrapper of wa_module in SPMODEL.

SPMODEL ライブラリの wa_module のラッパーモジュールである。 他のモジュールから SPMODEL のサブルーチンおよび関数を 呼ぶ場合には、原則的にこのモジュールを介して呼び出す。

Error Handling

Known Bugs

Note

wa_module の全ての関数をそのまま利用できるよう、private をつけていない。 実際にこのモジュールで行なっているのは、初期化を複数回行なわないように しているだけである。

Future Plans

Dependency

このモジュール内部で用いるだけでなく、力学コアなどに wa_module の 関数群を提供するという意味で、敢えて only 属性をつけていない。 (本来は必要な全ての関数を指定すべきであろうが)。

use wa_module
use w_module,   only : rn
use type_mod,   only : STRING

Public Interface

public :: spml_init, spml_end  ! subroutines

その他、wa_module で提供される関数群。

Procedure Interface

Initialize wa_module

wa_module の初期化関数 wa_Initial を呼ぶ。

subroutine spml_init

Dependency

use type_mod           , only: INTKIND, STRING
use grid_3d_mod        , only: im, jm, km, grid_3d_init
use grid_wavenumber_mod, only: nm, grid_wavenumber_init
use dc_trace,    only: DbgMessage, BeginSub, EndSub
use dc_error,    only: StoreError, USR_ECHAR
use wa_module,   only: wa_Initial

Terminate module

現状では wa_Initial を解除できないので、 何もしない。 wa_Initial による初期化を解除できるのなら、 spml_init による初期化フラグをオフにすべきである。

subroutine spml_end

Dependency

use type_mod,  only: INTKIND, STRING
use dc_trace,  only: DbgMessage, BeginSub, EndSub