綺ф��若�粋┃絎�

Axes data settings

Note that Japanese and English are described in parallel.

綺ф��若�帥��┃絎��割�膊＜��茵��障��.

膩�墾 $ varphi $ ��括�綺� $ lambda $ ��弱��鴻��, gridset �≪�吾�ャ�若��ц┃絎��弱��号�違��, SPMODEL ��ゃ�� 浦絎��障��. 膩�墾��弱��鴻��臀��合君綺�, 腟�綺��弱��鴻��臀��障��.

��艦��弱��鴻��, ��贋�違�� (��絮ゃ��) ��ゃ�� NAMELIST#Sigma ��絎��障��. �贋�違�� (��絮ゃ��賢綽��) ��, ��贋�違�� constants �≪�吾�ャ�若��ц┃絎��箙丞�ュぇ羂��ф�� $ C_p $ �� 箙丞�ュぇ羂��篏�絎�� $ R $ ��浦絎��障��. ��艦��弱��鴻��ゃ��, sigma_data �≪�吾�ャ�若��х�� 篏睡��純�с��.

Axes data is set and stored.

Grid points of latitude $ varphi $ and longitude $ lambda $ are determined with number of grid points configured in "gridset" module by SPMODEL Library Grid points of latitude becomes Gaussian latitude, and grid points of latitude becomes equally spaced.

Variables List

x_Lon :	腟�綺�婚罔�
x_Lon_Weight :	腟�綺�婚罔��
DeltaLon :	腟�綺��弱��拷��
InvDeltaLon :	腟�綺��弱��拷��
y_Lat :	膩�墾綺ф�
y_Lat_Weight :	膩�墾綺ф��
z_Sigma :	$ sigma $ �� (�贋��)
r_Sigma :	$ sigma $ �� (��贋��)
z_DelSigma :	$ Delta sigma $ (�贋��)
r_DelSigma :	$ Delta sigma $ (��贋��)
w_Number :	�鴻��若�帥��兄絖��
spml_inited :	SPML ��ゃ��荐㊤��
———— :	————
x_Lon :	Longitude
x_Lon_Weight :	Weight of longitude
DeltaLon :	Interval of longitude grids
InvDeltaLon :	Inverse of DeltaLon
y_Lat :	Latitude
y_Lat_Weight :	Weight of latitude
z_Sigma :	Full $ sigma $ level
r_Sigma :	Half $ sigma $ level
z_DelSigma :	$ Delta sigma $ (Full)
r_DelSigma :	$ Delta sigma $ (Half)
w_Number :	Subscript of spectral data
spml_inited :	Initialization flag of SPML library

Procedures List

AxessetInit :	綺ф��若�帥��┃絎�
AxessetFinalize :	腟�篋�� (�≪�吾�ャ�若��違��蚊��篁��茹ｉ��)
———— :	————
AxessetInit :	Settings of axes data
AxessetFinalize :	Termination (deallocate variables in this module)

Methods

Included Modules

gridset dc_types namelist_util constants0 constants wa_mpi_module_sjpack wa_mpi_module wa_zonal_module wa_module_sjpack wa_zonal_module_sjpack wa_module sigma_data dc_iounit dc_message dc_string

Public Instance methods

AxessetFinalize( )

Subroutine :

�≪�吾�ャ�若��違��蚊��篁��茹ｉ�ゃ��茵��障��.

Deallocate variables in this module.

[Source]

  subroutine AxessetFinalize
    !
    ! �≪�吾�ャ�若����������違���蚊��篁���茹ｉ�ゃ��茵����障��. 
    !
    ! Deallocate variables in this module. 
    !

    ! �≪�吾�ャ�若����� ; USE statements
    !

    ! 絎ｈ��� ; Declaration statements
    !
    implicit none

    ! 絎�茵��� ; Executable statement
    !

    if ( .not. axesset_inited ) return

    ! �蚊��篁���茹ｉ��
    ! Deallocation
    !
    if ( allocated( z_Sigma    ) ) deallocate( z_Sigma    )
    if ( allocated( r_Sigma    ) ) deallocate( r_Sigma    )
    if ( allocated( z_DelSigma ) ) deallocate( z_DelSigma )
    if ( allocated( r_DelSigma ) ) deallocate( r_DelSigma )
    if ( allocated( w_Number   ) ) deallocate( w_Number   )

    if ( allocated( r_SSDepth ) ) deallocate( r_SSDepth )
    if ( allocated( z_SSDepth ) ) deallocate( z_SSDepth )

    if ( allocated( x_Lon        ) ) deallocate( x_Lon        )
    if ( allocated( x_Lon_Weight ) ) deallocate( x_Lon_Weight )
    if ( allocated( y_Lat        ) ) deallocate( y_Lat        )
    if ( allocated( y_Lat_Weight ) ) deallocate( y_Lat_Weight )

    axesset_inited = .false.

  end subroutine AxessetFinalize

AxessetInit( )

Subroutine :

axesset �≪�吾�ャ�若��茵��障��. NAMELIST#axesset_nml ��粋昭�帥��膓��ц��障��.

"axesset" module is initialized. NAMELIST#axesset_nml is loaded in this procedure.

This procedure input/output NAMELIST#axesset_nml .

[Source]

  subroutine AxessetInit
    !
    ! axesset �≪�吾�ャ�若������������茵����障��. 
    ! NAMELIST#axesset_nml ����粋昭�帥��������膓����ц�����障��. 
    !
    ! "axesset" module is initialized. 
    ! NAMELIST#axesset_nml is loaded in this procedure. 
    !

    ! �≪�吾�ャ�若����� ; USE statements
    !

    ! �����紙�医⑥絎��域┃絎�
    ! Physical and mathematical constants settings
    !
    use constants0, only: PI      ! $ \pi $ .
                                  ! �����.  Circular constant

    ! ����絎��域┃絎�
    ! Physical constants settings
    !
    use constants, only: CpDry, GasRDry  ! $ R $ [J kg-1 K-1]. 
                                  ! 箙丞�ュぇ羂����篏�絎���. 
                                  ! Gas constant of air

    ! �弱��号�違�紙��紊ф晦�域┃絎�
    ! Number of grid points and maximum truncated wavenumber settings
    !
    use gridset, only: GridsetCheckNumberOfLatGrid

    ! SPMODEL ���ゃ������, ���≫����馹������∵����醇�医���������茹ｃ��(紊�絮ゅ�綽�) 
    ! SPMODEL library, problems on sphere are solved with spherical harmonics 
    ! (multi layer is supported)
    !
#ifdef LIB_MPI
#ifdef SJPACK
    use wa_mpi_module_sjpack, only: wa_mpi_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => v_Lat, spml_y_Lat_Weight => v_Lat_Weight, spml_jc => jc
#else
    use wa_mpi_module, only: wa_mpi_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => v_Lat, spml_y_Lat_Weight => v_Lat_Weight, spml_jc => jc
#endif
#elif AXISYMMETRY
    use wa_zonal_module, only: wa_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => y_Lat, spml_y_Lat_Weight => y_Lat_Weight
                              ! $ \Delta \varphi $ [rad.] . 
                              ! 膩�墾綺ф�����. 
                              ! Weight of latitude
#elif SJPACK
    use wa_module_sjpack, only: wa_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => y_Lat, spml_y_Lat_Weight => y_Lat_Weight
                              ! $ \Delta \varphi $ [rad.] . 
                              ! 膩�墾綺ф�����. 
                              ! Weight of latitude
#elif AXISYMMETRY_SJPACK
    use wa_zonal_module_sjpack, only: wa_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => y_Lat, spml_y_Lat_Weight => y_Lat_Weight
                              ! $ \Delta \varphi $ [rad.] . 
                              ! 膩�墾綺ф�����. 
                              ! Weight of latitude
#else
    use wa_module, only: wa_Initial, spml_x_Lon        => x_Lon, spml_x_Lon_Weight => x_Lon_Weight, spml_y_Lat        => y_Lat, spml_y_Lat_Weight => y_Lat_Weight
                              ! $ \Delta \varphi $ [rad.] . 
                              ! 膩�墾綺ф�����. 
                              ! Weight of latitude
#endif

    ! ���艦����������若�炊���
    ! Prepare vertical sigma level data
    !
    use sigma_data, only: SigmaDataGetHalf

    ! NAMELIST ���＜�ゃ���ュ�����≪�������若���ｃ������
    ! Utilities for NAMELIST file input
    !
    use namelist_util, only: namelist_filename, NmlutilMsg, NmlutilAryValid

    ! ���＜�ゃ���ュ�阪��茖���
    ! File I/O support
    !
    use dc_iounit, only: FileOpen

    ! 腮��ュ�������＜��
    ! Kind type parameter
    !
    use dc_types, only: STDOUT, TOKEN      ! �㏍�若���若��.   Keywords. 

    ! �＜���祉�若�後�阪��
    ! Message output
    !
    use dc_message, only: MessageNotify

    ! ��絖�����篏�
    ! Character handling
    !
    use dc_string, only: CPrintf

    ! OpenMP
    !
    !$ use omp_lib


    ! 絎ｈ��� ; Declaration statements
    !
    implicit none

    ! 篏�罐㊤���
    ! Work variables
    !
    logical:: flag_generate_sigma
                              ! ���翫韻�違������������������������
                              ! Flag for generation of sigma levels internally
    integer:: i               ! �鴻����������兄絖���垩�у���� DO ���若�����罐㊤���
                              ! Work variables for DO loop in subscript of spectral data
    integer:: k               ! ���贋�劫�������� DO ���若�����罐㊤���
                              ! Work variables for DO loop in vertical direction
    real(DP):: Kappa          ! $ \kappa = R / C_p $ .
                              ! 箙丞�ュぇ羂���������, 羂�篏�絎��違����ф��宴�������罸�.
                              ! Ratio of gas constant to specific heat in dry air

    real(DP):: LonInDeg       ! Longitude in unit of degree of a grid point in 1D mode
    real(DP):: LatInDeg       ! Latitude in unit of degree of a grid point in 1D mode

    integer:: unit_nml        ! NAMELIST ���＜�ゃ�����若���括���臀����. 
                              ! Unit number for NAMELIST file open
    integer:: iostat_nml      ! NAMELIST 茯㏍�粋昭�炊���� IOSTAT. 
                              ! IOSTAT of NAMELIST read

    integer:: OMPNumThreads
                              ! OpenMP �с����紊с�鴻��������.
                              ! openmp_threads �� 1 ����紊с�����ゃ����絎������� 
                              ! ISPACK[http://www.gfd-dennou.org/library/ispack/] 
                              ! �����∵����醇�医��� OpenMP 筝���荐�膊�
                              ! ���若���潟������������. 筝���荐�膊���絎�茵���������,
                              ! 絎�茵������医�紊��� OMP_NUM_THREADS 
                              ! �� OMPNumThreads 篁ヤ����医���┃絎�����
                              ! 膈����激�鴻�����������羣�����綽�荀�������.
                              !
                              ! OMPNumThreads �� 1 ����紊с�����ゃ��
                              ! ��絎����������遺研��荐�膊����若���潟���若�違������.

    character(TOKEN):: rank_str
                              ! ���潟����. Rank number
    integer:: myrank_mpi      ! 膩���㏍�祉�号��. Number of total processes
    integer:: nprocs_mpi      ! ��昆�����㏍�祉��. Number of my process
    integer:: ra              ! MPI �����潟���井�劫�������� DO ���若�����罐㊤���
                              ! Work variables for DO loop in rank number of MPI direction

    ! NAMELIST 紊��亥召
    ! NAMELIST group name
    !
    namelist /axesset_nml/ Sigma, Depth, flag_generate_sigma, LonInDeg, LatInDeg
          !
          ! �����������ゃ���ゃ��������������膓� "axesset#AxessetInit" 
          ! ���純�若�鴻�潟�若�������с������. 
          !
          ! Refer to source codes in the initialization procedure
          ! "axesset#AxessetInit" for the default values. 
          !

    ! 絎�茵��� ; Executable statement
    !

    if ( axesset_inited ) return


    !
    ! Set number of OpenMP threads
    !
    OMPNumThreads = 1
    !$ OMPNumThreads = omp_get_max_threads()


    ! �蚊��篁���
    ! Allocation
    !
    allocate( z_Sigma      (1:kmax)   )
    allocate( r_Sigma      (0:kmax)   )
    allocate( z_DelSigma   (1:kmax)   )
    allocate( r_DelSigma   (0:kmax)   )
    allocate( w_Number     (1:(nmax+1)**2) )

    allocate( r_SSDepth( 0:kslmax ) )
    allocate( z_SSDepth( 1:kslmax ) )

    ! �����������ゃ��┃絎�
    ! Default values settings
    !

    ! Sigma (���贋�違�������) �������� (�≦�鴻����) ��┃絎�
    ! Setting of initial value (invalid value) of "Sigma" (half level sigma)
    !
    Sigma = -999.0d0

    ! �遺���韻������∽訓���������� (�≦�鴻����) ��┃絎�
    ! Setting of initial value (invalid value) of depth of subsurface layer interface
    !
    Depth = -999.0d0

    ! ���翫韻�違�����������������������違��┃絎�
    ! Setting of flag for generation of sigma levels internally
    !
    flag_generate_sigma = .false.

    ! Longitude in unit of degree of a grid point in 1D mode
    !
    LonInDeg = 0.0_DP

    ! Latitude in unit of degree of a grid point in 1D mode
    !
    LatInDeg  = 0.0_DP

    ! NAMELIST ����粋昭��
    ! NAMELIST is input
    !
    if ( trim(namelist_filename) /= '' ) then
      call FileOpen( unit_nml, namelist_filename, mode = 'r' ) ! (in)

      rewind( unit_nml )
      read( unit_nml, nml = axesset_nml, iostat = iostat_nml ) ! (out)
      close( unit_nml )

      call NmlutilMsg( iostat_nml, module_name ) ! (in)
    end if

    ! Sigma (���贋�違�������) ������荐㊤�
    ! Automation setting of "Sigma" (half level sigma)
    !
    if ( all( Sigma == -999.0d0 ) ) then
      if ( flag_generate_sigma ) then
        call SigmaDataGetHalf( Sigma(1:kmax+1) ) ! (out)
      else
        call MessageNotify( 'E', module_name, '  Sigma levels have to be specified if flag_generate_sigma is not true.' )
      end if
    end if

    ! Sigma (���贋�違�������) ���с����
    ! Check "Sigma" (half level sigma)
    !
    if ( Sigma(1) /= 1.0_DP ) then
      call MessageNotify( 'E', module_name, '  Sigma(1) is not 1, but is %f', d = (/ Sigma(1) /) )
    end if
    if ( Sigma(kmax+1) /= 0.0_DP ) then
      call MessageNotify( 'E', module_name, '  Sigma(kmax+1) is not 0, but is %f', d = (/ Sigma(kmax+1) /) )
    end if
    do k = 1, kmax
      if ( Sigma(k+1) > Sigma(k) ) then
        call MessageNotify( 'M', module_name, '  Sigma(%d) = %f > Sigma(%d) = %f', i = (/ k+1, k /), d = (/ Sigma(k+1), Sigma(k) /) )
        call MessageNotify( 'E', module_name, '  Value of Sigma has to decrease with index.' )
      end if
    end do

    ! r_Sigma (���贋�違�������) 荐㊤�
    ! Setting of "r_Sigma" (half level sigma)
    !
    r_Sigma(0:kmax) = Sigma(1:kmax+1)

    ! z_DelSigma (�贋�違������ $ \Delta \sigma $ ) 荐㊤�
    ! Setting of "z_DelSigma" (full level $ \Delta \sigma $ )
    !
    do k = 1, kmax
      z_DelSigma(k) = r_Sigma(k-1) - r_Sigma(k)
    enddo

    ! z_Sigma (�贋�違�������) 荐㊤�
    ! Setting of "z_Sigma" (full level sigma)
    !
    Kappa = GasRDry / CpDry
    do k = 1, kmax
      z_Sigma(k) = ( (   r_Sigma(k-1) ** ( 1.0_DP + Kappa ) - r_Sigma(k)   ** ( 1.0_DP + Kappa ) ) / ( z_DelSigma(k) * ( 1.0_DP + Kappa ) ) ) ** ( 1.0_DP / Kappa )
    enddo

    ! r_DelSigma (���贋�違������ $ \Delta \sigma $ ) 荐㊤�
    ! Setting of "r_DelSigma" (half level $ \Delta \sigma $ )
    !
    r_DelSigma(0)    = r_Sigma(0)    - z_Sigma(1)
    r_DelSigma(kmax) = z_Sigma(kmax) - r_Sigma(kmax)
    do k = 1, kmax - 1
      r_DelSigma(k) = z_Sigma(k) - z_Sigma(k+1)
    end do


    ! �遺���韻������∽訓�������с����
    ! Check depth of subsurface layer interface
    !
    if ( all( Depth == -999.0d0 ) ) then
      Depth(0+1:kslmax+1 ) = 0.0_DP
      call MessageNotify( 'W', module_name, 'Depth is not found in namelist file.' )
    end if
    !
    if ( Depth(0+1) /= 0.0_DP ) then
      call MessageNotify( 'E', module_name, '  Depth(0) is not zero, but is %f', d = (/ Depth(0+1) /) )
    end if
    if ( kslmax >= 1 ) then
      if ( all( Depth(1+1:kslmax+1) >= 0.0_DP ) ) then
        do k = 0, kslmax
          call MessageNotify( 'M', module_name, '  Depth(%d) = %f', i = (/ k /), d = (/ Depth(k+1) /) )
        end do
        call MessageNotify( 'E', module_name, '  Depth has to be zero or negative.' )
      end if
    end if
    do k = 0, kslmax-1
      if ( Depth(k+1+1) > Depth(k+1) ) then
        call MessageNotify( 'M', module_name, '  Depth(%d) = %f > Depth(%d) = %f', i = (/ k+1, k /), d = (/ Depth(k+1+1), Depth(k+1) /) )
        call MessageNotify( 'E', module_name, '  Value of Depth has to decrease with index.' )
      end if
    end do

    r_SSDepth(0:kslmax) = Depth(1:kslmax+1)

    do k = 0, kslmax
      call MessageNotify( 'M', module_name, '  r_SSDepth(%d) = %f', i = (/ k /), d = (/ r_SSDepth(k) /) )
    end do

    ! �遺������翫韻��賢綽��鴻��┃絎�
    ! Set midpoint of subsurface grid
    !
    do k = 1, kslmax
      z_SSDepth( k ) = ( r_SSDepth( k-1 ) + r_SSDepth( k ) ) / 2.0d0
    end do

    ! 膩�墾腟�綺���┃絎�
    ! Settings of longitude and latitude
    !
    allocate( x_Lon        (0:imax-1) )
    allocate( x_Lon_Weight (0:imax-1) )
    allocate( y_Lat        (1:jmax)   )
    allocate( y_Lat_Weight (1:jmax)   )

    if ( ( imax == 1 ) .and. ( jmax == 1 ) ) then

      x_Lon          = LonInDeg * PI / 180.0_DP
      x_Lon_Weight   = 1.0_DP
      y_Lat          = LatInDeg * PI / 180.0_DP
      y_Lat_Weight   = 1.0_DP

    else
      if ( .not. spml_inited ) then
#ifdef LIB_MPI
        call wa_mpi_Initial( nmax, imax, jmax_global, kmax, OMPNumThreads ) ! (in)
        ! Check number of latitudinal grid on each process
        call GridsetCheckNumberOfLatGrid( spml_jc )
#else
        call wa_Initial( nmax, imax, jmax_global, kmax, OMPNumThreads ) ! (in)
#endif
        spml_inited = .true.
      end if

      x_Lon          = spml_x_Lon
      x_Lon_Weight   = spml_x_Lon_Weight
      y_Lat          = spml_y_Lat
      y_Lat_Weight   = spml_y_Lat_Weight
    end if

    if ( imax /= 1  ) then
      ! DeltaLon, InvDeltaLon���膊�
      ! Caluculate DeltaLon and InvDeltaLon
      DeltaLon = x_Lon(1) - x_Lon(0)
      InvDeltaLon = 1.0_DP/DeltaLon
    else
      DeltaLon = 0.0_DP
      InvDeltaLon = 0.0_DP ! not used
    endif



    ! �鴻�����������若�帥��兄絖���垩��┃絎�
    ! Settings of subscript of spectral data
    !
    do i = 1, size(w_Number)
      w_Number(i) = i
    end do

    ! ���潟�����≪�������宴���緇�
    ! Get information about rank
    !
    myrank_mpi = -1
    nprocs_mpi = 1
    rank_str = ''


    ! �医� ; Print
    !
    call MessageNotify( 'M', module_name, '----- Initialization Messages -----' )

#ifdef SJPACK
    call MessageNotify( 'M', module_name, 'SJPACK : %c', c1 = 'used.' )
#else
    call MessageNotify( 'M', module_name, 'SJPACK : %c', c1 = 'not used.' )
#endif

    call MessageNotify( 'M', module_name, 'OMPNumThreads = %d', i = (/OMPNumThreads/) )

    do ra = 0, nprocs_mpi - 1

      call MessageNotify( 'M', module_name, 'Axes:%c', c1 = trim(rank_str), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  x_Lon(%d:%d) [deg.] = %*f', i = (/ 0, imax - 1/), d = format_print(x_Lon / PI * 180.0_DP, imax), n =(/ imax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  y_Lat(%d:%d) [deg.] = %*f', i = (/ 1, jmax/), d = format_print(y_Lat / PI * 180.0_DP, jmax), n =(/ jmax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  z_Sigma(%d:%d) = %*f', i = (/ 1, kmax /), d = format_print(z_Sigma, kmax), n =(/ kmax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  r_Sigma(%d:%d) = %*f', i = (/ 0, kmax /), d = format_print(r_Sigma, kmax+1), n =(/ kmax+1 /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  w_Number(%d:%d) = %d .. %d', i = (/ 1, size(w_Number), 1, size(w_Number) /), rank_mpi = -1 )
  !
      call MessageNotify( 'M', module_name, 'Weight:' )
      call MessageNotify( 'M', module_name, '  x_Lon_Weight(%d:%d) = %*f', i = (/ 0, imax - 1/), d = format_print(x_Lon_Weight, imax), n =(/ imax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  y_Lat_Weight(%d:%d) = %*f', i = (/ 1, jmax/), d = format_print(y_Lat_Weight, jmax), n =(/ jmax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '  z_DelSigma(%d:%d) = %*f', i = (/ 1, kmax /), d = format_print(z_DelSigma, kmax), n =(/ kmax /), rank_mpi = -1 )
      call MessageNotify( 'M', module_name, '' )
    end do

    call MessageNotify( 'M', module_name, '-- version = %c', c1 = trim(version), rank_mpi = -1 )

    axesset_inited = .true.

  end subroutine AxessetInit

AxnameR

Constant :

AxnameR = ‘sigm‘ :

character(STRING), parameter, public

:	axis name for r

AxnameSSR

Constant :

AxnameSSR = ‘sszi‘ :

character(STRING), parameter, public

:	axis name for r (subsurface)

AxnameSSZ

Constant :

AxnameSSZ = ‘ssz‘ :

character(STRING), parameter, public

:	axis name for z (subsurface)

AxnameT

Constant :

AxnameT = ‘time‘ :

character(STRING), parameter, public

:	axis name for t

AxnameWN

Constant :

AxnameWN = ‘wn‘ :

character(STRING), parameter, public

:	axis name for wavenumber

AxnameX

Constant :

AxnameX = ‘lon‘ :

character(STRING), parameter, public

:	axis name for x

AxnameY

Constant :

AxnameY = ‘lat‘ :

character(STRING), parameter, public

:	axis name for y

AxnameZ

Constant :

AxnameZ = ‘sig‘ :

character(STRING), parameter, public

:	axis name for z

DeltaLon

Variable :

DeltaLon :

real(DP), save, public

:	腟�綺��弱��拷��. grid interval in longitude

InvDeltaLon

Variable :

InvDeltaLon :

real(DP), save, public

:	腟�綺��弱��拷��. Inverse of the grid interval in longitude

axesset_inited

Variable :

axesset_inited = .false. :

logical, save, public

:	��荐㊤��. Initialization flag

r_DelSigma

Variable :

r_DelSigma(:) :

real(DP), allocatable, save, public

:	$ Delta sigma $ (��贋��). $ Delta sigma $ (half)

r_SSDepth

Variable :

r_SSDepth(:) :

real(DP), allocatable, save, public

:	�遺��韻��≪��訓�� subsurface grid on interface of layer

r_Sigma

Variable :

r_Sigma(:) :

real(DP), allocatable, save, public

:	$ sigma $ �� (��贋��). Half $ sigma $ level

spml_inited

Variable :

spml_inited = .false. :

logical, save, public

:	SPML ��ゃ��荐㊤��. Initialization flag of SPML library

w_Number

Variable :

w_Number(:) :

integer, allocatable, save, public

:	�鴻��若�帥��兄絖��. Subscript of spectral data

x_Lon

Variable :

x_Lon(:) :

real(DP), allocatable, save, public

:	$ lambda $ [rad.] . 腟�綺�. Longitude

x_Lon_Weight

Variable :

x_Lon_Weight(:) :

real(DP), allocatable, save, public

:	$ Delta lambda $ [rad.] . 腟�綺�婚罔��. Weight of longitude

y_Lat

Variable :

y_Lat(:) :

real(DP), allocatable, save, public

:	$ varphi $ [rad.] . 膩�墾. Latitude

y_Lat_Weight

Variable :

y_Lat_Weight(:) :

real(DP), allocatable, save, public

:	$ Delta varphi $ [rad.] . 膩�墾綺ф��. Weight of latitude

z_DelSigma

Variable :

z_DelSigma(:) :

real(DP), allocatable, save, public

:	$ Delta sigma $ (�贋��). $ Delta sigma $ (Full)

z_SSDepth

Variable :

z_SSDepth(:) :

real(DP), allocatable, save, public

:	�遺��弱��鴻��訓�� subsurface grid at midpoint of layer

z_Sigma

Variable :

z_Sigma(:) :

real(DP), allocatable, save, public

:	$ sigma $ �� (�贋��). Full $ sigma $ level

Private Instance methods

Depth

Variable :

Depth(1:MaxNmlArySize) :

real(DP), save

:	�ュ��, �遺��翫韻紜�� array for input, layer interface of subsurface vertical layer

Sigma

Variable :

Sigma(1:MaxNmlArySize) :

real(DP), save

:	$ sigma $ �� (��贋��). Half $ sigma $ level

format_print( ary, size ) result(result)

*Function* :
`result(size)` :	`real(DP)`
`ary(size)` :	`real(DP), intent(in)`
`size` :	`integer, intent(in)`

罔�羣��阪��号�医��純��.

Effective digit is reduced for output to standard output and returned.

[Source]

  function format_print( ary, size ) result(result)
    !
    ! 罔�羣��阪���������������������������号�医�������純���������. 
    !
    ! Effective digit is reduced for output to standard output and returned. 
    !

    ! 絎ｈ��� ; Declaration statements
    !
    implicit none
    integer, intent(in):: size
    real(DP), intent(in):: ary(size)
    real(DP):: result(size)

    ! 絎�茵��� ; Executable statement
    !
    result(1:size) = int( ary(1:size) * 1000.0_DP ) / 1000.0_DP

  end function format_print

module_name

Constant :

module_name = ‘axesset‘ :

character(*), parameter

:	�≪�吾�ャ�若��腱�. Module name

version

Constant :

version = ’$Name: $’ // ’$Id: axesset.F90,v 1.20 2014/05/07 09:39:21 murashin Exp $’ :

character(*), parameter

:	�≪�吾�ャ�若��若�吾�с�� Module version

綺ф����若�粋┃絎�

Axes data settings

Variables List

Procedures List

Methods

Included Modules

Public Instance methods

Private Instance methods

綺ф��若�粋┃絎�