SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_ch_vars Module Reference

module Atmosphere / Physics Chemistry More...

Functions/Subroutines

subroutine, public atmos_phy_ch_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_ch_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_ch_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_ch_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_ch_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_ch_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_ch_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_ch_vars_restart_def_var
 Write restart. More...
 
subroutine, public atmos_phy_ch_vars_restart_write
 Write restart. More...
 

Variables

logical, public atmos_phy_ch_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_ch_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_ch_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_ch_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_ch_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_ch_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_ch_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_ch_restart_out_title = 'ATMOS_PHY_CH restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_ch_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ch_rhoq_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ch_o3
 
integer, public qa_ch = 0
 
integer, public qs_ch = -1
 
integer, public qe_ch = -2
 

Detailed Description

module Atmosphere / Physics Chemistry

Description
Container for mod_atmos_phy_ch
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_CH_VARS
    nametypedefault valuecomment
    ATMOS_PHY_CH_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_CH_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_CH_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_CH_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_CH_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_CH_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_CH_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_CH_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_CH restart' title of the output file
    ATMOS_PHY_CH_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8

History Output
No history output

Function/Subroutine Documentation

◆ atmos_phy_ch_vars_setup()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_setup ( )

Setup.

Definition at line 89 of file mod_atmos_phy_ch_vars.F90.

References atmos_phy_ch_o3, atmos_phy_ch_restart_in_aggregate, atmos_phy_ch_restart_in_basename, atmos_phy_ch_restart_in_postfix_timelabel, atmos_phy_ch_restart_out_aggregate, atmos_phy_ch_restart_out_basename, atmos_phy_ch_restart_out_dtype, atmos_phy_ch_restart_out_postfix_timelabel, atmos_phy_ch_restart_out_title, atmos_phy_ch_restart_output, atmos_phy_ch_rhoq_t, scale_const::const_undef, scale_atmos_grid_cartesc_index::ia, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::ka, scale_prc::prc_abort(), qe_ch, and qs_ch.

Referenced by mod_atmos_vars::atmos_vars_setup().

89  use scale_prc, only: &
90  prc_abort
91  use scale_const, only: &
92  undef => const_undef
93  implicit none
94 
95  namelist / param_atmos_phy_ch_vars / &
96  atmos_phy_ch_restart_in_basename, &
97  atmos_phy_ch_restart_in_aggregate, &
98  atmos_phy_ch_restart_in_postfix_timelabel, &
99  atmos_phy_ch_restart_output, &
100  atmos_phy_ch_restart_out_basename, &
101  atmos_phy_ch_restart_out_aggregate, &
102  atmos_phy_ch_restart_out_postfix_timelabel, &
103  atmos_phy_ch_restart_out_title, &
104  atmos_phy_ch_restart_out_dtype
105 
106  integer :: ierr
107  integer :: iv
108  !---------------------------------------------------------------------------
109 
110  log_newline
111  log_info("ATMOS_PHY_CH_vars_setup",*) 'Setup'
112 
113  allocate( atmos_phy_ch_rhoq_t(ka,ia,ja,qs_ch:qe_ch) )
114  atmos_phy_ch_rhoq_t(:,:,:,:) = undef
115 
116  allocate( atmos_phy_ch_o3(ka,ia,ja) )
117  atmos_phy_ch_o3(:,:,:) = undef
118 
119  !--- read namelist
120  rewind(io_fid_conf)
121  read(io_fid_conf,nml=param_atmos_phy_ch_vars,iostat=ierr)
122  if( ierr < 0 ) then !--- missing
123  log_info("ATMOS_PHY_CH_vars_setup",*) 'Not found namelist. Default used.'
124  elseif( ierr > 0 ) then !--- fatal error
125  log_error("ATMOS_PHY_CH_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_CH_VARS. Check!'
126  call prc_abort
127  endif
128  log_nml(param_atmos_phy_ch_vars)
129 
130  log_newline
131  log_info("ATMOS_PHY_CH_vars_setup",*) '[ATMOS_PHY_CH] prognostic/diagnostic variables'
132  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
133  ' |', 'VARNAME ','|', &
134  'DESCRIPTION ', '[', 'UNIT ', ']'
135  do iv = 1, vmax
136  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
137  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
138  enddo
139 
140  log_newline
141  if ( atmos_phy_ch_restart_in_basename /= '' ) then
142  log_info("ATMOS_PHY_CH_vars_setup",*) 'Restart input? : YES, file = ', trim(atmos_phy_ch_restart_in_basename)
143  log_info("ATMOS_PHY_CH_vars_setup",*) 'Add timelabel? : ', atmos_phy_ch_restart_in_postfix_timelabel
144  else
145  log_info("ATMOS_PHY_CH_vars_setup",*) 'Restart input? : NO'
146  endif
147  if ( atmos_phy_ch_restart_output &
148  .AND. atmos_phy_ch_restart_out_basename /= '' ) then
149  log_info("ATMOS_PHY_CH_vars_setup",*) 'Restart output? : YES, file = ', trim(atmos_phy_ch_restart_out_basename)
150  log_info("ATMOS_PHY_CH_vars_setup",*) 'Add timelabel? : ', atmos_phy_ch_restart_out_postfix_timelabel
151  else
152  log_info("ATMOS_PHY_CH_vars_setup",*) 'Restart output? : NO'
153  atmos_phy_ch_restart_output = .false.
154  endif
155 
156  return
mod_atmos_phy_ch_vars::qs_ch
integer, public qs_ch
Definition: mod_atmos_phy_ch_vars.F90:60
scale_io::io_fid_conf
integer, public io_fid_conf
Config file ID.
Definition: scale_io.F90:55
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
scale_prc
module PROCESS
Definition: scale_prc.F90:11
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:338
scale_const
module CONSTANT
Definition: scale_const.F90:11
mod_atmos_phy_ch_vars::qe_ch
integer, public qe_ch
Definition: mod_atmos_phy_ch_vars.F90:61
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_fillhalo()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_fillhalo ( )

HALO Communication.

Definition at line 162 of file mod_atmos_phy_ch_vars.F90.

References atmos_phy_ch_o3, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, and scale_atmos_grid_cartesc_index::ks.

Referenced by atmos_phy_ch_vars_restart_read(), and atmos_phy_ch_vars_restart_write().

162  use scale_comm_cartesc, only: &
163  comm_vars8, &
164  comm_wait
165  implicit none
166 
167  integer :: i, j
168  !---------------------------------------------------------------------------
169 
170  do j = js, je
171  do i = is, ie
172  atmos_phy_ch_o3( 1:ks-1,i,j) = atmos_phy_ch_o3(ks,i,j)
173  atmos_phy_ch_o3(ke+1:ka, i,j) = atmos_phy_ch_o3(ke,i,j)
174  enddo
175  enddo
176 
177  call comm_vars8( atmos_phy_ch_o3(:,:,:), 1 )
178  call comm_wait ( atmos_phy_ch_o3(:,:,:), 1 )
179 
180  return
scale_comm_cartesc
module COMMUNICATION
Definition: scale_comm_cartesC.F90:11
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_open()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_open ( )

Open restart file for read.

Definition at line 186 of file mod_atmos_phy_ch_vars.F90.

References atmos_phy_ch_restart_in_aggregate, atmos_phy_ch_restart_in_basename, atmos_phy_ch_restart_in_postfix_timelabel, scale_file_cartesc::file_cartesc_open(), and scale_time::time_gettimelabel().

Referenced by mod_atmos_vars::atmos_vars_restart_open().

186  use scale_time, only: &
187  time_gettimelabel
188  use scale_file_cartesc, only: &
189  file_cartesc_open
190  implicit none
191 
192  character(len=19) :: timelabel
193  character(len=H_LONG) :: basename
194  !---------------------------------------------------------------------------
195 
196  log_newline
197  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'Open restart file (ATMOS_PHY_CH) '
198 
199  if ( atmos_phy_ch_restart_in_basename /= '' ) then
200 
201  if ( atmos_phy_ch_restart_in_postfix_timelabel ) then
202  call time_gettimelabel( timelabel )
203  basename = trim(atmos_phy_ch_restart_in_basename)//'_'//trim(timelabel)
204  else
205  basename = trim(atmos_phy_ch_restart_in_basename)
206  endif
207 
208  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'basename: ', trim(basename)
209 
210  call file_cartesc_open( basename, restart_fid, aggregate=atmos_phy_ch_restart_in_aggregate )
211  else
212  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'restart file for ATMOS_PHY_CH is not specified.'
213  endif
214 
215  return
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:94
scale_time
module TIME
Definition: scale_time.F90:16
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_file_cartesc::file_cartesc_open
subroutine, public file_cartesc_open(basename, fid, aggregate)
open a netCDF file for read
Definition: scale_file_cartesC.F90:750
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_read()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_read ( )

Read restart.

Definition at line 221 of file mod_atmos_phy_ch_vars.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, atmos_phy_ch_o3, atmos_phy_ch_vars_fillhalo(), scale_file_cartesc::file_cartesc_flush(), scale_file::file_get_aggregate(), scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, and scale_statistics::statistics_checktotal.

Referenced by mod_atmos_vars::atmos_vars_restart_read().

221  use scale_statistics, only: &
222  statistics_checktotal, &
223  statistics_total
224  use scale_file, only: &
225  file_get_aggregate
226  use scale_file_cartesc, only: &
227  file_cartesc_read, &
228  file_cartesc_flush
229  use scale_atmos_grid_cartesc_real, only: &
230  atmos_grid_cartesc_real_vol, &
231  atmos_grid_cartesc_real_totvol
232  implicit none
233 
234  integer :: i, j
235  !---------------------------------------------------------------------------
236 
237  if ( restart_fid /= -1 ) then
238  log_newline
239  log_info("ATMOS_PHY_CH_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_CH) '
240 
241  call file_cartesc_read( restart_fid, var_name(1), 'ZXY', & ! [IN]
242  atmos_phy_ch_o3(:,:,:) ) ! [OUT]
243 
244  if ( file_get_aggregate( restart_fid) ) then
245  call file_cartesc_flush( restart_fid ) ! X/Y halos have been read from file
246 
247  ! fill K halos
248  do j = 1, ja
249  do i = 1, ia
250  atmos_phy_ch_o3( 1:ks-1,i,j) = atmos_phy_ch_o3(ks,i,j)
251  atmos_phy_ch_o3(ke+1:ka, i,j) = atmos_phy_ch_o3(ke,i,j)
252  enddo
253  enddo
254  else
255  call atmos_phy_ch_vars_fillhalo
256  end if
257 
258  if ( statistics_checktotal ) then
259  call statistics_total( ka, ks, ke, ia, is, ie, ja, js, je, &
260  atmos_phy_ch_o3(:,:,:), var_name(1), & ! (in)
261  atmos_grid_cartesc_real_vol(:,:,:), & ! (in)
262  atmos_grid_cartesc_real_totvol ) ! (in)
263  end if
264  else
265  log_info("ATMOS_PHY_CH_vars_restart_read",*) 'invalid restart file for ATMOS_PHY_CH.'
266  endif
267 
268  return
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol
real(rp), dimension(:,:,:), allocatable, public atmos_grid_cartesc_real_vol
control volume (zxy) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:80
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol
real(rp), public atmos_grid_cartesc_real_totvol
total volume (zxy, local) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:84
scale_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_statistics.F90:64
scale_file
module file
Definition: scale_file.F90:15
scale_file::file_get_aggregate
logical function, public file_get_aggregate(fid)
Definition: scale_file.F90:4616
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_statistics
module Statistics
Definition: scale_statistics.F90:11
scale_file_cartesc::file_cartesc_flush
subroutine, public file_cartesc_flush(fid)
Flush all pending requests to a netCDF file (PnetCDF only)
Definition: scale_file_cartesC.F90:999
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_create()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_create ( )

Create restart file.

Definition at line 274 of file mod_atmos_phy_ch_vars.F90.

References atmos_phy_ch_restart_out_aggregate, atmos_phy_ch_restart_out_basename, atmos_phy_ch_restart_out_dtype, atmos_phy_ch_restart_out_postfix_timelabel, atmos_phy_ch_restart_out_title, scale_file_cartesc::file_cartesc_create(), and scale_time::time_gettimelabel().

Referenced by mod_atmos_vars::atmos_vars_restart_create().

274  use scale_time, only: &
275  time_gettimelabel
276  use scale_file_cartesc, only: &
277  file_cartesc_create
278  implicit none
279 
280  character(len=19) :: timelabel
281  character(len=H_LONG) :: basename
282  !---------------------------------------------------------------------------
283 
284  if ( atmos_phy_ch_restart_out_basename /= '' ) then
285 
286  log_newline
287  log_info("ATMOS_PHY_CH_vars_restart_create",*) 'Create restart file (ATMOS_PHY_CH) '
288 
289  if ( atmos_phy_ch_restart_out_postfix_timelabel ) then
290  call time_gettimelabel( timelabel )
291  basename = trim(atmos_phy_ch_restart_out_basename)//'_'//trim(timelabel)
292  else
293  basename = trim(atmos_phy_ch_restart_out_basename)
294  endif
295 
296  log_info("ATMOS_PHY_CH_vars_restart_create",*) 'basename: ', trim(basename)
297 
298  call file_cartesc_create( &
299  basename, atmos_phy_ch_restart_out_title, atmos_phy_ch_restart_out_dtype, & ! [IN]
300  restart_fid, & ! [OUT]
301  aggregate=atmos_phy_ch_restart_out_aggregate ) ! [IN]
302 
303  endif
304 
305  return
scale_file_cartesc::file_cartesc_create
subroutine, public file_cartesc_create(basename, title, datatype, fid, date, subsec, haszcoord, append, aggregate, single)
Create/open a netCDF file.
Definition: scale_file_cartesC.F90:784
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:94
scale_time
module TIME
Definition: scale_time.F90:16
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_enddef()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_enddef ( )

Exit netCDF define mode.

Definition at line 311 of file mod_atmos_phy_ch_vars.F90.

References scale_file_cartesc::file_cartesc_enddef().

Referenced by mod_atmos_vars::atmos_vars_restart_enddef().

311  use scale_file_cartesc, only: &
312  file_cartesc_enddef
313  implicit none
314 
315  if ( restart_fid /= -1 ) then
316  call file_cartesc_enddef( restart_fid ) ! [IN]
317  endif
318 
319  return
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:946
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_close()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_close ( )

Close restart file.

Definition at line 325 of file mod_atmos_phy_ch_vars.F90.

References scale_file_cartesc::file_cartesc_close().

Referenced by mod_atmos_vars::atmos_vars_restart_close().

325  use scale_file_cartesc, only: &
326  file_cartesc_close
327  implicit none
328  !---------------------------------------------------------------------------
329 
330  if ( restart_fid /= -1 ) then
331  log_newline
332  log_info("ATMOS_PHY_CH_vars_restart_close",*) 'Close restart file (ATMOS_PHY_CH) '
333 
334  call file_cartesc_close( restart_fid ) ! [IN]
335 
336  restart_fid = -1
337  endif
338 
339  return
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1024
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_def_var()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_def_var ( )

Write restart.

Definition at line 345 of file mod_atmos_phy_ch_vars.F90.

References atmos_phy_ch_restart_out_dtype, and scale_file_cartesc::file_cartesc_def_var().

Referenced by mod_atmos_vars::atmos_vars_restart_def_var().

345  use scale_file_cartesc, only: &
346  file_cartesc_def_var
347  implicit none
348  !---------------------------------------------------------------------------
349 
350  if ( restart_fid /= -1 ) then
351  call file_cartesc_def_var( restart_fid, var_name(1), var_desc(1), var_unit(1), 'ZXY', atmos_phy_ch_restart_out_dtype, &
352  var_id(1) )
353  endif
354 
355  return
scale_file_cartesc::file_cartesc_def_var
subroutine, public file_cartesc_def_var(fid, varname, desc, unit, dim_type, datatype, vid, standard_name, timeintv, nsteps, cell_measures)
Define a variable to file.
Definition: scale_file_cartesC.F90:3118
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_restart_write()

subroutine, public mod_atmos_phy_ch_vars::atmos_phy_ch_vars_restart_write ( )

Write restart.

Definition at line 361 of file mod_atmos_phy_ch_vars.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, atmos_phy_ch_o3, atmos_phy_ch_vars_fillhalo(), scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, and scale_statistics::statistics_checktotal.

Referenced by mod_atmos_vars::atmos_vars_restart_write().

361  use scale_statistics, only: &
362  statistics_checktotal, &
363  statistics_total
364  use scale_file_cartesc, only: &
365  file_cartesc_write_var
366  use scale_atmos_grid_cartesc_real, only: &
367  atmos_grid_cartesc_real_vol, &
368  atmos_grid_cartesc_real_totvol
369  implicit none
370 
371  !---------------------------------------------------------------------------
372 
373  if ( restart_fid /= -1 ) then
374 
375  call atmos_phy_ch_vars_fillhalo
376 
377  if ( statistics_checktotal ) then
378  call statistics_total( ka, ks, ke, ia, is, ie, ja, js, je, &
379  atmos_phy_ch_o3(:,:,:), var_name(1), & ! (in)
380  atmos_grid_cartesc_real_vol(:,:,:), & ! (in)
381  atmos_grid_cartesc_real_totvol ) ! (in)
382  end if
383 
384  call file_cartesc_write_var( restart_fid, var_id(1), atmos_phy_ch_o3(:,:,:), var_name(1), 'ZXY' ) ! [IN]
385 
386  endif
387 
388  return
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol
real(rp), dimension(:,:,:), allocatable, public atmos_grid_cartesc_real_vol
control volume (zxy) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:80
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol
real(rp), public atmos_grid_cartesc_real_totvol
total volume (zxy, local) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:84
scale_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_statistics.F90:64
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_statistics
module Statistics
Definition: scale_statistics.F90:11
Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ atmos_phy_ch_restart_output

logical, public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_output = .false.

output restart file?

Definition at line 44 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), and atmos_phy_ch_vars_setup().

44  logical, public :: atmos_phy_ch_restart_output = .false.

◆ atmos_phy_ch_restart_in_basename

character(len=h_long), public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_in_basename = ''

Basename of the input file.

Definition at line 46 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_open(), and atmos_phy_ch_vars_setup().

46  character(len=H_LONG), public :: atmos_phy_ch_restart_in_basename = ''

◆ atmos_phy_ch_restart_in_aggregate

logical, public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_in_aggregate

Switch to use aggregate file.

Definition at line 47 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_open(), and atmos_phy_ch_vars_setup().

47  logical, public :: atmos_phy_ch_restart_in_aggregate

◆ atmos_phy_ch_restart_in_postfix_timelabel

logical, public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 48 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_open(), and atmos_phy_ch_vars_setup().

48  logical, public :: atmos_phy_ch_restart_in_postfix_timelabel = .false.

◆ atmos_phy_ch_restart_out_basename

character(len=h_long), public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_basename = ''

Basename of the output file.

Definition at line 49 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_create(), and atmos_phy_ch_vars_setup().

49  character(len=H_LONG), public :: atmos_phy_ch_restart_out_basename = ''

◆ atmos_phy_ch_restart_out_aggregate

logical, public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_aggregate

Switch to use aggregate file.

Definition at line 50 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_create(), and atmos_phy_ch_vars_setup().

50  logical, public :: atmos_phy_ch_restart_out_aggregate

◆ atmos_phy_ch_restart_out_postfix_timelabel

logical, public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 51 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_create(), and atmos_phy_ch_vars_setup().

51  logical, public :: atmos_phy_ch_restart_out_postfix_timelabel = .true.

◆ atmos_phy_ch_restart_out_title

character(len=h_mid), public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_title = 'ATMOS_PHY_CH restart'

title of the output file

Definition at line 52 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_create(), and atmos_phy_ch_vars_setup().

52  character(len=H_MID), public :: atmos_phy_ch_restart_out_title = 'ATMOS_PHY_CH restart'

◆ atmos_phy_ch_restart_out_dtype

character(len=h_short), public mod_atmos_phy_ch_vars::atmos_phy_ch_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 53 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ch_vars_restart_create(), atmos_phy_ch_vars_restart_def_var(), and atmos_phy_ch_vars_setup().

53  character(len=H_SHORT), public :: atmos_phy_ch_restart_out_dtype = 'DEFAULT'

◆ atmos_phy_ch_rhoq_t

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_ch_vars::atmos_phy_ch_rhoq_t

Definition at line 55 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_calc_tendency(), and atmos_phy_ch_vars_setup().

55  real(RP), public, allocatable :: atmos_phy_ch_rhoq_t(:,:,:,:) ! tendency QTRC [kg/kg/s]

◆ atmos_phy_ch_o3

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_ch_vars::atmos_phy_ch_o3

Definition at line 57 of file mod_atmos_phy_ch_vars.F90.

Referenced by atmos_phy_ch_vars_fillhalo(), atmos_phy_ch_vars_restart_read(), atmos_phy_ch_vars_restart_write(), and atmos_phy_ch_vars_setup().

57  real(RP), public, allocatable :: atmos_phy_ch_o3(:,:,:) ! ozone [PPM]

◆ qa_ch

integer, public mod_atmos_phy_ch_vars::qa_ch = 0

Definition at line 59 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_setup(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_calc_tendency(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_ocean_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_tracer_setup(), and mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux().

59  integer, public :: qa_ch = 0
mod_atmos_phy_ch_vars::qa_ch
integer, public qa_ch
Definition: mod_atmos_phy_ch_vars.F90:59

◆ qs_ch

integer, public mod_atmos_phy_ch_vars::qs_ch = -1

Definition at line 60 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_calc_tendency(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_ocean_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_tracer_setup(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), atmos_phy_ch_vars_setup(), and mod_realinput::realinput_surface().

60  integer, public :: qs_ch = -1
mod_atmos_phy_ch_vars::qs_ch
integer, public qs_ch
Definition: mod_atmos_phy_ch_vars.F90:60

◆ qe_ch

integer, public mod_atmos_phy_ch_vars::qe_ch = -2

Definition at line 61 of file mod_atmos_phy_ch_vars.F90.

Referenced by mod_atmos_phy_ch_driver::atmos_phy_ch_driver_calc_tendency(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_land_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_ocean_flux(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_tracer_setup(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), atmos_phy_ch_vars_setup(), and mod_realinput::realinput_surface().

61  integer, public :: qe_ch = -2
mod_atmos_phy_ch_vars::qe_ch
integer, public qe_ch
Definition: mod_atmos_phy_ch_vars.F90:61
Generated by   doxygen 1.8.13