Class physics_hs94forcing_mod
In: src/shared/physics/physics_hs94forcing.f90
src/shared/physics/physics_hs94forcing_2004-12-24-23-58-58.f90

Methods

Included Modules

type_mod constants_mod grid_3d_mod dc_trace type_mod grid_3d_mod vtype

Public Instance methods

本来はここで、実験設定と ((< constants_mod >)) の値との比較を 行ないたいが、まだ実装されていない。 (実数同士のそのままの比較は難しいので、有効数字数桁と指数部分を 比較するようにすべきだろう)。

[Source]

  subroutine physics_hs94forcing_init
  !==== Dependency

                                                                 !=end
    implicit none


    character(STRING),  parameter:: subname = "physics_hs94forcing_init"
  continue

    !----------------------------------------------------------------
    !   Check Initialization
    !----------------------------------------------------------------
    call BeginSub(subname)
    if (physics_hs94forcing_initialized) then
       call EndSub( subname, '%c is already called.', c1=trim(subname) )
       return
    else
       physics_hs94forcing_initialized = .true.
    endif

    !----------------------------------------------------------------
    !   Version identifier
    !----------------------------------------------------------------
    call DbgMessage('%c :: %c', c1=trim(version), c2=trim(tagname))

    !-------------------------------------------------------------------
    !   Initialize Dependent modules
    !-------------------------------------------------------------------
    call constants_init
    call grid_3d_init

    !-------------------------------------------------------------------
    !   Allocate variables
    !-------------------------------------------------------------------
    allocate(  xyz_Sigma(im, jm, km)  ,  xyz_kv(im, jm, km)     ,  xyz_Press(im, jm, km)  ,  xyz_SinLat(im, jm, km) ,  xyz_CosLat(im, jm, km) ,  xyz_TempEQ(im,jm,km)   ,  xyz_kt(im,jm,km)      )    ! k_t

    call EndSub(subname)
  end subroutine physics_hs94forcing_init

FUTURE PLANS

[Source]



  subroutine physics_hs94forcing_init


  end subroutine physics_hs94forcing_init

[Validate]