SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_lt_vars Module Reference

module Atmosphere / Physics Chemistry More...

Functions/Subroutines

subroutine, public atmos_phy_lt_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_lt_vars_finalize
 Finalize. More...
 
subroutine, public atmos_phy_lt_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_lt_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_lt_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_lt_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_lt_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_lt_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_lt_vars_restart_def_var
 Write restart. More...
 
subroutine, public atmos_phy_lt_vars_restart_write
 Write restart. More...
 

Variables

logical, public atmos_phy_lt_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_lt_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_lt_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_lt_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_lt_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_lt_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_lt_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_lt_restart_out_title = 'ATMOS_PHY_LT restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_lt_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_lt_epot
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_lt_sarea
 
integer, public qa_lt = 0
 
integer, public qs_lt = -1
 
integer, public qe_lt = -2
 
real(rp), parameter, public d0_crg = 100.E-6_RP
 
real(rp), parameter, public v0_crg = 8.0_RP
 
logical, public flg_lt = .false.
 

Detailed Description

module Atmosphere / Physics Chemistry

Description
Container for mod_atmos_phy_lt
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_LT_VARS
    nametypedefault valuecomment
    ATMOS_PHY_LT_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_LT_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_LT_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_LT_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_LT_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_LT_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_LT_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_LT_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_LT restart' title of the output file
    ATMOS_PHY_LT_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8

History Output
No history output

Function/Subroutine Documentation

◆ atmos_phy_lt_vars_setup()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_setup

Setup.

Definition at line 92 of file mod_atmos_phy_lt_vars.F90.

92  use scale_prc, only: &
93  prc_abort
94  use scale_const, only: &
95  undef => const_undef
96  use mod_atmos_phy_mp_vars, only: &
97  atmos_phy_mp_rhoc_t
98  implicit none
99 
100  namelist / param_atmos_phy_lt_vars / &
101  atmos_phy_lt_restart_in_basename, &
102  atmos_phy_lt_restart_in_aggregate, &
103  atmos_phy_lt_restart_in_postfix_timelabel, &
104  atmos_phy_lt_restart_output, &
105  atmos_phy_lt_restart_out_basename, &
106  atmos_phy_lt_restart_out_aggregate, &
107  atmos_phy_lt_restart_out_postfix_timelabel, &
108  atmos_phy_lt_restart_out_title, &
109  atmos_phy_lt_restart_out_dtype
110 
111  integer :: ierr
112  integer :: iv
113  !---------------------------------------------------------------------------
114 
115  log_newline
116  log_info("ATMOS_PHY_LT_vars_setup",*) 'Setup'
117 
118  allocate( atmos_phy_lt_epot(ka,ia,ja) )
119  atmos_phy_lt_epot(:,:,:) = undef
120  !$acc enter data create(ATMOS_PHY_LT_Epot)
121 
122  !--- read namelist
123  rewind(io_fid_conf)
124  read(io_fid_conf,nml=param_atmos_phy_lt_vars,iostat=ierr)
125  if( ierr < 0 ) then !--- missing
126  log_info("ATMOS_PHY_LT_vars_setup",*) 'Not found namelist. Default used.'
127  elseif( ierr > 0 ) then !--- fatal error
128  log_error("ATMOS_PHY_LT_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_LT_VARS. Check!'
129  call prc_abort
130  endif
131  log_nml(param_atmos_phy_lt_vars)
132 
133  log_newline
134  log_info("ATMOS_PHY_LT_vars_setup",*) '[ATMOS_PHY_TL] prognostic/diagnostic variables'
135  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
136  ' |', 'VARNAME ','|', &
137  'DESCRIPTION ', '[', 'UNIT ', ']'
138  do iv = 1, vmax
139  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
140  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
141  enddo
142 
143  log_newline
144  if ( atmos_phy_lt_restart_in_basename /= '' ) then
145  log_info("ATMOS_PHY_LT_vars_setup",*) 'Restart input? : YES, file = ', trim(atmos_phy_lt_restart_in_basename)
146  log_info("ATMOS_PHY_LT_vars_setup",*) 'Add timelabel? : ', atmos_phy_lt_restart_in_postfix_timelabel
147  else
148  log_info("ATMOS_PHY_LT_vars_setup",*) 'Restart input? : NO'
149  endif
150  if ( atmos_phy_lt_restart_output &
151  .AND. atmos_phy_lt_restart_out_basename /= '' ) then
152  log_info("ATMOS_PHY_LT_vars_setup",*) 'Restart output? : YES, file = ', trim(atmos_phy_lt_restart_out_basename)
153  log_info("ATMOS_PHY_LT_vars_setup",*) 'Add timelabel? : ', atmos_phy_lt_restart_out_postfix_timelabel
154  else
155  log_info("ATMOS_PHY_LT_vars_setup",*) 'Restart output? : NO'
156  atmos_phy_lt_restart_output = .false.
157  endif
158 
159 
160  ! for cloud microphysics
161  allocate( atmos_phy_mp_rhoc_t(ka,ia,ja,qs_lt:qe_lt) )
162  atmos_phy_mp_rhoc_t(:,:,:,:) = 0.0_rp
163  !$acc enter data copyin(ATMOS_PHY_MP_RHOC_t)
164 
165 
166  return

References atmos_phy_lt_epot, atmos_phy_lt_restart_in_aggregate, atmos_phy_lt_restart_in_basename, atmos_phy_lt_restart_in_postfix_timelabel, atmos_phy_lt_restart_out_aggregate, atmos_phy_lt_restart_out_basename, atmos_phy_lt_restart_out_dtype, atmos_phy_lt_restart_out_postfix_timelabel, atmos_phy_lt_restart_out_title, atmos_phy_lt_restart_output, mod_atmos_phy_mp_vars::atmos_phy_mp_rhoc_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_lt, and qs_lt.

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

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_finalize

Finalize.

Definition at line 172 of file mod_atmos_phy_lt_vars.F90.

172  use mod_atmos_phy_mp_vars, only: &
173  atmos_phy_mp_rhoc_t
174  implicit none
175  !---------------------------------------------------------------------------
176 
177  log_newline
178  log_info("ATMOS_PHY_LT_vars_finalize",*) 'Finalize'
179 
180  !$acc exit data delete(ATMOS_PHY_LT_Epot)
181  deallocate( atmos_phy_lt_epot )
182 
183  ! for cloud microphysics
184  !$acc exit data delete(ATMOS_PHY_MP_RHOC_t)
185  deallocate( atmos_phy_mp_rhoc_t )
186 
187  return

References atmos_phy_lt_epot, and mod_atmos_phy_mp_vars::atmos_phy_mp_rhoc_t.

Referenced by mod_atmos_vars::atmos_vars_finalize().

Here is the caller graph for this function:

◆ atmos_phy_lt_vars_fillhalo()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_fillhalo

HALO Communication.

Definition at line 193 of file mod_atmos_phy_lt_vars.F90.

193  use scale_comm_cartesc, only: &
194  comm_vars8, &
195  comm_wait
196  implicit none
197 
198  integer :: i, j
199  !---------------------------------------------------------------------------
200 
201  !$acc data copy(ATMOS_PHY_LT_Epot)
202 
203  !$acc kernels
204  !$acc loop independent collapse(2)
205  do j = js, je
206  do i = is, ie
207  atmos_phy_lt_epot( 1:ks-1,i,j) = atmos_phy_lt_epot(ks,i,j)
208  atmos_phy_lt_epot(ke+1:ka, i,j) = atmos_phy_lt_epot(ke,i,j)
209  enddo
210  enddo
211  !$acc end kernels
212 
213  call comm_vars8( atmos_phy_lt_epot(:,:,:), 1 )
214  call comm_wait ( atmos_phy_lt_epot(:,:,:), 1 )
215 
216  !$acc end data
217 
218  return

References atmos_phy_lt_epot, 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_lt_vars_restart_read(), and atmos_phy_lt_vars_restart_write().

Here is the caller graph for this function:

◆ atmos_phy_lt_vars_restart_open()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_open

Open restart file for read.

Definition at line 224 of file mod_atmos_phy_lt_vars.F90.

224  use scale_time, only: &
225  time_gettimelabel
226  use scale_file_cartesc, only: &
227  file_cartesc_open
228  implicit none
229 
230  character(len=19) :: timelabel
231  character(len=H_LONG) :: basename
232  !---------------------------------------------------------------------------
233 
234  log_newline
235  log_info("ATMOS_PHY_LT_vars_restart_open",*) 'Open restart file (ATMOS_PHY_LT) '
236 
237  if ( atmos_phy_lt_restart_in_basename /= '' ) then
238 
239  if ( atmos_phy_lt_restart_in_postfix_timelabel ) then
240  call time_gettimelabel( timelabel )
241  basename = trim(atmos_phy_lt_restart_in_basename)//'_'//trim(timelabel)
242  else
243  basename = trim(atmos_phy_lt_restart_in_basename)
244  endif
245 
246  log_info("ATMOS_PHY_LT_vars_restart_open",*) 'basename: ', trim(basename)
247 
248  call file_cartesc_open( basename, restart_fid, aggregate=atmos_phy_lt_restart_in_aggregate )
249  else
250  log_info("ATMOS_PHY_LT_vars_restart_open",*) 'restart file for ATMOS_PHY_LT is not specified.'
251  endif
252 
253  return

References atmos_phy_lt_restart_in_aggregate, atmos_phy_lt_restart_in_basename, atmos_phy_lt_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_lt_vars_restart_read()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_read

Read restart.

Definition at line 259 of file mod_atmos_phy_lt_vars.F90.

259  use scale_statistics, only: &
260  statistics_checktotal, &
261  statistics_total
262  use scale_file, only: &
263  file_get_aggregate
264  use scale_file_cartesc, only: &
265  file_cartesc_read, &
266  file_cartesc_flush
267  use scale_atmos_grid_cartesc_real, only: &
268  atmos_grid_cartesc_real_vol, &
269  atmos_grid_cartesc_real_totvol
270  implicit none
271 
272  integer :: i, j
273  !---------------------------------------------------------------------------
274 
275  !$acc data copyout(ATMOS_PHY_LT_Epot) &
276  !$acc copyin(ATMOS_GRID_CARTESC_REAL_VOL)
277 
278  if ( restart_fid /= -1 ) then
279  log_newline
280  log_info("ATMOS_PHY_LT_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_LT) '
281 
282  call file_cartesc_read( restart_fid, var_name(1), 'ZXY', & ! [IN]
283  atmos_phy_lt_epot(:,:,:) ) ! [OUT]
284 
285  if ( file_get_aggregate( restart_fid ) ) then
286  call file_cartesc_flush( restart_fid ) ! X/Y halos have been read from file
287  !$acc update device(ATMOS_PHY_LT_Epot)
288 
289  ! fill K halos
290  !$acc kernels
291  !$acc loop independent collapse(2)
292  do j = 1, ja
293  do i = 1, ia
294  atmos_phy_lt_epot( 1:ks-1,i,j) = atmos_phy_lt_epot(ks,i,j)
295  atmos_phy_lt_epot(ke+1:ka, i,j) = atmos_phy_lt_epot(ke,i,j)
296  enddo
297  enddo
298  !$acc end kernels
299  else
300  call atmos_phy_lt_vars_fillhalo
301  end if
302 
303  if ( statistics_checktotal ) then
304  call statistics_total( ka, ks, ke, ia, is, ie, ja, js, je, &
305  atmos_phy_lt_epot(:,:,:), var_name(1), & ! (in)
306  atmos_grid_cartesc_real_vol(:,:,:), & ! (in)
307  atmos_grid_cartesc_real_totvol ) ! (in)
308  end if
309  else
310  log_info("ATMOS_PHY_LT_vars_restart_read",*) 'invalid restart file for ATMOS_PHY_LT.'
311  endif
312 
313  !$acc end data
314 
315  return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, atmos_phy_lt_epot, atmos_phy_lt_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().

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

◆ atmos_phy_lt_vars_restart_create()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_create

Create restart file.

Definition at line 321 of file mod_atmos_phy_lt_vars.F90.

321  use scale_time, only: &
322  time_gettimelabel
323  use scale_file_cartesc, only: &
324  file_cartesc_create
325  implicit none
326 
327  character(len=19) :: timelabel
328  character(len=H_LONG) :: basename
329  !---------------------------------------------------------------------------
330 
331  if ( atmos_phy_lt_restart_out_basename /= '' ) then
332 
333  log_newline
334  log_info("ATMOS_PHY_LT_vars_restart_create",*) 'Create restart file (ATMOS_PHY_L) '
335 
336  if ( atmos_phy_lt_restart_out_postfix_timelabel ) then
337  call time_gettimelabel( timelabel )
338  basename = trim(atmos_phy_lt_restart_out_basename)//'_'//trim(timelabel)
339  else
340  basename = trim(atmos_phy_lt_restart_out_basename)
341  endif
342 
343  log_info("ATMOS_PHY_LT_vars_restart_create",*) 'basename: ', trim(basename)
344 
345  call file_cartesc_create( &
346  basename, atmos_phy_lt_restart_out_title, atmos_phy_lt_restart_out_dtype, & ! [IN]
347  restart_fid, & ! [OUT]
348  aggregate=atmos_phy_lt_restart_out_aggregate ) ! [IN]
349 
350  endif
351 
352  return

References atmos_phy_lt_restart_out_aggregate, atmos_phy_lt_restart_out_basename, atmos_phy_lt_restart_out_dtype, atmos_phy_lt_restart_out_postfix_timelabel, atmos_phy_lt_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_lt_vars_restart_enddef()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_enddef

Exit netCDF define mode.

Definition at line 358 of file mod_atmos_phy_lt_vars.F90.

358  use scale_file_cartesc, only: &
359  file_cartesc_enddef
360  implicit none
361 
362  if ( restart_fid /= -1 ) then
363  call file_cartesc_enddef( restart_fid ) ! [IN]
364  endif
365 
366  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_lt_vars_restart_close()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_close

Close restart file.

Definition at line 372 of file mod_atmos_phy_lt_vars.F90.

372  use scale_file_cartesc, only: &
373  file_cartesc_close
374  implicit none
375  !---------------------------------------------------------------------------
376 
377  if ( restart_fid /= -1 ) then
378  log_newline
379  log_info("ATMOS_PHY_LT_vars_restart_close",*) 'Close restart file (ATMOS_PHY_LT) '
380 
381  call file_cartesc_close( restart_fid ) ! [IN]
382 
383  restart_fid = -1
384  endif
385 
386  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_lt_vars_restart_def_var()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_def_var

Write restart.

Definition at line 392 of file mod_atmos_phy_lt_vars.F90.

392  use scale_file_cartesc, only: &
393  file_cartesc_def_var
394  implicit none
395  !---------------------------------------------------------------------------
396 
397  if ( restart_fid /= -1 ) then
398  call file_cartesc_def_var( restart_fid, var_name(1), var_desc(1), var_unit(1), 'ZXY', atmos_phy_lt_restart_out_dtype, &
399  var_id(1) )
400  endif
401 
402  return

References atmos_phy_lt_restart_out_dtype, and 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_lt_vars_restart_write()

subroutine, public mod_atmos_phy_lt_vars::atmos_phy_lt_vars_restart_write

Write restart.

Definition at line 408 of file mod_atmos_phy_lt_vars.F90.

408  use scale_statistics, only: &
409  statistics_checktotal, &
410  statistics_total
411  use scale_file_cartesc, only: &
412  file_cartesc_write_var
413  use scale_atmos_grid_cartesc_real, only: &
414  atmos_grid_cartesc_real_vol, &
415  atmos_grid_cartesc_real_totvol
416  implicit none
417 
418  !---------------------------------------------------------------------------
419 
420  !$acc data copyin(ATMOS_PHY_LT_Epot,ATMOS_GRID_CARTESC_REAL_VOL)
421 
422  if ( restart_fid /= -1 ) then
423 
424  call atmos_phy_lt_vars_fillhalo
425 
426  if ( statistics_checktotal ) then
427  call statistics_total( ka, ks, ke, ia, is, ie, ja, js, je, &
428  atmos_phy_lt_epot(:,:,:), var_name(1), & ! (in)
429  atmos_grid_cartesc_real_vol(:,:,:), & ! (in)
430  atmos_grid_cartesc_real_totvol ) ! (in)
431  end if
432 
433  call file_cartesc_write_var( restart_fid, var_id(1), atmos_phy_lt_epot(:,:,:), var_name(1), 'ZXY' ) ! [IN]
434 
435  endif
436 
437  !$acc end data
438 
439  return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, atmos_phy_lt_epot, atmos_phy_lt_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().

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

Variable Documentation

◆ atmos_phy_lt_restart_output

logical, public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_output = .false.

output restart file?

Definition at line 45 of file mod_atmos_phy_lt_vars.F90.

45  logical, public :: ATMOS_PHY_LT_RESTART_OUTPUT = .false.

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

◆ atmos_phy_lt_restart_in_basename

character(len=h_long), public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_in_basename = ''

Basename of the input file.

Definition at line 47 of file mod_atmos_phy_lt_vars.F90.

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

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_open(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_in_aggregate

logical, public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_in_aggregate

Switch to use aggregate file.

Definition at line 48 of file mod_atmos_phy_lt_vars.F90.

48  logical, public :: ATMOS_PHY_LT_RESTART_IN_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_open(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_in_postfix_timelabel

logical, public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 49 of file mod_atmos_phy_lt_vars.F90.

49  logical, public :: ATMOS_PHY_LT_RESTART_IN_POSTFIX_TIMELABEL = .false.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_open(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_out_basename

character(len=h_long), public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_out_basename = ''

Basename of the output file.

Definition at line 50 of file mod_atmos_phy_lt_vars.F90.

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

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_create(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_out_aggregate

logical, public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_out_aggregate

Switch to use aggregate file.

Definition at line 51 of file mod_atmos_phy_lt_vars.F90.

51  logical, public :: ATMOS_PHY_LT_RESTART_OUT_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_create(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_out_postfix_timelabel

logical, public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 52 of file mod_atmos_phy_lt_vars.F90.

52  logical, public :: ATMOS_PHY_LT_RESTART_OUT_POSTFIX_TIMELABEL = .true.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_create(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_out_title

character(len=h_mid), public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_out_title = 'ATMOS_PHY_LT restart'

title of the output file

Definition at line 53 of file mod_atmos_phy_lt_vars.F90.

53  character(len=H_MID), public :: ATMOS_PHY_LT_RESTART_OUT_TITLE = 'ATMOS_PHY_LT restart'

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_create(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_restart_out_dtype

character(len=h_short), public mod_atmos_phy_lt_vars::atmos_phy_lt_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 54 of file mod_atmos_phy_lt_vars.F90.

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

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_lt_vars_restart_create(), atmos_phy_lt_vars_restart_def_var(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_epot

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_lt_vars::atmos_phy_lt_epot

Definition at line 56 of file mod_atmos_phy_lt_vars.F90.

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

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_adjustment(), atmos_phy_lt_vars_fillhalo(), atmos_phy_lt_vars_finalize(), atmos_phy_lt_vars_restart_read(), atmos_phy_lt_vars_restart_write(), and atmos_phy_lt_vars_setup().

◆ atmos_phy_lt_sarea

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_lt_vars::atmos_phy_lt_sarea

Definition at line 57 of file mod_atmos_phy_lt_vars.F90.

57  real(RP), public, allocatable :: ATMOS_PHY_LT_Sarea(:,:,:,:)

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_adjustment(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_finalize(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_setup(), and mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency().

◆ qa_lt

integer, public mod_atmos_phy_lt_vars::qa_lt = 0

Definition at line 59 of file mod_atmos_phy_lt_vars.F90.

59  integer, public :: QA_LT = 0

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_adjustment(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_tracer_setup(), and mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency().

◆ qs_lt

integer, public mod_atmos_phy_lt_vars::qs_lt = -1

Definition at line 60 of file mod_atmos_phy_lt_vars.F90.

60  integer, public :: QS_LT = -1

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_adjustment(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_tracer_setup(), atmos_phy_lt_vars_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), and mod_atmos_phy_lt_driver::history().

◆ qe_lt

integer, public mod_atmos_phy_lt_vars::qe_lt = -2

Definition at line 61 of file mod_atmos_phy_lt_vars.F90.

61  integer, public :: QE_LT = -2

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_adjustment(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_tracer_setup(), atmos_phy_lt_vars_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), and mod_atmos_phy_lt_driver::history().

◆ d0_crg

real(rp), parameter, public mod_atmos_phy_lt_vars::d0_crg = 100.E-6_RP

Definition at line 63 of file mod_atmos_phy_lt_vars.F90.

63  real(RP), parameter, public :: d0_crg = 100.e-6_rp

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency().

◆ v0_crg

real(rp), parameter, public mod_atmos_phy_lt_vars::v0_crg = 8.0_RP

Definition at line 64 of file mod_atmos_phy_lt_vars.F90.

64  real(RP), parameter, public :: v0_crg = 8.0_rp

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency().

◆ flg_lt

logical, public mod_atmos_phy_lt_vars::flg_lt = .false.

Definition at line 65 of file mod_atmos_phy_lt_vars.F90.

65  logical, public :: flg_lt = .false.

Referenced by mod_atmos_phy_lt_driver::atmos_phy_lt_driver_finalize(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), and mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup().

scale_statistics
module Statistics
Definition: scale_statistics.F90:11
mod_atmos_phy_mp_vars
module Atmosphere / Physics Cloud Microphysics
Definition: mod_atmos_phy_mp_vars.F90:12
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:350
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:964
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:3360
mod_atmos_phy_lt_vars::qe_lt
integer, public qe_lt
Definition: mod_atmos_phy_lt_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:84
mod_atmos_phy_mp_vars::atmos_phy_mp_rhoc_t
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_mp_rhoc_t
Definition: mod_atmos_phy_mp_vars.F90:70
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1044
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:796
scale_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_statistics.F90:109
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:1018
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:93
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:6316
scale_file_cartesc::file_cartesc_open
subroutine, public file_cartesc_open(basename, fid, single, aggregate)
open a netCDF file for read
Definition: scale_file_cartesC.F90:760
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:88
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:43
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
mod_atmos_phy_lt_vars::qs_lt
integer, public qs_lt
Definition: mod_atmos_phy_lt_vars.F90:60
Generated by   doxygen 1.8.17