module Convert 2D data More...

Functions/Subroutines
subroutine, public	cnv2d_setup
	Setup. More...

subroutine, public	cnv2d
	Driver. More...

subroutine	cnv2d_fillhalo (VAR, FILL_BND)
	HALO Communication. More...

Variables
logical, public	cnv2d_donothing

logical, public	cnv2d_usegrads = .true.

Detailed Description

module Convert 2D data

Description: subroutines for preparing 2D data (convert from external file)

Author: Team SCALE

NAMELIST

PARAM_CNV2D

name	type	default value	comment
CNV2D_USEGRADS	logical	.true.
CNV2D_INTERPOLATION_TYPE	character(len=H_SHORT)	'bilinear'	interpolation type
CNV2D_UNITTILE_DDEG	real(RP)	0.0_RP	dx for unit tile [deg]
CNV2D_OVERSAMPLING_FACTOR	real(RP)	2.0_RP	factor of min. dx against the unit tile
CNV2D_OUT_BASENAME	character(len=H_LONG)	''	basename of the output file
CNV2D_OUT_TITLE	character(len=H_MID)	'SCALE-RM 2D Boundary'	title of the output file
CNV2D_OUT_VARNAME	character(len=H_SHORT)	''	name of the variable
CNV2D_OUT_VARDESC	character(len=H_MID)	''	title of the variable
CNV2D_OUT_VARUNIT	character(len=H_SHORT)	''	units of the variable
CNV2D_OUT_DTYPE	character(len=H_SHORT)	'DEFAULT'	REAL4 or REAL8

PARAM_CNV2D_GrADS

name	type	default value	comment
GRADS_NLAT	integer	-1	number of latitude tile
GRADS_NLON	integer	-1	number of longitude tile
GRADS_DLAT	real(RP)	-1.0_RP	width of latitude tile [deg.]
GRADS_DLON	real(RP)	-1.0_RP	width of longitude tile [deg.]
GRADS_IN_CATALOGUE	character(len=H_LONG)	''	catalogue file
GRADS_IN_DIR	character(len=H_LONG)	'.'	directory contains data files (GrADS format)
GRADS_IN_FILENAME	character(len=H_LONG)	''	single data file (GrADS format)
GRADS_IN_DATATYPE	character(len=H_LONG)	'REAL4'	datatype (REAL4,REAL8,INT2)
GRADS_LATORDER_N2S	logical	.false.	data of the latitude direction is stored in ordar of North->South?
GRADS_MISSINGVAL	real(RP)		missing value
GRADS_LAT_START	real(RP)	-90.0_RP	(for single file) start latitude of domain in input data
GRADS_LAT_END	real(RP)	90.0_RP	(for single file) end latitude of domain in input data
GRADS_LON_START	real(RP)	0.0_RP	(for single file) start longitude of domain in input data
GRADS_LON_END	real(RP)	360.0_RP	(for single file) end longitude of domain in input data
GRADS_NSTEP	integer	1	number of steps
GRADS_DT	real(DP)	0.0_DP	time interval
GRADS_DT_UNIT	character(len=H_SHORT)	"SEC"	time unit for GrADS_DT

History Output: No history output

Function/Subroutine Documentation

◆ cnv2d_setup()

subroutine, public mod_cnv2d::cnv2d_setup ( )

Setup.

Definition at line 71 of file mod_cnv2d.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_dlat, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_dlon, cnv2d_donothing, cnv2d_usegrads, scale_const::const_d2r, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, and scale_prc::prc_abort().

Referenced by mod_convert::convert_setup().

     use scale_prc, only: &
        prc_abort
     use scale_const, only: &
        d2r  => const_d2r
     use scale_statistics, only: &
        statistics_horizontal_min
     use scale_atmos_grid_cartesc_real, only: &
        real_dlat => atmos_grid_cartesc_real_dlat, &
        real_dlon => atmos_grid_cartesc_real_dlon
     implicit none
 
     namelist / param_cnv2d / &
        cnv2d_usegrads,            &
        cnv2d_interpolation_type,  &
        cnv2d_unittile_ddeg,       &
        cnv2d_oversampling_factor, &
        cnv2d_out_basename,        &
        cnv2d_out_title,           &
        cnv2d_out_varname,         &
        cnv2d_out_vardesc,         &
        cnv2d_out_varunit,         &
        cnv2d_out_dtype
 
     real(RP) :: drad(ia,ja)
     real(RP) :: drad_min
 
     integer  :: ierr
     !---------------------------------------------------------------------------
 
     log_newline
     log_info("CNV2D_setup",*) 'Setup'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_cnv2d,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        log_info("CNV2D_setup",*) 'Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        log_error("CNV2D_setup",*) 'Not appropriate names in namelist PARAM_CNV2D. Check!'
        call prc_abort
     endif
     log_nml(param_cnv2d)
 
     cnv2d_donothing = .true.
 
     if ( cnv2d_usegrads ) then
        cnv2d_donothing = .false.
        log_info("CNV2D_setup",*) 'Use GrADS format file for input'
     endif
 
     if    ( cnv2d_interpolation_type == 'bilinear'        ) then
        log_info("CNV2D_setup",*) 'Interpolation type : bi-linear interpolation (coarse input->fine model grid)'
     elseif( cnv2d_interpolation_type == 'areaweighted'    ) then
        log_info("CNV2D_setup",*) 'Interpolation type : area-weighted average   (fine input->coarse model grid)'
     elseif( cnv2d_interpolation_type == 'nearestneighbor' ) then
        log_info("CNV2D_setup",*) 'Interpolation type : nearest neighbor'
     else
        log_error("CNV2D_setup",*) 'Not appropriate interpolation type. Check!', trim(cnv2d_interpolation_type)
        call prc_abort
     endif
 
     if ( cnv2d_donothing ) then
        log_info("CNV2D_setup",*) 'Do nothing for 2D data conversion'
     else
        drad(:,:) = min( real_dlat(:,:), real_dlon(:,:) )
        call statistics_horizontal_min( ia, is, ie, ja, js, je, &
                                        drad(:,:), drad_min )
 
        if ( cnv2d_unittile_ddeg > 0.0_rp ) then
           cnv2d_oversampling_factor = ( drad_min / d2r ) / cnv2d_unittile_ddeg
        endif
        cnv2d_oversampling_factor = max( 1.0_rp, cnv2d_oversampling_factor )
        cnv2d_unittile_ddeg       = ( drad_min / d2r ) / cnv2d_oversampling_factor
 
        log_info("CNV2D_setup",*) 'The size of tile [deg] = ', cnv2d_unittile_ddeg
        log_info("CNV2D_setup",*) 'oversampling factor    = ', cnv2d_oversampling_factor
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ cnv2d()

subroutine, public mod_cnv2d::cnv2d ( )

Driver.

Definition at line 155 of file mod_cnv2d.F90.

Referenced by mod_convert::convert().

     implicit none
     !---------------------------------------------------------------------------
 
     if ( cnv2d_donothing ) then
        log_newline
        log_progress(*) 'skip  convert topography data'
     else
        log_newline
        log_progress(*) 'start convert topography data'
 
        if ( cnv2d_usegrads ) then
           call cnv2d_grads
        endif
 
        log_progress(*) 'end   convert topography data'
     endif
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ cnv2d_fillhalo()

subroutine mod_cnv2d::cnv2d_fillhalo	(	real(rp), dimension(ia,ja), intent(inout)	VAR,
		logical, intent(in), optional	FILL_BND
	)

HALO Communication.

Definition at line 1199 of file mod_cnv2d.F90.

References scale_time::time_nowdate.

     use scale_comm_cartesc, only: &
        comm_vars8, &
        comm_wait
     implicit none
 
     real(RP), intent(inout) :: var(ia,ja)
 
     logical,  intent(in), optional :: fill_bnd
 
     logical :: fill_bnd_
     !---------------------------------------------------------------------------
 
     fill_bnd_ = .false.
     if ( present(fill_bnd) ) fill_bnd_ = fill_bnd
 
     call comm_vars8( var(:,:), 1 )
     call comm_wait ( var(:,:), 1, fill_bnd_ )
 
     return

Variable Documentation

◆ cnv2d_donothing

logical, public mod_cnv2d::cnv2d_donothing

Definition at line 35 of file mod_cnv2d.F90.

Referenced by cnv2d(), and cnv2d_setup().

35 logical, public :: cnv2d_donothing

◆ cnv2d_usegrads

logical, public mod_cnv2d::cnv2d_usegrads = .true.

Definition at line 36 of file mod_cnv2d.F90.