SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_tb_vars Module Reference

module Atmosphere / Physics Turbulence More...

Functions/Subroutines

subroutine, public atmos_phy_tb_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_tb_vars_finalize
 Finalize. More...
 
subroutine, public atmos_phy_tb_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_tb_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_tb_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_tb_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_tb_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_tb_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_tb_vars_restart_def_var
 Write restart. More...
 
subroutine, public atmos_phy_tb_vars_restart_write
 Write restart. More...
 
subroutine atmos_phy_tb_vars_check
 

Variables

logical, public atmos_phy_tb_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_tb_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_tb_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_tb_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_tb_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_tb_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_tb_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_tb_restart_out_title = 'ATMOS_PHY_TB restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_tb_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momz_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momx_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momy_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_rhot_t
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_tb_rhoq_t
 
integer, public i_tke = -1
 

Detailed Description

module Atmosphere / Physics Turbulence

Description
Container for mod_atmos_phy_tb
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_TB_VARS
    nametypedefault valuecomment
    ATMOS_PHY_TB_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_TB_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_TB_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_TB_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_TB_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_TB_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_TB restart' title of the output file
    ATMOS_PHY_TB_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8

History Output
No history output

Function/Subroutine Documentation

◆ atmos_phy_tb_vars_setup()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup

Setup.

Definition at line 84 of file mod_atmos_phy_tb_vars.F90.

84  use scale_prc, only: &
85  prc_abort
86  use scale_const, only: &
87  undef => const_undef
88  implicit none
89 
90  namelist / param_atmos_phy_tb_vars / &
91  atmos_phy_tb_restart_in_basename, &
92  atmos_phy_tb_restart_in_aggregate, &
93  atmos_phy_tb_restart_in_postfix_timelabel, &
94  atmos_phy_tb_restart_output, &
95  atmos_phy_tb_restart_out_basename, &
96  atmos_phy_tb_restart_out_aggregate, &
97  atmos_phy_tb_restart_out_postfix_timelabel, &
98  atmos_phy_tb_restart_out_title, &
99  atmos_phy_tb_restart_out_dtype
100 
101  integer :: ierr
102  integer :: iv
103  !---------------------------------------------------------------------------
104 
105  log_newline
106  log_info("ATMOS_PHY_TB_vars_setup",*) 'Setup'
107 
108  allocate( atmos_phy_tb_momz_t(ka,ia,ja) )
109  allocate( atmos_phy_tb_momx_t(ka,ia,ja) )
110  allocate( atmos_phy_tb_momy_t(ka,ia,ja) )
111  allocate( atmos_phy_tb_rhot_t(ka,ia,ja) )
112  allocate( atmos_phy_tb_rhoq_t(ka,ia,ja,qa) )
113  atmos_phy_tb_momz_t(:,:,:) = undef
114  atmos_phy_tb_momx_t(:,:,:) = undef
115  atmos_phy_tb_momy_t(:,:,:) = undef
116  atmos_phy_tb_rhot_t(:,:,:) = undef
117  atmos_phy_tb_rhoq_t(:,:,:,:) = undef
118  !$acc enter data create(ATMOS_PHY_TB_MOMZ_t, ATMOS_PHY_TB_MOMX_t, ATMOS_PHY_TB_MOMY_t, ATMOS_PHY_TB_RHOT_t, ATMOS_PHY_TB_RHOQ_t)
119 
120  !--- read namelist
121  rewind(io_fid_conf)
122  read(io_fid_conf,nml=param_atmos_phy_tb_vars,iostat=ierr)
123  if( ierr < 0 ) then !--- missing
124  log_info("ATMOS_PHY_TB_vars_setup",*) 'Not found namelist. Default used.'
125  elseif( ierr > 0 ) then !--- fatal error
126  log_error("ATMOS_PHY_TB_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_TB_VARS. Check!'
127  call prc_abort
128  endif
129  log_nml(param_atmos_phy_tb_vars)
130 
131 ! LOG_NEWLINE
132 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) '[ATMOS_PHY_TB] 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_TB_RESTART_IN_BASENAME /= '' ) then
143 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart input? : YES, file = ', trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
144 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Add timelabel? : ', ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL
145 ! else
146 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart input? : NO'
147 ! endif
148 ! if ( ATMOS_PHY_TB_RESTART_OUTPUT &
149 ! .AND. ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
150 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart output? : YES, file = ', trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
151 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Add timelabel? : ', ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL
152 ! else
153 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart output? : NO'
154 ! ATMOS_PHY_TB_RESTART_OUTPUT = .false.
155 ! endif
156 
157  return

References atmos_phy_tb_momx_t, atmos_phy_tb_momy_t, atmos_phy_tb_momz_t, atmos_phy_tb_restart_in_aggregate, atmos_phy_tb_restart_in_basename, atmos_phy_tb_restart_in_postfix_timelabel, atmos_phy_tb_restart_out_aggregate, atmos_phy_tb_restart_out_basename, atmos_phy_tb_restart_out_dtype, atmos_phy_tb_restart_out_postfix_timelabel, atmos_phy_tb_restart_out_title, atmos_phy_tb_restart_output, atmos_phy_tb_rhoq_t, atmos_phy_tb_rhot_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(), and scale_tracer::qa.

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

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_finalize

Finalize.

Definition at line 163 of file mod_atmos_phy_tb_vars.F90.

163  implicit none
164  !---------------------------------------------------------------------------
165 
166  log_newline
167  log_info("ATMOS_PHY_TB_vars_finalize",*) 'Finalize'
168 
169  !$acc exit data delete(ATMOS_PHY_TB_MOMZ_t, ATMOS_PHY_TB_MOMX_t, ATMOS_PHY_TB_MOMY_t, ATMOS_PHY_TB_RHOT_t, ATMOS_PHY_TB_RHOQ_t)
170  deallocate( atmos_phy_tb_momz_t )
171  deallocate( atmos_phy_tb_momx_t )
172  deallocate( atmos_phy_tb_momy_t )
173  deallocate( atmos_phy_tb_rhot_t )
174  deallocate( atmos_phy_tb_rhoq_t )
175 
176  return

References atmos_phy_tb_momx_t, atmos_phy_tb_momy_t, atmos_phy_tb_momz_t, atmos_phy_tb_rhoq_t, and atmos_phy_tb_rhot_t.

Referenced by mod_atmos_vars::atmos_vars_finalize().

Here is the caller graph for this function:

◆ atmos_phy_tb_vars_fillhalo()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_fillhalo

HALO Communication.

Definition at line 182 of file mod_atmos_phy_tb_vars.F90.

182  use scale_comm_cartesc, only: &
183  comm_vars8, &
184  comm_wait
185  implicit none
186  !---------------------------------------------------------------------------
187 
188 ! do j = 1, JA
189 ! do i = 1, IA
190 ! ATMOS_PHY_TB_??( 1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
191 ! ATMOS_PHY_TB_??(KE+1:KA, i,j) = ATMOS_PHY_TB_??(KE,i,j)
192 ! enddo
193 ! enddo
194 
195 ! call COMM_vars8( ATMOS_PHY_TB_??(:,:,:), 1 )
196 ! call COMM_wait ( ATMOS_PHY_TB_??(:,:,:), 1 )
197 
198  return

◆ atmos_phy_tb_vars_restart_open()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_open

Open restart file for read.

Definition at line 204 of file mod_atmos_phy_tb_vars.F90.

204  use scale_time, only: &
205  time_gettimelabel
206  use scale_file_cartesc, only: &
207  file_cartesc_open
208  implicit none
209 
210  character(len=19) :: timelabel
211  character(len=H_LONG) :: basename
212  !---------------------------------------------------------------------------
213 
214 ! LOG_NEWLINE
215 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'Open restart file (ATMOS_PHY_TB) '
216 
217 ! if ( ATMOS_PHY_TB_RESTART_IN_BASENAME /= '' ) then
218 
219 ! if ( ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL ) then
220 ! call TIME_gettimelabel( timelabel )
221 ! basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)//'_'//trim(timelabel)
222 ! else
223 ! basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
224 ! endif
225 
226 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'basename: ', trim(basename)
227 
228 ! call FILE_CARTESC_open( basename, restart_fid, aggregate=ATMOS_PHY_TB_RESTART_IN_AGGREGATE )
229 ! else
230 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'restart file for ATMOS_PHY_TB is not specified.'
231 ! endif
232 
233  return

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

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_read

Read restart.

Definition at line 239 of file mod_atmos_phy_tb_vars.F90.

239 !!$ use scale_file, only: &
240 !!$ FILE_get_aggregate
241 !!$ use scale_file_cartesC, only: &
242 !!$ FILE_CARTESC_read, &
243 !!$ FILE_CARTESC_flush
244 !!$ implicit none
245 
246  integer :: i, j
247  !---------------------------------------------------------------------------
248 
249 ! if ( restart_fid /= -1 ) then
250 ! LOG_NEWLINE
251 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_TB) '
252 !
253 ! call FILE_CARTESC_read( restart_fid, VAR_NAME(1), 'ZXY', & ! [IN]
254 ! ATMOS_PHY_TB_??(:,:,:) ) ! [OUT]
255 !
256 ! if ( FILE_get_AGGREGATE(restart_fid) ) then
257 ! call FILE_CARTESC_flush( restart_fid ) ! X/Y halos have been read from file
258 !
259 ! ! fill k halos
260 ! do j = 1, JA
261 ! do i = 1, IA
262 ! ATMOS_PHY_TB_??( 1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
263 ! ATMOS_PHY_TB_??(KE+1:KA, i,j) = ATMOS_PHY_TB_??(KE,i,j)
264 ! enddo
265 ! enddo
266 ! else
267 ! call ATMOS_PHY_TB_vars_fillhalo
268 ! end if
269 !
270 ! call ATMOS_PHY_TB_vars_check
271 !
272 ! else
273 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_read",*) 'invalid restart file ID for ATMOS_PHY_TB.'
274 ! endif
275 
276  return

Referenced by mod_atmos_vars::atmos_vars_restart_read().

Here is the caller graph for this function:

◆ atmos_phy_tb_vars_restart_create()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_create

Create restart file.

Definition at line 282 of file mod_atmos_phy_tb_vars.F90.

282  use scale_time, only: &
283  time_gettimelabel
284  use scale_file_cartesc, only: &
285  file_cartesc_create
286  implicit none
287 
288  character(len=19) :: timelabel
289  character(len=H_LONG) :: basename
290  !---------------------------------------------------------------------------
291 
292 ! if ( ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
293 !
294 ! LOG_NEWLINE
295 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_create",*) 'Create restart file (ATMOS_PHY_AE) '
296 !
297 ! if ( ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL ) then
298 ! call TIME_gettimelabel( timelabel )
299 ! basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)//'_'//trim(timelabel)
300 ! else
301 ! basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
302 ! endif
303 !
304 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_create",*) 'basename: ', trim(basename)
305 !
306 ! call FILE_CARTESC_create( &
307 ! basename, ATMOS_PHY_TB_RESTART_OUT_TITLE, ATMOS_PHY_TB_RESTART_OUT_DTYPE, & ! [IN]
308 ! restart_fid, & ! [OUT]
309 ! aggregate=ATMOS_PHY_TB_RESTART_OUT_AGGREGATE ) ! [IN]
310 ! endif
311 
312  return

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

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_enddef

Exit netCDF define mode.

Definition at line 318 of file mod_atmos_phy_tb_vars.F90.

318  use scale_file_cartesc, only: &
319  file_cartesc_enddef
320  implicit none
321 
322 ! if ( restart_fid /= -1 ) then
323 ! call FILE_CARTESC_enddef( restart_fid ) ! [IN]
324 ! endif
325 
326  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_tb_vars_restart_close()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_close

Close restart file.

Definition at line 332 of file mod_atmos_phy_tb_vars.F90.

332  use scale_file_cartesc, only: &
333  file_cartesc_close
334  implicit none
335  !---------------------------------------------------------------------------
336 
337 ! if ( restart_fid /= -1 ) then
338 ! LOG_NEWLINE
339 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_close",*) 'Close restart file (ATMOS_PHY_TB) '
340 !
341 ! call FILE_CARTESC_close( restart_fid ) ! [IN]
342 !
343 ! restart_fid = -1
344 ! endif
345 
346  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_tb_vars_restart_def_var()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_def_var

Write restart.

Definition at line 352 of file mod_atmos_phy_tb_vars.F90.

352  use scale_file_cartesc, only: &
353  file_cartesc_def_var
354  implicit none
355  !---------------------------------------------------------------------------
356 
357 ! if ( restart_fid /= -1 ) then
358 
359 ! call FILE_CARTESC_def_var( restart_fid, & ! [IN]
360 ! VAR_NAME(1), VAR_DESC(1), VAR_UNIT(1), & ! [IN]
361 ! 'ZXY', ATMOS_PHY_TB_RESTART_OUT_DTYPE, & ! [IN]
362 ! VAR_ID(1) ) ! [OUT]
363 
364 ! endif
365 
366  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_tb_vars_restart_write()

subroutine, public mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_write

Write restart.

Definition at line 372 of file mod_atmos_phy_tb_vars.F90.

372  use scale_file_cartesc, only: &
373  file_cartesc_write_var
374  implicit none
375 
376  !---------------------------------------------------------------------------
377 
378 ! if ( restart_fid /= -1 ) then
379 !
380 ! call ATMOS_PHY_TB_vars_fillhalo
381 !
382 ! call ATMOS_PHY_TB_vars_check
383 !
384 ! call FILE_CARTESC_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_TB_??(:,:,:), &
385 ! VAR_NAME(1), 'ZXY' ) ! [IN]
386 !
387 ! endif
388 
389  return

Referenced by mod_atmos_vars::atmos_vars_restart_write().

Here is the caller graph for this function:

◆ atmos_phy_tb_vars_check()

subroutine mod_atmos_phy_tb_vars::atmos_phy_tb_vars_check

Definition at line 393 of file mod_atmos_phy_tb_vars.F90.

393  use scale_statistics, only: &
394  statistics_total
395  use scale_atmos_grid_cartesc_real, only: &
396  atmos_grid_cartesc_real_vol, &
397  atmos_grid_cartesc_real_totvol
398  implicit none
399 
400 !!$ call VALCHECK( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
401 !!$ ATMOS_PHY_TB_??(:,:), & ! (in)
402 !!$ 0.0_RP, 0.0_RP, VAR_NAME(1), & ! (in)
403 !!$ __FILE__, __LINE__ ) ! (in)
404 !!$
405 !!$ call STATISTICS_total( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
406 !!$ ATMOS_PHY_TB_??(:,:,:), VAR_NAME(1), &
407 !!$ ATMOS_GRID_CARTESC_REAL_VOL(:,:,:), & ! (in)
408 !!$ ATMOS_GRID_CARTESC_REAL_TOTVOL ) ! (in)
409 
410  return

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

Variable Documentation

◆ atmos_phy_tb_restart_output

logical, public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_output = .false.

output restart file?

Definition at line 45 of file mod_atmos_phy_tb_vars.F90.

45  logical, public :: ATMOS_PHY_TB_RESTART_OUTPUT = .false.

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

◆ atmos_phy_tb_restart_in_basename

character(len=h_long), public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_basename = ''

Basename of the input file.

Definition at line 47 of file mod_atmos_phy_tb_vars.F90.

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

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

◆ atmos_phy_tb_restart_in_aggregate

logical, public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_aggregate

Switch to use aggregate file.

Definition at line 48 of file mod_atmos_phy_tb_vars.F90.

48  logical, public :: ATMOS_PHY_TB_RESTART_IN_AGGREGATE

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

◆ atmos_phy_tb_restart_in_postfix_timelabel

logical, public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 49 of file mod_atmos_phy_tb_vars.F90.

49  logical, public :: ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL = .false.

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

◆ atmos_phy_tb_restart_out_basename

character(len=h_long), public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_basename = ''

Basename of the output file.

Definition at line 50 of file mod_atmos_phy_tb_vars.F90.

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

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

◆ atmos_phy_tb_restart_out_aggregate

logical, public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_aggregate

Switch to use aggregate file.

Definition at line 51 of file mod_atmos_phy_tb_vars.F90.

51  logical, public :: ATMOS_PHY_TB_RESTART_OUT_AGGREGATE

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

◆ atmos_phy_tb_restart_out_postfix_timelabel

logical, public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 52 of file mod_atmos_phy_tb_vars.F90.

52  logical, public :: ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL = .true.

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

◆ atmos_phy_tb_restart_out_title

character(len=h_mid), public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_title = 'ATMOS_PHY_TB restart'

title of the output file

Definition at line 53 of file mod_atmos_phy_tb_vars.F90.

53  character(len=H_MID), public :: ATMOS_PHY_TB_RESTART_OUT_TITLE = 'ATMOS_PHY_TB restart'

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

◆ atmos_phy_tb_restart_out_dtype

character(len=h_short), public mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 54 of file mod_atmos_phy_tb_vars.F90.

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

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

◆ atmos_phy_tb_momz_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_tb_vars::atmos_phy_tb_momz_t

Definition at line 56 of file mod_atmos_phy_tb_vars.F90.

56  real(RP), public, allocatable :: ATMOS_PHY_TB_MOMZ_t(:,:,:) ! tendency MOMZ [kg/m2/s2]

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_setup(), atmos_phy_tb_vars_finalize(), and atmos_phy_tb_vars_setup().

◆ atmos_phy_tb_momx_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_tb_vars::atmos_phy_tb_momx_t

Definition at line 57 of file mod_atmos_phy_tb_vars.F90.

57  real(RP), public, allocatable :: ATMOS_PHY_TB_MOMX_t(:,:,:) ! tendency MOMX [kg/m2/s2]

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), atmos_phy_tb_vars_finalize(), and atmos_phy_tb_vars_setup().

◆ atmos_phy_tb_momy_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_tb_vars::atmos_phy_tb_momy_t

Definition at line 58 of file mod_atmos_phy_tb_vars.F90.

58  real(RP), public, allocatable :: ATMOS_PHY_TB_MOMY_t(:,:,:) ! tendency MOMY [kg/m2/s2]

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), atmos_phy_tb_vars_finalize(), and atmos_phy_tb_vars_setup().

◆ atmos_phy_tb_rhot_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_tb_vars::atmos_phy_tb_rhot_t

Definition at line 59 of file mod_atmos_phy_tb_vars.F90.

59  real(RP), public, allocatable :: ATMOS_PHY_TB_RHOT_t(:,:,:) ! tendency RHOT [K*kg/m3/s]

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), atmos_phy_tb_vars_finalize(), and atmos_phy_tb_vars_setup().

◆ atmos_phy_tb_rhoq_t

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_tb_vars::atmos_phy_tb_rhoq_t

Definition at line 60 of file mod_atmos_phy_tb_vars.F90.

60  real(RP), public, allocatable :: ATMOS_PHY_TB_RHOQ_t(:,:,:,:) ! tendency rho*QTRC [kg/kg/s]

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), atmos_phy_tb_vars_finalize(), and atmos_phy_tb_vars_setup().

◆ i_tke

integer, public mod_atmos_phy_tb_vars::i_tke = -1

Definition at line 62 of file mod_atmos_phy_tb_vars.F90.

62  integer, public :: I_TKE = -1

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_tracer_setup(), and mod_mkinit::tke_setup().

scale_statistics
module Statistics
Definition: scale_statistics.F90:11
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:350
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:56
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_tb_vars::atmos_phy_tb_momx_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momx_t
Definition: mod_atmos_phy_tb_vars.F90:57
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
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
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
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:58
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_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
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:60
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:43
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:59
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
Generated by   doxygen 1.8.17