d8/d04/mod__atmos__phy__tb__vars_8f90_source.html

 !-------------------------------------------------------------------------------
 !-------------------------------------------------------------------------------
 #include "inc_openmp.h"
 module mod_atmos_phy_tb_vars
   !-----------------------------------------------------------------------------
   !
   !++ used modules
   !
   use scale_precision
   use scale_stdio
   use scale_prof
   use scale_grid_index
   use scale_tracer
   !-----------------------------------------------------------------------------
   implicit none
   private
   !-----------------------------------------------------------------------------
   !
   !++ Public procedure
   !
   public :: atmos_phy_tb_vars_setup
   public :: atmos_phy_tb_vars_fillhalo
   public :: atmos_phy_tb_vars_restart_read
   public :: atmos_phy_tb_vars_restart_write

   public :: atmos_phy_tb_vars_restart_create
   public :: atmos_phy_tb_vars_restart_open
   public :: atmos_phy_tb_vars_restart_def_var
   public :: atmos_phy_tb_vars_restart_enddef
   public :: atmos_phy_tb_vars_restart_close

   !-----------------------------------------------------------------------------
   !
   !++ Public parameters & variables
   !
   logical,               public :: atmos_phy_tb_restart_output                = .false.

   character(len=H_LONG),  public :: atmos_phy_tb_restart_in_basename           = ''
   logical,                public :: atmos_phy_tb_restart_in_postfix_timelabel  = .false.
   character(len=H_LONG),  public :: atmos_phy_tb_restart_out_basename          = ''
   logical,                public :: atmos_phy_tb_restart_out_postfix_timelabel = .true.
   character(len=H_MID),   public :: atmos_phy_tb_restart_out_title             = 'ATMOS_PHY_TB restart'
   character(len=H_SHORT), public :: atmos_phy_tb_restart_out_dtype             = 'DEFAULT'

   real(RP), public, allocatable :: atmos_phy_tb_momz_t(:,:,:)   ! tendency MOMZ [kg/m2/s2]
   real(RP), public, allocatable :: atmos_phy_tb_momx_t(:,:,:)   ! tendency MOMX [kg/m2/s2]
   real(RP), public, allocatable :: atmos_phy_tb_momy_t(:,:,:)   ! tendency MOMY [kg/m2/s2]
   real(RP), public, allocatable :: atmos_phy_tb_rhot_t(:,:,:)   ! tendency RHOT [K*kg/m3/s]
   real(RP), public, allocatable :: atmos_phy_tb_rhoq_t(:,:,:,:) ! tendency rho*QTRC [kg/kg/s]

   !-----------------------------------------------------------------------------
   !
   !++ Private procedure
   !
   !-----------------------------------------------------------------------------
   !
   !++ Private parameters & variables
   !
 !  integer,                private, parameter :: VMAX = 0       !< number of the variables
 !  character(len=H_SHORT), private            :: VAR_NAME(VMAX) !< name  of the variables
 !  character(len=H_MID),   private            :: VAR_DESC(VMAX) !< desc. of the variables
 !  character(len=H_SHORT), private            :: VAR_UNIT(VMAX) !< unit  of the variables
 !  integer,                private            :: VAR_ID(VMAX)   !< ID    of the variables
 !  integer,                private            :: restart_fid = -1  ! file ID

   !-----------------------------------------------------------------------------
 contains
   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_setup
     use scale_process, only: &
        prc_mpistop
     use scale_const, only: &
        undef => const_undef
     implicit none

     namelist / param_atmos_phy_tb_vars / &
        atmos_phy_tb_restart_in_basename,           &
        atmos_phy_tb_restart_in_postfix_timelabel,  &
        atmos_phy_tb_restart_output,                &
        atmos_phy_tb_restart_out_basename,          &
        atmos_phy_tb_restart_out_postfix_timelabel, &
        atmos_phy_tb_restart_out_title,             &
        atmos_phy_tb_restart_out_dtype

     integer :: ierr
     integer :: iv
     !---------------------------------------------------------------------------

     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[VARS] / Categ[ATMOS PHY_TB] / Origin[SCALE-RM]'

     allocate( atmos_phy_tb_momz_t(ka,ia,ja)    )
     allocate( atmos_phy_tb_momx_t(ka,ia,ja)    )
     allocate( atmos_phy_tb_momy_t(ka,ia,ja)    )
     allocate( atmos_phy_tb_rhot_t(ka,ia,ja)    )
     allocate( atmos_phy_tb_rhoq_t(ka,ia,ja,qa) )
     atmos_phy_tb_momz_t(:,:,:)   = undef
     atmos_phy_tb_momx_t(:,:,:)   = undef
     atmos_phy_tb_momy_t(:,:,:)   = undef
     atmos_phy_tb_rhot_t(:,:,:)   = undef
     atmos_phy_tb_rhoq_t(:,:,:,:) = undef

     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_atmos_phy_tb_vars,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        write(*,*) 'xxx Not appropriate names in namelist PARAM_ATMOS_PHY_TB_VARS. Check!'
        call prc_mpistop
     endif
     if( io_nml ) write(io_fid_nml,nml=param_atmos_phy_tb_vars)

 !    if( IO_L ) write(IO_FID_LOG,*)
 !    if( IO_L ) write(IO_FID_LOG,*) '*** [ATMOS_PHY_TB] prognostic/diagnostic variables'
 !    if( IO_L ) write(IO_FID_LOG,'(1x,A,A24,A,A48,A,A12,A)') &
 !               '***       |', 'VARNAME                 ','|', &
 !               'DESCRIPTION                                     ', '[', 'UNIT        ', ']'
 !    do iv = 1, VMAX
 !       if( IO_L ) write(IO_FID_LOG,'(1x,A,I3,A,A24,A,A48,A,A12,A)') &
 !                  '*** NO.',iv,'|',VAR_NAME(iv),'|',VAR_DESC(iv),'[',VAR_UNIT(iv),']'
 !    enddo

 !    if( IO_L ) write(IO_FID_LOG,*)
 !    if ( ATMOS_PHY_TB_RESTART_IN_BASENAME /= '' ) then
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Restart input?  : YES, file = ', trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Add timelabel?  : ', ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL
 !    else
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Restart input?  : NO'
 !    endif
 !    if (       ATMOS_PHY_TB_RESTART_OUTPUT             &
 !         .AND. ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Restart output? : YES, file = ', trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Add timelabel?  : ', ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL
 !    else
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Restart output? : NO'
 !       ATMOS_PHY_TB_RESTART_OUTPUT = .false.
 !    endif

     return
   end subroutine atmos_phy_tb_vars_setup

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_fillhalo
     use scale_comm, only: &
        comm_vars8, &
        comm_wait
     implicit none
     !---------------------------------------------------------------------------

 !    do j  = 1, JA
 !    do i  = 1, IA
 !       ATMOS_PHY_TB_??(   1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
 !       ATMOS_PHY_TB_??(KE+1:KA,  i,j) = ATMOS_PHY_TB_??(KE,i,j)
 !    enddo
 !    enddo

 !    call COMM_vars8( ATMOS_PHY_TB_??(:,:,:), 1 )
 !    call COMM_wait ( ATMOS_PHY_TB_??(:,:,:), 1 )

     return
   end subroutine atmos_phy_tb_vars_fillhalo

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_open
     use scale_time, only: &
        time_gettimelabel
     use scale_fileio, only: &
        fileio_open
     implicit none

     character(len=19)     :: timelabel
     character(len=H_LONG) :: basename
     !---------------------------------------------------------------------------

 !    if( IO_L ) write(IO_FID_LOG,*)
 !    if( IO_L ) write(IO_FID_LOG,*) '*** Open restart file (ATMOS_PHY_TB) ***'

 !    if ( ATMOS_PHY_TB_RESTART_IN_BASENAME /= '' ) then

 !       if ( ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL ) then
 !          call TIME_gettimelabel( timelabel )
 !          basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)//'_'//trim(timelabel)
 !       else
 !          basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
 !       endif

 !       if( IO_L ) write(IO_FID_LOG,*) '*** basename: ', trim(basename)

 !       call FILEIO_open( restart_fid, basename )
 !    else
 !       if( IO_L ) write(IO_FID_LOG,*) '*** restart file for ATMOS_PHY_TB is not specified.'
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_open

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_read
     use scale_rm_statistics, only: &
        statistics_checktotal, &
        stat_total
     use scale_fileio, only: &
        fileio_read, &
        fileio_flush
     implicit none

     real(RP) :: total
     integer  :: i, j
     !---------------------------------------------------------------------------

 !    if ( restart_fid /= -1 ) then
 !       if( IO_L ) write(IO_FID_LOG,*)
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Read from restart file (ATMOS_PHY_TB) ***'
 !
 !       call FILEIO_read( ATMOS_PHY_TB_??(:,:,:),                & ! [OUT]
 !                         restart_fid, VAR_NAME(1), 'ZXY', step=1 ) ! [IN]
 !
 !       if ( IO_AGGREGATE ) then
 !          call FILEIO_flush( restart_fid ) ! X/Y halos have been read from file
 !
 !          ! fill k halos
 !          do j  = 1, JA
 !          do i  = 1, IA
 !             ATMOS_PHY_TB_??(   1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
 !             ATMOS_PHY_TB_??(KE+1:KA,  i,j) = ATMOS_PHY_TB_??(KE,i,j)
 !          enddo
 !          enddo
 !       else
 !          call ATMOS_PHY_TB_vars_fillhalo
 !       end if
 !
 !       if ( STATISTICS_checktotal ) then
 !          call STAT_total( total, ATMOS_PHY_TB_??(:,:,:), VAR_NAME(1) )
 !       endif
 !    else
 !       if( IO_L ) write(IO_FID_LOG,*) '*** invalid restart file ID for ATMOS_PHY_TB.'
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_read

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_create
     use scale_time, only: &
        time_gettimelabel
     use scale_fileio, only: &
        fileio_create
     implicit none

     character(len=19)     :: timelabel
     character(len=H_LONG) :: basename
     !---------------------------------------------------------------------------

 !    if ( ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
 !
 !       if( IO_L ) write(IO_FID_LOG,*)
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Create restart file (ATMOS_PHY_AE) ***'
 !
 !       if ( ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL ) then
 !          call TIME_gettimelabel( timelabel )
 !          basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)//'_'//trim(timelabel)
 !       else
 !          basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
 !       endif
 !
 !       if( IO_L ) write(IO_FID_LOG,*) '*** basename: ', trim(basename)
 !
 !       call FILEIO_create( restart_fid,                                                             & ! [OUT]
 !                           basename, ATMOS_PHY_TB_RESTART_OUT_TITLE, ATMOS_PHY_TB_RESTART_OUT_DTYPE ) ! [IN]
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_create

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_enddef
     use scale_fileio, only: &
        fileio_enddef
     implicit none

 !    if ( restart_fid /= -1 ) then
 !       call FILEIO_enddef( restart_fid ) ! [IN]
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_enddef

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_close
     use scale_fileio, only: &
        fileio_close
     implicit none
     !---------------------------------------------------------------------------

 !    if ( restart_fid /= -1 ) then
 !       if( IO_L ) write(IO_FID_LOG,*)
 !       if( IO_L ) write(IO_FID_LOG,*) '*** Close restart file (ATMOS_PHY_TB) ***'
 !
 !       call FILEIO_close( restart_fid ) ! [IN]
 !
 !       restart_fid = -1
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_close

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_def_var
     use scale_fileio, only: &
        fileio_def_var
     implicit none
     !---------------------------------------------------------------------------

 !    if ( restart_fid /= -1 ) then

 !       call FILEIO_def_var( restart_fid, VAR_ID(1), VAR_NAME(1), VAR_DESC(1), &
 !                            VAR_UNIT(1), 'ZXY', ATMOS_PHY_TB_RESTART_OUT_DTYPE  ) ! [IN]

 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_def_var

   !-----------------------------------------------------------------------------
   subroutine atmos_phy_tb_vars_restart_write
     use scale_rm_statistics, only: &
        statistics_checktotal, &
        stat_total
     use scale_fileio, only: &
        fileio_write_var
     implicit none

     real(RP) :: total
     !---------------------------------------------------------------------------

 !    if ( restart_fid /= -1 ) then
 !
 !       call ATMOS_PHY_TB_vars_fillhalo
 !
 !       if ( STATISTICS_checktotal ) then
 !          call STAT_total( total, ATMOS_PHY_TB_??(:,:,:), VAR_NAME(1) )
 !       endif
 !
 !       call FILEIO_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_TB_??(:,:,:), &
 !                              VAR_NAME(1), 'ZXY' ) ! [IN]
 !
 !    endif

     return
   end subroutine atmos_phy_tb_vars_restart_write

 end module mod_atmos_phy_tb_vars
scale_rm_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_rm_statistics.F90:46

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_enddef
subroutine, public atmos_phy_tb_vars_restart_enddef
Exit netCDF define mode.
Definition: mod_atmos_phy_tb_vars.f90:294

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_read
subroutine, public atmos_phy_tb_vars_restart_read
Read restart.
Definition: mod_atmos_phy_tb_vars.f90:214

mod_atmos_phy_tb_vars::atmos_phy_tb_momx_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momx_t
Definition: mod_atmos_phy_tb_vars.f90:56

scale_process::prc_mpistop
subroutine, public prc_mpistop
Abort MPI.
Definition: scale_process.F90:267

mod_atmos_phy_tb_vars::atmos_phy_tb_rhot_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_rhot_t
Definition: mod_atmos_phy_tb_vars.f90:58

scale_stdio::io_l
logical, public io_l
output log or not? (this process)
Definition: scale_stdio.F90:61

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_write
subroutine, public atmos_phy_tb_vars_restart_write
Write restart.
Definition: mod_atmos_phy_tb_vars.f90:346

scale_fileio::fileio_flush
subroutine, public fileio_flush(fid)
Flush all pending requests to a netCDF file (PnetCDF only)
Definition: scale_fileio.F90:1542

scale_stdio
module STDIO
Definition: scale_stdio.F90:12

scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:35

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_postfix_timelabel
logical, public atmos_phy_tb_restart_in_postfix_timelabel
Add timelabel to the basename of input file?
Definition: mod_atmos_phy_tb_vars.f90:49

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_title
character(len=h_mid), public atmos_phy_tb_restart_out_title
title of the output file
Definition: mod_atmos_phy_tb_vars.f90:52

scale_fileio
module FILE I/O (netcdf)
Definition: scale_fileio.F90:14

scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:43

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_create
subroutine, public atmos_phy_tb_vars_restart_create
Create restart file.
Definition: mod_atmos_phy_tb_vars.f90:260

scale_rm_statistics
module Statistics
Definition: scale_rm_statistics.F90:14

scale_grid_index
module grid index
Definition: scale_grid_index.F90:14

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_basename
character(len=h_long), public atmos_phy_tb_restart_in_basename
Basename of the input file.
Definition: mod_atmos_phy_tb_vars.f90:48

scale_stdio::io_nml
logical, public io_nml
output log or not? (for namelist, this process)
Definition: scale_stdio.F90:62

scale_tracer
module TRACER
Definition: scale_tracer.F90:15

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_postfix_timelabel
logical, public atmos_phy_tb_restart_out_postfix_timelabel
Add timelabel to the basename of output file?
Definition: mod_atmos_phy_tb_vars.f90:51

scale_grid_index::ia
integer, public ia
of whole cells: x, local, with HALO
Definition: scale_grid_index.F90:55

scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:90

scale_grid_index::ka
integer, public ka
of whole cells: z, local, with HALO
Definition: scale_grid_index.F90:54

scale_fileio::fileio_create
subroutine, public fileio_create(fid, basename, title, datatype, date, subsec, append, nozcoord)
Create/open a netCDF file.
Definition: scale_fileio.F90:1374

scale_comm
module COMMUNICATION
Definition: scale_comm.F90:23

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup
subroutine, public atmos_phy_tb_vars_setup
Setup.
Definition: mod_atmos_phy_tb_vars.f90:81

scale_time
module TIME
Definition: scale_time.F90:15

scale_process
module PROCESS
Definition: scale_process.F90:14

mod_atmos_phy_tb_vars
module Atmosphere / Physics Turbulence
Definition: mod_atmos_phy_tb_vars.f90:14

scale_const
module CONSTANT
Definition: scale_const.F90:14

mod_atmos_phy_tb_vars::atmos_phy_tb_momy_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momy_t
Definition: mod_atmos_phy_tb_vars.f90:57

scale_fileio::fileio_enddef
subroutine, public fileio_enddef(fid)
Exit netCDF file define mode.
Definition: scale_fileio.F90:1508

scale_prof
module profiler
Definition: scale_prof.F90:10

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_basename
character(len=h_long), public atmos_phy_tb_restart_out_basename
Basename of the output file.
Definition: mod_atmos_phy_tb_vars.f90:50

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_output
logical, public atmos_phy_tb_restart_output
output restart file?
Definition: mod_atmos_phy_tb_vars.f90:46

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_def_var
subroutine, public atmos_phy_tb_vars_restart_def_var
Write restart.
Definition: mod_atmos_phy_tb_vars.f90:328

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_fillhalo
subroutine, public atmos_phy_tb_vars_fillhalo
HALO Communication.
Definition: mod_atmos_phy_tb_vars.f90:157

scale_fileio::fileio_open
subroutine, public fileio_open(fid, basename)
open a netCDF file for read
Definition: scale_fileio.F90:1326

scale_precision
module PRECISION
Definition: scale_precision.F90:13

scale_fileio::fileio_def_var
subroutine, public fileio_def_var(fid, vid, varname, desc, unit, axistype, datatype, timeintv, nsteps)
Define a variable to file.
Definition: scale_fileio.F90:2025

mod_atmos_phy_tb_vars::atmos_phy_tb_rhoq_t
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_tb_rhoq_t
Definition: mod_atmos_phy_tb_vars.f90:59

scale_fileio::fileio_close
subroutine, public fileio_close(fid)
Close a netCDF file.
Definition: scale_fileio.F90:1564

scale_stdio::io_fid_conf
integer, public io_fid_conf
Config file ID.
Definition: scale_stdio.F90:55

scale_stdio::io_fid_log
integer, public io_fid_log
Log file ID.
Definition: scale_stdio.F90:56

mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_dtype
character(len=h_short), public atmos_phy_tb_restart_out_dtype
REAL4 or REAL8.
Definition: mod_atmos_phy_tb_vars.f90:53

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_open
subroutine, public atmos_phy_tb_vars_restart_open
Open restart file for read.
Definition: mod_atmos_phy_tb_vars.f90:179

scale_stdio::io_fid_nml
integer, public io_fid_nml
Log file ID (only for output namelist)
Definition: scale_stdio.F90:57

mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_close
subroutine, public atmos_phy_tb_vars_restart_close
Close restart file.
Definition: mod_atmos_phy_tb_vars.f90:308

mod_atmos_phy_tb_vars::atmos_phy_tb_momz_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momz_t
Definition: mod_atmos_phy_tb_vars.f90:55

scale_grid_index::ja
integer, public ja
of whole cells: y, local, with HALO
Definition: scale_grid_index.F90:56