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...
 
subroutine atmos_phy_ch_vars_check
 

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 90 of file mod_atmos_phy_ch_vars.F90.

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

References 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().

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 163 of file mod_atmos_phy_ch_vars.F90.

163  use scale_comm_cartesc, only: &
164  comm_vars8, &
165  comm_wait
166  implicit none
167 
168  integer :: i, j
169  !---------------------------------------------------------------------------
170 
171 !!$ do j = JS, JE
172 !!$ do i = IS, IE
173 !!$ ATMOS_PHY_CH_O3( 1:KS-1,i,j) = ATMOS_PHY_CH_O3(KS,i,j)
174 !!$ ATMOS_PHY_CH_O3(KE+1:KA, i,j) = ATMOS_PHY_CH_O3(KE,i,j)
175 !!$ enddo
176 !!$ enddo
177 !!$
178 !!$ call COMM_vars8( ATMOS_PHY_CH_O3(:,:,:), 1 )
179 !!$ call COMM_wait ( ATMOS_PHY_CH_O3(:,:,:), 1 )
180 
181  return

Referenced by atmos_phy_ch_vars_restart_write().

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 187 of file mod_atmos_phy_ch_vars.F90.

187  use scale_time, only: &
188  time_gettimelabel
189  use scale_file_cartesc, only: &
190  file_cartesc_open
191  implicit none
192 
193  character(len=19) :: timelabel
194  character(len=H_LONG) :: basename
195  !---------------------------------------------------------------------------
196 
197  log_newline
198  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'Open restart file (ATMOS_PHY_CH) '
199 
200  if ( atmos_phy_ch_restart_in_basename /= '' ) then
201 
202  if ( atmos_phy_ch_restart_in_postfix_timelabel ) then
203  call time_gettimelabel( timelabel )
204  basename = trim(atmos_phy_ch_restart_in_basename)//'_'//trim(timelabel)
205  else
206  basename = trim(atmos_phy_ch_restart_in_basename)
207  endif
208 
209  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'basename: ', trim(basename)
210 
211  call file_cartesc_open( basename, restart_fid, aggregate=atmos_phy_ch_restart_in_aggregate )
212  else
213  log_info("ATMOS_PHY_CH_vars_restart_open",*) 'restart file for ATMOS_PHY_CH is not specified.'
214  endif
215 
216  return

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().

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 222 of file mod_atmos_phy_ch_vars.F90.

222  use scale_file, only: &
223  file_get_aggregate
224  use scale_file_cartesc, only: &
225  file_cartesc_read, &
226  file_cartesc_flush
227  implicit none
228 
229  integer :: i, j
230  !---------------------------------------------------------------------------
231 
232  if ( restart_fid /= -1 ) then
233  log_newline
234  log_info("ATMOS_PHY_CH_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_CH) '
235 
236 !!$ call FILE_CARTESC_read( restart_fid, VAR_NAME(1), 'ZXY', & ! [IN]
237 !!$ ATMOS_PHY_CH_O3(:,:,:) ) ! [OUT]
238 !!$
239 !!$ if ( FILE_get_aggregate( restart_fid) ) then
240 !!$ call FILE_CARTESC_flush( restart_fid ) ! X/Y halos have been read from file
241 !!$
242 !!$ ! fill K halos
243 !!$ do j = 1, JA
244 !!$ do i = 1, IA
245 !!$ ATMOS_PHY_CH_O3( 1:KS-1,i,j) = ATMOS_PHY_CH_O3(KS,i,j)
246 !!$ ATMOS_PHY_CH_O3(KE+1:KA, i,j) = ATMOS_PHY_CH_O3(KE,i,j)
247 !!$ enddo
248 !!$ enddo
249 !!$ else
250 !!$ call ATMOS_PHY_CH_vars_fillhalo
251 !!$ end if
252 
253  call atmos_phy_ch_vars_check
254 
255  else
256  log_info("ATMOS_PHY_CH_vars_restart_read",*) 'invalid restart file for ATMOS_PHY_CH.'
257  endif
258 
259  return

References atmos_phy_ch_vars_check(), scale_file_cartesc::file_cartesc_flush(), and scale_file::file_get_aggregate().

Referenced by mod_atmos_vars::atmos_vars_restart_read().

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 265 of file mod_atmos_phy_ch_vars.F90.

265  use scale_time, only: &
266  time_gettimelabel
267  use scale_file_cartesc, only: &
268  file_cartesc_create
269  implicit none
270 
271  character(len=19) :: timelabel
272  character(len=H_LONG) :: basename
273  !---------------------------------------------------------------------------
274 
275  if ( atmos_phy_ch_restart_out_basename /= '' ) then
276 
277  log_newline
278  log_info("ATMOS_PHY_CH_vars_restart_create",*) 'Create restart file (ATMOS_PHY_CH) '
279 
280  if ( atmos_phy_ch_restart_out_postfix_timelabel ) then
281  call time_gettimelabel( timelabel )
282  basename = trim(atmos_phy_ch_restart_out_basename)//'_'//trim(timelabel)
283  else
284  basename = trim(atmos_phy_ch_restart_out_basename)
285  endif
286 
287  log_info("ATMOS_PHY_CH_vars_restart_create",*) 'basename: ', trim(basename)
288 
289  call file_cartesc_create( &
290  basename, atmos_phy_ch_restart_out_title, atmos_phy_ch_restart_out_dtype, & ! [IN]
291  restart_fid, & ! [OUT]
292  aggregate=atmos_phy_ch_restart_out_aggregate ) ! [IN]
293 
294  endif
295 
296  return

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().

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 302 of file mod_atmos_phy_ch_vars.F90.

302  use scale_file_cartesc, only: &
303  file_cartesc_enddef
304  implicit none
305 
306  if ( restart_fid /= -1 ) then
307  call file_cartesc_enddef( restart_fid ) ! [IN]
308  endif
309 
310  return

References scale_file_cartesc::file_cartesc_enddef().

Referenced by mod_atmos_vars::atmos_vars_restart_enddef().

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 316 of file mod_atmos_phy_ch_vars.F90.

316  use scale_file_cartesc, only: &
317  file_cartesc_close
318  implicit none
319  !---------------------------------------------------------------------------
320 
321  if ( restart_fid /= -1 ) then
322  log_newline
323  log_info("ATMOS_PHY_CH_vars_restart_close",*) 'Close restart file (ATMOS_PHY_CH) '
324 
325  call file_cartesc_close( restart_fid ) ! [IN]
326 
327  restart_fid = -1
328  endif
329 
330  return

References scale_file_cartesc::file_cartesc_close().

Referenced by mod_atmos_vars::atmos_vars_restart_close().

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 336 of file mod_atmos_phy_ch_vars.F90.

336  use scale_file_cartesc, only: &
337  file_cartesc_def_var
338  implicit none
339  !---------------------------------------------------------------------------
340 
341  if ( restart_fid /= -1 ) then
342 !!$ call FILE_CARTESC_def_var( restart_fid, VAR_NAME(1), VAR_DESC(1), VAR_UNIT(1), 'ZXY', ATMOS_PHY_CH_RESTART_OUT_DTYPE, &
343 !!$ VAR_ID(1) )
344  endif
345 
346  return

References scale_file_cartesc::file_cartesc_def_var().

Referenced by mod_atmos_vars::atmos_vars_restart_def_var().

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 352 of file mod_atmos_phy_ch_vars.F90.

352  use scale_file_cartesc, only: &
353  file_cartesc_write_var
354  implicit none
355 
356  !---------------------------------------------------------------------------
357 
358  if ( restart_fid /= -1 ) then
359 
360  call atmos_phy_ch_vars_fillhalo
361 
362  call atmos_phy_ch_vars_check
363 
364 !!$ call FILE_CARTESC_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_CH_O3(:,:,:), VAR_NAME(1), 'ZXY' ) ! [IN]
365 
366  endif
367 
368  return

References atmos_phy_ch_vars_check(), and atmos_phy_ch_vars_fillhalo().

Referenced by mod_atmos_vars::atmos_vars_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ atmos_phy_ch_vars_check()

subroutine mod_atmos_phy_ch_vars::atmos_phy_ch_vars_check

Definition at line 373 of file mod_atmos_phy_ch_vars.F90.

373  use scale_statistics, only: &
374  statistics_checktotal, &
375  statistics_total
376  use scale_atmos_grid_cartesc_real, only: &
377  atmos_grid_cartesc_real_vol, &
378  atmos_grid_cartesc_real_totvol
379  implicit none
380 
381 !!$ call VALCHECK( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
382 !!$ ATMOS_PHY_CH_O3(:,:,:), & ! (in)
383 !!$ 0.0_RP, 1.0E3_RP, VAR_NAME(1), & ! (in)
384 !!$ __FILE__, __LINE__ ) ! (in)
385 !!$
386 !!$ call STATISTICS_total( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
387 !!$ ATMOS_PHY_CH_O3(:,:,:), VAR_NAME(1), & ! (in)
388 !!$ ATMOS_GRID_CARTESC_REAL_VOL(:,:,:), & ! (in)
389 !!$ ATMOS_GRID_CARTESC_REAL_TOTVOL ) ! (in)
390 
391  return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, and scale_statistics::statistics_checktotal.

Referenced by atmos_phy_ch_vars_restart_read(), and atmos_phy_ch_vars_restart_write().

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 45 of file mod_atmos_phy_ch_vars.F90.

45  logical, public :: ATMOS_PHY_CH_RESTART_OUTPUT = .false.

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

◆ 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 47 of file mod_atmos_phy_ch_vars.F90.

47  character(len=H_LONG), public :: ATMOS_PHY_CH_RESTART_IN_BASENAME = ''

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

◆ 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 48 of file mod_atmos_phy_ch_vars.F90.

48  logical, public :: ATMOS_PHY_CH_RESTART_IN_AGGREGATE

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

◆ 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 49 of file mod_atmos_phy_ch_vars.F90.

49  logical, public :: ATMOS_PHY_CH_RESTART_IN_POSTFIX_TIMELABEL = .false.

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

◆ 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 50 of file mod_atmos_phy_ch_vars.F90.

50  character(len=H_LONG), public :: ATMOS_PHY_CH_RESTART_OUT_BASENAME = ''

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

◆ 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 51 of file mod_atmos_phy_ch_vars.F90.

51  logical, public :: ATMOS_PHY_CH_RESTART_OUT_AGGREGATE

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

◆ 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 52 of file mod_atmos_phy_ch_vars.F90.

52  logical, public :: ATMOS_PHY_CH_RESTART_OUT_POSTFIX_TIMELABEL = .true.

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

◆ 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 53 of file mod_atmos_phy_ch_vars.F90.

53  character(len=H_MID), public :: ATMOS_PHY_CH_RESTART_OUT_TITLE = 'ATMOS_PHY_CH restart'

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

◆ 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 54 of file mod_atmos_phy_ch_vars.F90.

54  character(len=H_SHORT), public :: ATMOS_PHY_CH_RESTART_OUT_DTYPE = 'DEFAULT'

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

◆ atmos_phy_ch_rhoq_t

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

Definition at line 56 of file mod_atmos_phy_ch_vars.F90.

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

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

◆ atmos_phy_ch_o3

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

Definition at line 58 of file mod_atmos_phy_ch_vars.F90.

58  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 60 of file mod_atmos_phy_ch_vars.F90.

60  integer, public :: QA_CH = 0

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(), and mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux().

◆ qs_ch

integer, public mod_atmos_phy_ch_vars::qs_ch = -1

Definition at line 61 of file mod_atmos_phy_ch_vars.F90.

61  integer, public :: QS_CH = -1

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(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), atmos_phy_ch_vars_setup(), and mod_realinput::realinput_surface().

◆ qe_ch

integer, public mod_atmos_phy_ch_vars::qe_ch = -2

Definition at line 62 of file mod_atmos_phy_ch_vars.F90.

62  integer, public :: QE_CH = -2

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(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_urban_flux(), atmos_phy_ch_vars_setup(), and mod_realinput::realinput_surface().

scale_statistics
module Statistics
Definition: scale_statistics.F90:11
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:943
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:3307
mod_atmos_phy_ch_vars::qs_ch
integer, public qs_ch
Definition: mod_atmos_phy_ch_vars.F90:61
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
scale_file
module file
Definition: scale_file.F90:15
scale_prc
module PROCESS
Definition: scale_prc.F90:11
scale_const
module CONSTANT
Definition: scale_const.F90:11
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:83
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1023
scale_time
module TIME
Definition: scale_time.F90:11
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:780
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:746
scale_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_statistics.F90:64
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:997
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:91
scale_comm_cartesc
module COMMUNICATION
Definition: scale_comm_cartesC.F90:11
scale_file::file_get_aggregate
logical function, public file_get_aggregate(fid)
Definition: scale_file.F90:4844
mod_atmos_phy_ch_vars::qe_ch
integer, public qe_ch
Definition: mod_atmos_phy_ch_vars.F90:62
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:87
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
Generated by   doxygen 1.8.17