libmxe_grid

グリッド情報を設定するモジュール。以下を含む。

• type_libmxe_grid: 実験のグリッド情報を保持するクラス。要素は以下のとおり。

  logical :: ldef=.false. !- .true. : this object is registered
  real(8),pointer :: lont(:), latt(:)       !- longitude and latitude at T-grid
  real(8),pointer :: lonu(:), latu(:)       !-                        at U-grid
  real(8),pointer :: glont(:,:), glatt(:,:) !- geographical longitude and latitude at T-grid
  real(8),pointer :: glonu(:,:), glatu(:,:) !-                                     at U-grid
  real(8),pointer :: cor(:,:)               !- Coriolis parameter at U-grid
  real(8),pointer :: dxtdeg(:), dytdeg(:)   !- longitude and latitude grid spacing
  real(8),pointer :: dep(:)  !- box-top depth (1:km+1)
  real(8),pointer :: depm(:) !- box-center depth (1:km)
  real(8),pointer :: dzm(:)  !- box-center interval (1:km)
  real(8),pointer :: a_bl(:,:), a_br(:,:), a_tl(:,:), a_tr(:,:) !- area of quarter
  !                  T----X----T
  !                  | tl | tr |
  !             U----Y----U----Y
  !             |    | bl | br |
  !             X----T----X----T
  !             |    |    |
  !             U----Y----U
  real(8),pointer :: areau(:,:) !- area of U-box
  real(8),pointer :: dx_bl(:,:), dx_br(:,:), dx_tl(:,:), dx_tr(:,:) !- length (x)
  real(8),pointer :: dy_bl(:,:), dy_br(:,:), dy_tl(:,:), dy_tr(:,:) !- length (y)
  real(8),pointer :: nendidx(:) !- north end index
                                !- nendidx(para%jet)=0.5 if para%lfoldnp=.true.
  character(len=clen) :: namelist !- namelist file

• libmxe_grid__register: type_libmxe_paraインスタンスを基に、クラスtype_libmxe_gridのインスタンスを生成するメソッド。