SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_mp_vars Module Reference

module Atmosphere / Physics Cloud Microphysics More...

Functions/Subroutines

subroutine, public atmos_phy_mp_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_mp_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_mp_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_mp_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_mp_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_mp_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_mp_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_mp_vars_restart_def_var
 Define variables in restart file. More...
 
subroutine, public atmos_phy_mp_vars_restart_write
 Write restart. More...
 
subroutine, public atmos_phy_mp_vars_history (DENS, TEMP, QTRC)
 
subroutine, public atmos_phy_mp_vars_get_diagnostic (DENS, TEMP, QTRC, CLDFRAC, Re, Qe, Ne)
 
subroutine, public atmos_phy_mp_vars_reset_diagnostics
 

Variables

logical, public atmos_phy_mp_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_mp_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_mp_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_mp_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_mp_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_mp_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_mp_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_mp_restart_out_title = 'ATMOS_PHY_MP restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_mp_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), public atmos_phy_mp_cldfrac_thleshold
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_dens_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_momz_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_rhou_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_rhov_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_rhot_t
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_mp_rhoq_t
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_mp_rhoc_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_rhoh
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_mp_evaporate
 
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_rain
 
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_snow
 
real(rp), dimension(:,:), allocatable, public atmos_phy_mp_sflx_engi
 
integer, public qa_mp = 0
 
integer, public qs_mp = -1
 
integer, public qe_mp = -2
 

Detailed Description

module Atmosphere / Physics Cloud Microphysics

Description
Container for mod_atmos_phy_mp
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_MP_VARS
    nametypedefault valuecomment
    ATMOS_PHY_MP_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_MP_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_MP_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_MP_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_MP_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_MP_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_MP_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_MP_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_MP restart' title of the output file
    ATMOS_PHY_MP_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8

History Output
namedescriptionunitvariable
Re_{HYD_NAME} effective radius of {HYD_NAME};
{HYD_NAME} is QC, QR, QI, QS, QG, QH. 		cm {'Re_'//trim}
CLDFRAC cloud fraction 1 CLDFRAC
{HYD_NAME}_hyd mass ratio of {HYD_NAME};
{HYD_NAME} is QC, QR, QI, QS, QG, QH. 		kg/kg trim(HYD_NAME(ih))//'_hyd
{NUM_NAME}_hyd number concentration of {HYD_NAME};
{NUM_NAME} is NC, NR, NI, NS, NG, NH. 		1/m3 trim(NUM_NAME(ih))//'_hyd

Function/Subroutine Documentation

◆ atmos_phy_mp_vars_setup()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_setup

Setup.

Definition at line 126 of file mod_atmos_phy_mp_vars.F90.

126  use scale_prc, only: &
127  prc_abort
128  use scale_const, only: &
129  undef => const_undef
130  use scale_atmos_hydrometeor, only: &
131  n_hyd, &
132  qha, &
133  hyd_name, &
134  num_name, &
135  hyd_desc
136  use scale_file_history, only: &
137  file_history_reg
138  implicit none
139 
140  namelist / param_atmos_phy_mp_vars / &
141  atmos_phy_mp_restart_in_basename, &
142  atmos_phy_mp_restart_in_aggregate, &
143  atmos_phy_mp_restart_in_postfix_timelabel, &
144  atmos_phy_mp_restart_output, &
145  atmos_phy_mp_restart_out_basename, &
146  atmos_phy_mp_restart_out_aggregate, &
147  atmos_phy_mp_restart_out_postfix_timelabel, &
148  atmos_phy_mp_restart_out_title, &
149  atmos_phy_mp_restart_out_dtype
150 
151  integer :: ierr
152  integer :: iv, ih
153  !---------------------------------------------------------------------------
154 
155  log_newline
156  log_info("ATMOS_PHY_MP_vars_setup",*) 'Setup'
157 
158  allocate( atmos_phy_mp_dens_t(ka,ia,ja) )
159  allocate( atmos_phy_mp_momz_t(ka,ia,ja) )
160  allocate( atmos_phy_mp_rhou_t(ka,ia,ja) )
161  allocate( atmos_phy_mp_rhov_t(ka,ia,ja) )
162  allocate( atmos_phy_mp_rhot_t(ka,ia,ja) )
163  allocate( atmos_phy_mp_rhoq_t(ka,ia,ja,qs_mp:qe_mp) )
164  allocate( atmos_phy_mp_rhoh(ka,ia,ja) )
165  allocate( atmos_phy_mp_evaporate(ka,ia,ja) )
166  ! tentative approach
167  atmos_phy_mp_dens_t(:,:,:) = 0.0_rp
168  atmos_phy_mp_momz_t(:,:,:) = 0.0_rp
169  atmos_phy_mp_rhou_t(:,:,:) = 0.0_rp
170  atmos_phy_mp_rhov_t(:,:,:) = 0.0_rp
171  atmos_phy_mp_rhot_t(:,:,:) = 0.0_rp
172  atmos_phy_mp_rhoq_t(:,:,:,:) = 0.0_rp
173  atmos_phy_mp_rhoh(:,:,:) = 0.0_rp
174  atmos_phy_mp_evaporate(:,:,:) = 0.0_rp
175 
176  allocate( atmos_phy_mp_sflx_rain(ia,ja) )
177  allocate( atmos_phy_mp_sflx_snow(ia,ja) )
178  allocate( atmos_phy_mp_sflx_engi(ia,ja) )
179  atmos_phy_mp_sflx_rain(:,:) = undef
180  atmos_phy_mp_sflx_snow(:,:) = undef
181  atmos_phy_mp_sflx_engi(:,:) = undef
182 
183  !--- read namelist
184  rewind(io_fid_conf)
185  read(io_fid_conf,nml=param_atmos_phy_mp_vars,iostat=ierr)
186  if( ierr < 0 ) then !--- missing
187  log_info("ATMOS_PHY_MP_vars_setup",*) 'Not found namelist. Default used.'
188  elseif( ierr > 0 ) then !--- fatal error
189  log_error("ATMOS_PHY_MP_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_MP_VARS. Check!'
190  call prc_abort
191  endif
192  log_nml(param_atmos_phy_mp_vars)
193 
194  log_newline
195  log_info("ATMOS_PHY_MP_vars_setup",*) '[ATMOS_PHY_MP] prognostic/diagnostic variables'
196  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
197  ' |', 'VARNAME ','|', &
198  'DESCRIPTION ', '[', 'UNIT ', ']'
199  do iv = 1, vmax
200  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
201  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
202  enddo
203 
204  log_newline
205  if ( atmos_phy_mp_restart_in_basename /= '' ) then
206  log_info("ATMOS_PHY_MP_vars_setup",*) 'Restart input? : YES, file = ', trim(atmos_phy_mp_restart_in_basename)
207  log_info("ATMOS_PHY_MP_vars_setup",*) 'Add timelabel? : ', atmos_phy_mp_restart_in_postfix_timelabel
208  else
209  log_info("ATMOS_PHY_MP_vars_setup",*) 'Restart input? : NO'
210  endif
211  if ( atmos_phy_mp_restart_output &
212  .AND. atmos_phy_mp_restart_out_basename /= '' ) then
213  log_info("ATMOS_PHY_MP_vars_setup",*) 'Restart output? : YES, file = ', trim(atmos_phy_mp_restart_out_basename)
214  log_info("ATMOS_PHY_MP_vars_setup",*) 'Add timelabel? : ', atmos_phy_mp_restart_out_postfix_timelabel
215  else
216  log_info("ATMOS_PHY_MP_vars_setup",*) 'Restart output? : NO'
217  atmos_phy_mp_restart_output = .false.
218  endif
219 
220 
221  ! diagnostices
222  allocate( atmos_phy_mp_cldfrac(ka,ia,ja) )
223  allocate( atmos_phy_mp_re(ka,ia,ja,n_hyd) )
224  allocate( atmos_phy_mp_qe(ka,ia,ja,n_hyd) )
225  allocate( atmos_phy_mp_ne(ka,ia,ja,n_hyd) )
226 !OCL XFILL
227  atmos_phy_mp_cldfrac(:,:,:) = undef
228 !OCL XFILL
229  atmos_phy_mp_re(:,:,:,:) = undef
230 !OCL XFILL
231  atmos_phy_mp_qe(:,:,:,:) = undef
232  atmos_phy_mp_ne(:,:,:,:) = undef
233  diag_cldfrac = .false.
234  diag_re = .false.
235  diag_qe = .false.
236  diag_ne = .false.
237 
238  ! history
239  allocate( hist_re_id(n_hyd) )
240  allocate( hist_qe_id(n_hyd) )
241  allocate( hist_ne_id(n_hyd) )
242 
243  call file_history_reg( 'CLDFRAC', 'cloud fraction', '1', hist_cldfrac_id, fill_halo=.true., dim_type='ZXY' )
244 
245  hist_re = .false.
246  do ih = 1, n_hyd
247  call file_history_reg( 'Re_'//trim(hyd_name(ih)), 'effective radius of '//trim(hyd_desc(ih)), 'cm', hist_re_id(ih), fill_halo=.true., dim_type='ZXY' )
248  if( hist_re_id(ih) > 0 ) hist_re = .true.
249  enddo
250 
251  hist_qe = .false.
252  do ih = 1, n_hyd
253  call file_history_reg( trim(hyd_name(ih))//'_hyd', 'mass ratio of '//trim(hyd_desc(ih)), 'kg/kg', hist_qe_id(ih), fill_halo=.true., dim_type='ZXY' )
254  if( hist_qe_id(ih) > 0 ) hist_qe = .true.
255  enddo
256 
257  hist_ne = .false.
258  do ih = 1, n_hyd
259  call file_history_reg( trim(num_name(ih))//'_hyd', 'number concentration of '//trim(hyd_desc(ih)), '1/m3', hist_ne_id(ih), fill_halo=.true., dim_type='ZXY' )
260  if( hist_ne_id(ih) > 0 ) hist_ne = .true.
261  enddo
262 
263  return

References atmos_phy_mp_dens_t, atmos_phy_mp_evaporate, atmos_phy_mp_momz_t, atmos_phy_mp_restart_in_aggregate, atmos_phy_mp_restart_in_basename, atmos_phy_mp_restart_in_postfix_timelabel, atmos_phy_mp_restart_out_aggregate, atmos_phy_mp_restart_out_basename, atmos_phy_mp_restart_out_dtype, atmos_phy_mp_restart_out_postfix_timelabel, atmos_phy_mp_restart_out_title, atmos_phy_mp_restart_output, atmos_phy_mp_rhoh, atmos_phy_mp_rhoq_t, atmos_phy_mp_rhot_t, atmos_phy_mp_rhou_t, atmos_phy_mp_rhov_t, atmos_phy_mp_sflx_engi, atmos_phy_mp_sflx_rain, atmos_phy_mp_sflx_snow, scale_const::const_undef, scale_file_history::file_history_reg(), scale_atmos_hydrometeor::hyd_desc, scale_atmos_hydrometeor::hyd_name, scale_atmos_grid_cartesc_index::ia, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::ka, scale_atmos_hydrometeor::n_hyd, scale_atmos_hydrometeor::num_name, scale_prc::prc_abort(), qe_mp, scale_atmos_hydrometeor::qha, and qs_mp.

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

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_fillhalo

HALO Communication.

Definition at line 269 of file mod_atmos_phy_mp_vars.F90.

269  use scale_comm_cartesc, only: &
270  comm_vars8, &
271  comm_wait
272  implicit none
273  !---------------------------------------------------------------------------
274 
275  call comm_vars8( atmos_phy_mp_sflx_rain(:,:), 1 )
276  call comm_vars8( atmos_phy_mp_sflx_snow(:,:), 2 )
277  call comm_vars8( atmos_phy_mp_sflx_engi(:,:), 3 )
278  call comm_wait ( atmos_phy_mp_sflx_rain(:,:), 1 )
279  call comm_wait ( atmos_phy_mp_sflx_snow(:,:), 2 )
280  call comm_wait ( atmos_phy_mp_sflx_engi(:,:), 3 )
281 
282  return

References atmos_phy_mp_sflx_engi, atmos_phy_mp_sflx_rain, and atmos_phy_mp_sflx_snow.

◆ atmos_phy_mp_vars_restart_open()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_open

Open restart file for read.

Definition at line 288 of file mod_atmos_phy_mp_vars.F90.

288  use scale_time, only: &
289  time_gettimelabel
290  use scale_file_cartesc, only: &
291  file_cartesc_open
292  implicit none
293 
294  character(len=19) :: timelabel
295  character(len=H_LONG) :: basename
296  !---------------------------------------------------------------------------
297 
298 !!$ LOG_NEWLINE
299 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'Open restart file (ATMOS_PHY_MP) '
300 !!$
301 !!$ if ( ATMOS_PHY_MP_RESTART_IN_BASENAME /= '' ) then
302 !!$
303 !!$ if ( ATMOS_PHY_MP_RESTART_IN_POSTFIX_TIMELABEL ) then
304 !!$ call TIME_gettimelabel( timelabel )
305 !!$ basename = trim(ATMOS_PHY_MP_RESTART_IN_BASENAME)//'_'//trim(timelabel)
306 !!$ else
307 !!$ basename = trim(ATMOS_PHY_MP_RESTART_IN_BASENAME)
308 !!$ endif
309 !!$
310 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'basename: ', trim(basename)
311 !!$
312 !!$ call FILE_CARTESC_open( basename, restart_fid, aggregate=ATMOS_PHY_MP_RESTART_IN_AGGREGATE )
313 !!$ else
314 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'restart file for ATMOS_PHY_MP is not specified.'
315 !!$ endif
316 
317  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_mp_vars_restart_read()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_read

Read restart.

Definition at line 323 of file mod_atmos_phy_mp_vars.F90.

323  use scale_file, only: &
324  file_get_aggregate
325  use scale_file_cartesc, only: &
326  file_cartesc_read, &
327  file_cartesc_flush
328  implicit none
329 
330  !---------------------------------------------------------------------------
331 
332 !!$ if ( restart_fid /= -1 ) then
333 !!$ LOG_NEWLINE
334 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_MP) '
335 !!$
336 !!$ call FILE_CARTESC_read( restart_fid, VAR_NAME(1), 'XY', & ! [IN]
337 !!$ ATMOS_PHY_MP_hoge(:,:) ) ! [OUT]
338 !!$
339 !!$ if ( FILE_get_AGGREGATE(restart_fid) ) then
340 !!$ call FILE_CARTESC_flush( restart_fid ) ! X/Y halos have been read from file
341 !!$ else
342 !!$ call ATMOS_PHY_MP_vars_fillhalo
343 !!$ end if
344 !!$
345 !!$ call ATMOS_PHY_MP_vars_check
346 !!$
347 !!$ else
348 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_read",*) 'invalid restart file ID for ATMOS_PHY_MP.'
349 !!$ endif
350 
351  return

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

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_create

Create restart file.

Definition at line 357 of file mod_atmos_phy_mp_vars.F90.

357  use scale_time, only: &
358  time_gettimelabel
359  use scale_file_cartesc, only: &
360  file_cartesc_create
361  implicit none
362 
363  character(len=19) :: timelabel
364  character(len=H_LONG) :: basename
365  !---------------------------------------------------------------------------
366 
367 !!$ if ( ATMOS_PHY_MP_RESTART_OUT_BASENAME /= '' ) then
368 !!$
369 !!$ LOG_NEWLINE
370 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_create",*) 'Create restart file (ATMOS_PHY_AE) '
371 !!$
372 !!$ if ( ATMOS_PHY_MP_RESTART_OUT_POSTFIX_TIMELABEL ) then
373 !!$ call TIME_gettimelabel( timelabel )
374 !!$ basename = trim(ATMOS_PHY_MP_RESTART_OUT_BASENAME)//'_'//trim(timelabel)
375 !!$ else
376 !!$ basename = trim(ATMOS_PHY_MP_RESTART_OUT_BASENAME)
377 !!$ endif
378 !!$
379 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_create",*) 'basename: ', trim(basename)
380 !!$
381 !!$ call FILE_CARTESC_create( &
382 !!$ basename, ATMOS_PHY_MP_RESTART_OUT_TITLE, ATMOS_PHY_MP_RESTART_OUT_DTYPE, & ! [IN]
383 !!$ restart_fid, & ! [OUT]
384 !!$ aggregate=ATMOS_PHY_MP_RESTART_OUT_AGGREGATE ) ! [IN]
385 !!$
386 !!$ endif
387 
388  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_mp_vars_restart_enddef()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_enddef

Exit netCDF define mode.

Definition at line 394 of file mod_atmos_phy_mp_vars.F90.

394  use scale_file_cartesc, only: &
395  file_cartesc_enddef
396  implicit none
397 
398 !!$ if ( restart_fid /= -1 ) then
399 !!$ call FILE_CARTESC_enddef( restart_fid ) ! [IN]
400 !!$ endif
401 
402  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_mp_vars_restart_close()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_close

Close restart file.

Definition at line 408 of file mod_atmos_phy_mp_vars.F90.

408  use scale_file_cartesc, only: &
409  file_cartesc_close
410  implicit none
411  !---------------------------------------------------------------------------
412 
413 !!$ if ( restart_fid /= -1 ) then
414 !!$ LOG_NEWLINE
415 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_close",*) 'Close restart file (ATMOS_PHY_MP) '
416 !!$
417 !!$ call FILE_CARTESC_close( restart_fid ) ! [IN]
418 !!$
419 !!$ restart_fid = -1
420 !!$ endif
421 
422  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_mp_vars_restart_def_var()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_def_var

Define variables in restart file.

Definition at line 428 of file mod_atmos_phy_mp_vars.F90.

428  use scale_file_cartesc, only: &
429  file_cartesc_def_var
430  implicit none
431  integer :: iv
432  !---------------------------------------------------------------------------
433 
434 !!$ if ( restart_fid /= -1 ) then
435 !!$
436 !!$ do iv = 1, VMAX
437 !!$ call FILE_CARTESC_def_var( restart_fid, VAR_NAME(iv), VAR_DESC(iv), VAR_UNIT(iv), &
438 !!$ 'XY', ATMOS_PHY_MP_RESTART_OUT_DTYPE, &
439 !!$ VAR_ID(iv) )
440 !!$ end do
441 !!$
442 !!$ endif
443 
444  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_mp_vars_restart_write()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_restart_write

Write restart.

Definition at line 450 of file mod_atmos_phy_mp_vars.F90.

450  use scale_file_cartesc, only: &
451  file_cartesc_write_var
452  implicit none
453  !---------------------------------------------------------------------------
454 
455 !!$ if ( restart_fid /= -1 ) then
456 !!$
457 !!$ call ATMOS_PHY_MP_vars_fillhalo
458 !!$
459 !!$ call ATMOS_PHY_MP_vars_check
460 !!$
461 !!$ call FILE_CARTESC_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_MP_hoge(:,:), &
462 !!$ VAR_NAME(1), 'XY' ) ! [IN]
463 !!$
464 !!$ endif
465 
466  return

Referenced by mod_atmos_vars::atmos_vars_restart_write().

Here is the caller graph for this function:

◆ atmos_phy_mp_vars_history()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_history ( real(rp), dimension(ka,ia,ja), intent(in)  DENS,
real(rp), dimension(ka,ia,ja), intent(in)  TEMP,
real(rp), dimension(ka,ia,ja,qa), intent(in)  QTRC 
)

Definition at line 472 of file mod_atmos_phy_mp_vars.F90.

472  use scale_atmos_hydrometeor, only: &
473  n_hyd
474  use scale_file_history, only: &
475  file_history_query, &
476  file_history_put
477  use mod_atmos_admin, only: &
478  atmos_phy_mp_type
479  implicit none
480 
481  real(RP), intent(in) :: DENS(KA,IA,JA)
482  real(RP), intent(in) :: TEMP(KA,IA,JA)
483  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
484 
485  real(RP) :: WORK (KA,IA,JA,N_HYD)
486  logical :: do_put
487  integer :: ih
488  !---------------------------------------------------------------------------
489 
490  if ( hist_cldfrac_id > 0 ) then
491  call file_history_query( hist_cldfrac_id, do_put )
492 
493  if ( do_put ) then
494  call atmos_phy_mp_vars_get_diagnostic( &
495  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
496  cldfrac=work(:,:,:,1) ) ! [OUT]
497  call file_history_put( hist_cldfrac_id, work(:,:,:,1) )
498  end if
499  end if
500 
501  if ( hist_re ) then
502  do ih = 1, n_hyd
503  if ( hist_re_id(ih) > 0 ) then
504  call file_history_query( hist_re_id(ih), do_put )
505  if ( do_put ) then
506  call atmos_phy_mp_vars_get_diagnostic( &
507  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
508  re=work(:,:,:,:) ) ! [OUT]
509  exit
510  end if
511  end if
512  end do
513  if ( do_put ) then
514  do ih = 1, n_hyd
515  if ( hist_re_id(ih) > 0 ) then
516  call file_history_query( hist_re_id(ih), do_put )
517  if ( do_put ) call file_history_put( hist_re_id(ih), work(:,:,:,ih) )
518  end if
519  end do
520  end if
521  end if
522 
523  if ( hist_qe ) then
524  do ih = 1, n_hyd
525  if ( hist_qe_id(ih) > 0 ) then
526  call file_history_query( hist_qe_id(ih), do_put )
527  if ( do_put ) then
528  call atmos_phy_mp_vars_get_diagnostic( &
529  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
530  qe=work(:,:,:,:) ) ! [OUT]
531  exit
532  end if
533  end if
534  end do
535  if ( do_put ) then
536  do ih = 1, n_hyd
537  if ( hist_qe_id(ih) > 0 ) then
538  call file_history_query( hist_qe_id(ih), do_put )
539  if( do_put ) call file_history_put( hist_qe_id(ih), work(:,:,:,ih) )
540  end if
541  end do
542  end if
543  end if
544 
545  if ( hist_ne ) then
546  do ih = 1, n_hyd
547  if ( hist_ne_id(ih) > 0 ) then
548  call file_history_query( hist_ne_id(ih), do_put )
549  if ( do_put ) then
550  call atmos_phy_mp_vars_get_diagnostic( &
551  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
552  ne=work(:,:,:,:) ) ! [OUT]
553  exit
554  end if
555  end if
556  end do
557  if ( do_put ) then
558  do ih = 1, n_hyd
559  if ( hist_ne_id(ih) > 0 ) then
560  call file_history_query( hist_ne_id(ih), do_put )
561  if( do_put ) call file_history_put( hist_ne_id(ih), work(:,:,:,ih) )
562  end if
563  end do
564  end if
565  end if
566 
567  return

References mod_atmos_admin::atmos_phy_mp_type, atmos_phy_mp_vars_get_diagnostic(), and scale_atmos_hydrometeor::n_hyd.

Referenced by mod_atmos_vars::atmos_vars_history().

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

◆ atmos_phy_mp_vars_get_diagnostic()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_get_diagnostic ( real(rp), dimension(ka,ia,ja), intent(in)  DENS,
real(rp), dimension(ka,ia,ja), intent(in)  TEMP,
real(rp), dimension(ka,ia,ja,qa), intent(in)  QTRC,
real(rp), dimension(ka,ia,ja), intent(out), optional  CLDFRAC,
real(rp), dimension (ka,ia,ja,n_hyd), intent(out), optional  Re,
real(rp), dimension (ka,ia,ja,n_hyd), intent(out), optional  Qe,
real(rp), dimension (ka,ia,ja,n_hyd), intent(out), optional  Ne 
)

Definition at line 573 of file mod_atmos_phy_mp_vars.F90.

573  use scale_atmos_hydrometeor, only: &
574  n_hyd, &
575  i_hc, &
576  i_hr, &
577  i_hi, &
578  i_hs, &
579  i_hg, &
580  i_hh
581  use scale_atmos_phy_mp_kessler, only: &
582  atmos_phy_mp_kessler_qtrc2qhyd, &
583  atmos_phy_mp_kessler_effective_radius, &
584  atmos_phy_mp_kessler_cloud_fraction
585  use scale_atmos_phy_mp_tomita08, only: &
586  atmos_phy_mp_tomita08_qtrc2qhyd, &
587  atmos_phy_mp_tomita08_effective_radius, &
588  atmos_phy_mp_tomita08_cloud_fraction
589  use scale_atmos_phy_mp_sn14, only: &
590  atmos_phy_mp_sn14_qtrc2qhyd, &
591  atmos_phy_mp_sn14_qtrc2nhyd, &
592  atmos_phy_mp_sn14_effective_radius, &
593  atmos_phy_mp_sn14_cloud_fraction
594  use scale_atmos_phy_mp_suzuki10, only: &
595  atmos_phy_mp_suzuki10_qtrc2qhyd, &
596  atmos_phy_mp_suzuki10_qtrc2nhyd, &
597  atmos_phy_mp_suzuki10_effective_radius, &
598  atmos_phy_mp_suzuki10_cloud_fraction
599  use mod_atmos_admin, only: &
600  atmos_phy_mp_type
601  implicit none
602 
603  real(RP), intent(in) :: DENS(KA,IA,JA)
604  real(RP), intent(in) :: TEMP(KA,IA,JA)
605  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
606  real(RP), intent(out), optional :: CLDFRAC(KA,IA,JA)
607  real(RP), intent(out), optional :: Re (KA,IA,JA,N_HYD)
608  real(RP), intent(out), optional :: Qe (KA,IA,JA,N_HYD)
609  real(RP), intent(out), optional :: Ne (KA,IA,JA,N_HYD)
610 
611  integer :: k, i, j, ih
612 
613  if ( present(cldfrac) ) then
614  if ( .not. diag_cldfrac ) then
615  select case ( atmos_phy_mp_type )
616  case ( 'KESSLER' )
617  call atmos_phy_mp_kessler_cloud_fraction( &
618  ka, ks, ke, ia, is, ie, ja, js, je, &
619  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
620  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
621  case ( 'TOMITA08' )
622  call atmos_phy_mp_tomita08_cloud_fraction( &
623  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
624  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
625  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
626  case ( 'SN14' )
627  call atmos_phy_mp_sn14_cloud_fraction( &
628  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
629  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
630  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
631  case ( 'SUZUKI10' )
632  call atmos_phy_mp_suzuki10_cloud_fraction( &
633  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
634  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
635  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
636  case default
637 !OCL XFILL
638  atmos_phy_mp_cldfrac(:,:,:) = 0.0_rp
639  end select
640  diag_cldfrac = .true.
641  end if
642 !OCL XFILL
643  do j = jsb, jeb
644  do i = isb, ieb
645  do k = ks, ke
646  cldfrac(k,i,j) = atmos_phy_mp_cldfrac(k,i,j)
647  end do
648  end do
649  end do
650  end if
651 
652  if ( present(re) ) then
653  if ( .not. diag_re ) then
654  select case ( atmos_phy_mp_type )
655  case ( 'KESSLER' )
656  call atmos_phy_mp_kessler_effective_radius( &
657  ka, ks, ke, ia, is, ie, ja, js, je, &
658  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
659  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
660  case ( 'TOMITA08' )
661  call atmos_phy_mp_tomita08_effective_radius( &
662  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
663  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
664  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
665  case ( 'SN14' )
666  call atmos_phy_mp_sn14_effective_radius( &
667  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
668  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
669  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
670  case ( 'SUZUKI10' )
671  call atmos_phy_mp_suzuki10_effective_radius( &
672  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
673  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
674  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
675  case default
676 !OCL XFILL
677  atmos_phy_mp_re(:,:,:,:) = 0.0_rp
678  end select
679  diag_re = .true.
680  end if
681 !OCL XFILL
682  do ih = 1, n_hyd
683  do j = jsb, jeb
684  do i = isb, ieb
685  do k = ks, ke
686  re(k,i,j,ih) = atmos_phy_mp_re(k,i,j,ih)
687  end do
688  end do
689  end do
690  end do
691  end if
692 
693  if ( present(qe) ) then
694  if ( .not. diag_qe ) then
695  select case ( atmos_phy_mp_type )
696  case ( 'KESSLER' )
697  call atmos_phy_mp_kessler_qtrc2qhyd( &
698  ka, ks, ke, ia, is, ie, ja, js, je, &
699  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
700  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
701  case ( 'TOMITA08' )
702  call atmos_phy_mp_tomita08_qtrc2qhyd( &
703  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
704  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
705  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
706  case ( 'SN14' )
707  call atmos_phy_mp_sn14_qtrc2qhyd( &
708  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
709  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
710  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
711  case ( 'SUZUKI10' )
712  call atmos_phy_mp_suzuki10_qtrc2qhyd( &
713  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
714  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
715  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
716  case default
717 !OCL XFILL
718  atmos_phy_mp_qe(:,:,:,:) = 0.0_rp
719  end select
720  diag_qe = .true.
721  end if
722 !OCL XFILL
723  do ih = 1, n_hyd
724  do j = jsb, jeb
725  do i = isb, ieb
726  do k = ks, ke
727  qe(k,i,j,ih) = atmos_phy_mp_qe(k,i,j,ih)
728  end do
729  end do
730  end do
731  end do
732  end if
733 
734  if ( present(ne) ) then
735  if ( .not. diag_ne ) then
736  select case ( atmos_phy_mp_type )
737  case ( 'KESSLER', 'TOMITA08' )
738  ! do nothing
739  case ( 'SN14' )
740  call atmos_phy_mp_sn14_qtrc2nhyd( &
741  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
742  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
743  atmos_phy_mp_ne(:,:,:,:) ) ! [OUT]
744  case ( 'SUZUKI10' )
745  call atmos_phy_mp_suzuki10_qtrc2nhyd( &
746  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
747  dens(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
748  atmos_phy_mp_ne(:,:,:,:) ) ! [OUT]
749  end select
750  diag_ne = .true.
751  end if
752 !OCL XFILL
753  do ih = 1, n_hyd
754  do j = jsb, jeb
755  do i = isb, ieb
756  do k = ks, ke
757  ne(k,i,j,ih) = atmos_phy_mp_ne(k,i,j,ih)
758  end do
759  end do
760  end do
761  end do
762  end if
763 
764  return

References atmos_phy_mp_cldfrac_thleshold, scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_cloud_fraction(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_effective_radius(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_qtrc2qhyd(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_cloud_fraction(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_effective_radius(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_qtrc2nhyd(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_qtrc2qhyd(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_cloud_fraction(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_effective_radius(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qtrc2nhyd(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qtrc2qhyd(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_cloud_fraction(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_effective_radius(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_qtrc2qhyd(), mod_atmos_admin::atmos_phy_mp_type, scale_atmos_hydrometeor::i_hc, scale_atmos_hydrometeor::i_hg, scale_atmos_hydrometeor::i_hh, scale_atmos_hydrometeor::i_hi, scale_atmos_hydrometeor::i_hr, scale_atmos_hydrometeor::i_hs, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::ieb, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::isb, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::jeb, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::jsb, scale_tracer::k, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, scale_atmos_hydrometeor::n_hyd, qe_mp, and qs_mp.

Referenced by atmos_phy_mp_vars_history(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), and mod_atmos_vars::atmos_vars_calc_diagnostics().

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

◆ atmos_phy_mp_vars_reset_diagnostics()

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_reset_diagnostics

Definition at line 768 of file mod_atmos_phy_mp_vars.F90.

768  diag_cldfrac = .false.
769  diag_re = .false.
770  diag_qe = .false.
771  diag_ne = .false.
772 
773  return

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

Referenced by mod_atmos_vars::atmos_vars_calc_diagnostics().

Here is the caller graph for this function:

Variable Documentation

◆ atmos_phy_mp_restart_output

logical, public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_output = .false.

output restart file?

Definition at line 50 of file mod_atmos_phy_mp_vars.F90.

50  logical, public :: ATMOS_PHY_MP_RESTART_OUTPUT = .false.

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

◆ atmos_phy_mp_restart_in_basename

character(len=h_long), public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_in_basename = ''

Basename of the input file.

Definition at line 52 of file mod_atmos_phy_mp_vars.F90.

52  character(len=H_LONG), public :: ATMOS_PHY_MP_RESTART_IN_BASENAME = ''

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

◆ atmos_phy_mp_restart_in_aggregate

logical, public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_in_aggregate

Switch to use aggregate file.

Definition at line 53 of file mod_atmos_phy_mp_vars.F90.

53  logical, public :: ATMOS_PHY_MP_RESTART_IN_AGGREGATE

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

◆ atmos_phy_mp_restart_in_postfix_timelabel

logical, public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 54 of file mod_atmos_phy_mp_vars.F90.

54  logical, public :: ATMOS_PHY_MP_RESTART_IN_POSTFIX_TIMELABEL = .false.

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

◆ atmos_phy_mp_restart_out_basename

character(len=h_long), public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_basename = ''

Basename of the output file.

Definition at line 55 of file mod_atmos_phy_mp_vars.F90.

55  character(len=H_LONG), public :: ATMOS_PHY_MP_RESTART_OUT_BASENAME = ''

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

◆ atmos_phy_mp_restart_out_aggregate

logical, public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_aggregate

Switch to use aggregate file.

Definition at line 56 of file mod_atmos_phy_mp_vars.F90.

56  logical, public :: ATMOS_PHY_MP_RESTART_OUT_AGGREGATE

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

◆ atmos_phy_mp_restart_out_postfix_timelabel

logical, public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 57 of file mod_atmos_phy_mp_vars.F90.

57  logical, public :: ATMOS_PHY_MP_RESTART_OUT_POSTFIX_TIMELABEL = .true.

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

◆ atmos_phy_mp_restart_out_title

character(len=h_mid), public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_title = 'ATMOS_PHY_MP restart'

title of the output file

Definition at line 58 of file mod_atmos_phy_mp_vars.F90.

58  character(len=H_MID), public :: ATMOS_PHY_MP_RESTART_OUT_TITLE = 'ATMOS_PHY_MP restart'

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

◆ atmos_phy_mp_restart_out_dtype

character(len=h_short), public mod_atmos_phy_mp_vars::atmos_phy_mp_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 59 of file mod_atmos_phy_mp_vars.F90.

59  character(len=H_SHORT), public :: ATMOS_PHY_MP_RESTART_OUT_DTYPE = 'DEFAULT'

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

◆ atmos_phy_mp_cldfrac_thleshold

real(rp), public mod_atmos_phy_mp_vars::atmos_phy_mp_cldfrac_thleshold

Definition at line 61 of file mod_atmos_phy_mp_vars.F90.

61  real(RP), public :: ATMOS_PHY_MP_cldfrac_thleshold

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), and atmos_phy_mp_vars_get_diagnostic().

◆ atmos_phy_mp_dens_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_dens_t

Definition at line 63 of file mod_atmos_phy_mp_vars.F90.

63  real(RP), public, allocatable :: ATMOS_PHY_MP_DENS_t(:,:,:) ! tendency DENS [kg/m3/s]

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), and atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_momz_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_momz_t

Definition at line 64 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), and atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_rhou_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhou_t

Definition at line 65 of file mod_atmos_phy_mp_vars.F90.

65  real(RP), public, allocatable :: ATMOS_PHY_MP_RHOU_t(:,:,:) ! tendency dens*U [kg/m2/s2]

Referenced by atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_rhov_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhov_t

Definition at line 66 of file mod_atmos_phy_mp_vars.F90.

66  real(RP), public, allocatable :: ATMOS_PHY_MP_RHOV_t(:,:,:) ! tendency dens*V [kg/m2/s2]

Referenced by atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_rhot_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhot_t

Definition at line 67 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_rhoq_t

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhoq_t

Definition at line 68 of file mod_atmos_phy_mp_vars.F90.

68  real(RP), public, allocatable :: ATMOS_PHY_MP_RHOQ_t(:,:,:,:) ! tendency rho*QTRC [kg/m3/s]

Referenced by atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_rhoc_t

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhoc_t

Definition at line 69 of file mod_atmos_phy_mp_vars.F90.

69  real(RP), public, allocatable :: ATMOS_PHY_MP_RHOC_t(:,:,:,:) ! tendency rho*QTRC (charge) [fC/m3/s]

Referenced by mod_atmos_phy_lt_vars::atmos_phy_lt_vars_setup().

◆ atmos_phy_mp_rhoh

real(rp), dimension (:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_rhoh

Definition at line 70 of file mod_atmos_phy_mp_vars.F90.

70  real(RP), public, allocatable :: ATMOS_PHY_MP_RHOH (:,:,:) ! diabatic heating rate [J/kg/s]

Referenced by atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_evaporate

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_evaporate

Definition at line 72 of file mod_atmos_phy_mp_vars.F90.

72  real(RP), public, allocatable :: ATMOS_PHY_MP_EVAPORATE(:,:,:) ! number concentration of evaporated cloud [/m3]

Referenced by mod_atmos_phy_ae_driver::atmos_phy_ae_driver_calc_tendency(), and atmos_phy_mp_vars_setup().

◆ atmos_phy_mp_sflx_rain

real(rp), dimension(:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_sflx_rain

Definition at line 73 of file mod_atmos_phy_mp_vars.F90.

73  real(RP), public, allocatable :: ATMOS_PHY_MP_SFLX_rain(:,:) ! precipitation flux (liquid) [kg/m2/s]

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), atmos_phy_mp_vars_fillhalo(), atmos_phy_mp_vars_setup(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_get_diagnostic_2d(), and mod_mkinit::flux_setup().

◆ atmos_phy_mp_sflx_snow

real(rp), dimension(:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_sflx_snow

Definition at line 74 of file mod_atmos_phy_mp_vars.F90.

74  real(RP), public, allocatable :: ATMOS_PHY_MP_SFLX_snow(:,:) ! precipitation flux (solid) [kg/m2/s]

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), atmos_phy_mp_vars_fillhalo(), atmos_phy_mp_vars_setup(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_get_diagnostic_2d(), and mod_mkinit::flux_setup().

◆ atmos_phy_mp_sflx_engi

real(rp), dimension(:,:), allocatable, public mod_atmos_phy_mp_vars::atmos_phy_mp_sflx_engi

Definition at line 75 of file mod_atmos_phy_mp_vars.F90.

75  real(RP), public, allocatable :: ATMOS_PHY_MP_SFLX_ENGI(:,:) ! internal energy flux [J/m2/s]

Referenced by mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), atmos_phy_mp_vars_fillhalo(), atmos_phy_mp_vars_setup(), and mod_atmos_driver::atmos_surface_set().

◆ qa_mp

integer, public mod_atmos_phy_mp_vars::qa_mp = 0

Definition at line 77 of file mod_atmos_phy_mp_vars.F90.

77  integer, public :: QA_MP = 0

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_send(), mod_atmos_bnd_driver::atmos_boundary_set_online(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_tracer_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_adjustment(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_qhyd2qtrc(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_qhyd2qtrc_onlyqv(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_tracer_setup(), mod_realinput_scale::parentatmosinputscale(), mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

◆ qs_mp

integer, public mod_atmos_phy_mp_vars::qs_mp = -1

Definition at line 78 of file mod_atmos_phy_mp_vars.F90.

78  integer, public :: QS_MP = -1

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_send(), mod_atmos_bnd_driver::atmos_boundary_driver_set(), mod_atmos_bnd_driver::atmos_boundary_driver_setup(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_tracer_setup(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_calc_tendency(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_tracer_setup(), atmos_phy_mp_vars_get_diagnostic(), atmos_phy_mp_vars_setup(), mod_mkinit::mkinit(), mod_realinput_scale::parentatmosinputscale(), mod_realinput::realinput_surface(), and mod_atmos_bnd_driver::update_ref_index().

◆ qe_mp

integer, public mod_atmos_phy_mp_vars::qe_mp = -2

Definition at line 79 of file mod_atmos_phy_mp_vars.F90.

79  integer, public :: QE_MP = -2

Referenced by mod_atmos_bnd_driver::atmos_boundary_driver_send(), mod_atmos_bnd_driver::atmos_boundary_driver_set(), mod_atmos_bnd_driver::atmos_boundary_driver_setup(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_tracer_setup(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_calc_tendency(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_tracer_setup(), atmos_phy_mp_vars_get_diagnostic(), atmos_phy_mp_vars_setup(), mod_mkinit::mkinit(), mod_realinput_scale::parentatmosinputscale(), and mod_realinput::realinput_surface().

scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_cloud_fraction
subroutine, public atmos_phy_mp_kessler_cloud_fraction(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC, mask_criterion, cldfrac)
Calculate Cloud Fraction.
Definition: scale_atmos_phy_mp_kessler.F90:392
scale_atmos_hydrometeor::num_name
character(len=h_short), dimension(n_hyd), parameter, public num_name
Definition: scale_atmos_hydrometeor.F90:92
scale_atmos_hydrometeor::hyd_desc
character(len=h_mid), dimension(n_hyd), parameter, public hyd_desc
Definition: scale_atmos_hydrometeor.F90:90
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_atmos_hydrometeor::i_hr
integer, parameter, public i_hr
liquid water rain
Definition: scale_atmos_hydrometeor.F90:82
scale_atmos_hydrometeor::i_hs
integer, parameter, public i_hs
snow
Definition: scale_atmos_hydrometeor.F90:84
scale_atmos_hydrometeor::hyd_name
character(len=h_short), dimension(n_hyd), parameter, public hyd_name
Definition: scale_atmos_hydrometeor.F90:88
scale_atmos_phy_mp_tomita08
module atmosphere / physics / microphysics / Tomita08
Definition: scale_atmos_phy_mp_tomita08.F90:13
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_admin
module ATMOS admin
Definition: mod_atmos_admin.F90:11
scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qtrc2qhyd
subroutine, public atmos_phy_mp_suzuki10_qtrc2qhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC0, Qe)
Calculate mass ratio of each category.
Definition: scale_atmos_phy_mp_suzuki10.F90:1567
scale_atmos_hydrometeor
module atmosphere / hydrometeor
Definition: scale_atmos_hydrometeor.F90:12
scale_atmos_hydrometeor::i_hh
integer, parameter, public i_hh
hail
Definition: scale_atmos_hydrometeor.F90:86
mod_atmos_vars::qtrc
real(rp), dimension(:,:,:,:), allocatable, target, public qtrc
Definition: mod_atmos_vars.F90:80
scale_file_history
module file_history
Definition: scale_file_history.F90:15
scale_file
module file
Definition: scale_file.F90:15
scale_atmos_phy_mp_sn14
module ATMOSPHERE / Physics Cloud Microphysics
Definition: scale_atmos_phy_mp_sn14.F90:51
scale_prc
module PROCESS
Definition: scale_prc.F90:11
scale_atmos_hydrometeor::i_hi
integer, parameter, public i_hi
ice water cloud
Definition: scale_atmos_hydrometeor.F90:83
scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_qtrc2qhyd
subroutine, public atmos_phy_mp_tomita08_qtrc2qhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC, Qe)
Calculate mass ratio of each category.
Definition: scale_atmos_phy_mp_tomita08.F90:2534
mod_atmos_vars::dens
real(rp), dimension(:,:,:), allocatable, target, public dens
Definition: mod_atmos_vars.F90:75
scale_const
module CONSTANT
Definition: scale_const.F90:11
scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_qtrc2nhyd
subroutine, public atmos_phy_mp_sn14_qtrc2nhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC0, Ne)
Calculate number concentration of each category.
Definition: scale_atmos_phy_mp_sn14.F90:952
scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_effective_radius
subroutine, public atmos_phy_mp_kessler_effective_radius(KA, KS, KE, IA, IS, IE, JA, JS, JE, DENS0, TEMP0, QTRC0, Re)
Calculate Effective Radius.
Definition: scale_atmos_phy_mp_kessler.F90:424
scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qtrc2nhyd
subroutine, public atmos_phy_mp_suzuki10_qtrc2nhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, DENS, QTRC0, Ne)
Calculate number concentration of each category.
Definition: scale_atmos_phy_mp_suzuki10.F90:1635
scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_effective_radius
subroutine, public atmos_phy_mp_tomita08_effective_radius(KA, KS, KE, IA, IS, IE, JA, JS, JE, DENS0, TEMP0, QTRC0, Re)
Calculate Effective Radius.
Definition: scale_atmos_phy_mp_tomita08.F90:2245
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1023
scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_qtrc2qhyd
subroutine, public atmos_phy_mp_kessler_qtrc2qhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC, Qe)
Calculate mass ratio of each category.
Definition: scale_atmos_phy_mp_kessler.F90:458
scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_effective_radius
subroutine, public atmos_phy_mp_suzuki10_effective_radius(KA, KS, KE, IA, IS, IE, JA, JS, JE, DENS0, TEMP0, QTRC0, Re)
Calculate Effective Radius.
Definition: scale_atmos_phy_mp_suzuki10.F90:1431
scale_atmos_phy_mp_suzuki10
module Spectran Bin Microphysics
Definition: scale_atmos_phy_mp_suzuki10.F90:23
scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_cloud_fraction
subroutine, public atmos_phy_mp_suzuki10_cloud_fraction(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC0, mask_criterion, cldfrac)
Calculate Cloud Fraction.
Definition: scale_atmos_phy_mp_suzuki10.F90:1374
scale_atmos_hydrometeor::qha
integer, public qha
Definition: scale_atmos_hydrometeor.F90:114
scale_atmos_phy_mp_kessler
module atmosphere / physics / microphysics / Kessler
Definition: scale_atmos_phy_mp_kessler.F90:14
scale_time
module TIME
Definition: scale_time.F90:11
scale_atmos_hydrometeor::i_hc
integer, parameter, public i_hc
liquid water cloud
Definition: scale_atmos_hydrometeor.F90:81
mod_atmos_phy_bl_vars::qe
integer, public qe
Definition: mod_atmos_phy_bl_vars.F90:45
scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_effective_radius
subroutine, public atmos_phy_mp_sn14_effective_radius(KA, KS, KE, IA, IS, IE, JA, JS, JE, DENS0, TEMP0, QTRC0, Re)
ATMOS_PHY_MP_sn14_effective_radius Calculate Effective Radius.
Definition: scale_atmos_phy_mp_sn14.F90:780
scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_qtrc2qhyd
subroutine, public atmos_phy_mp_sn14_qtrc2qhyd(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC0, Qe)
ATMOS_PHY_MP_sn14_qtrc2qhyd Calculate mass ratio of each category.
Definition: scale_atmos_phy_mp_sn14.F90:909
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_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_admin::atmos_phy_mp_type
character(len=h_short), public atmos_phy_mp_type
Definition: mod_atmos_admin.F90:36
scale_file_history::file_history_reg
subroutine, public file_history_reg(name, desc, unit, itemid, standard_name, ndims, dim_type, cell_measures, fill_halo)
Register/Append variable to history file.
Definition: scale_file_history.F90:650
scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_cloud_fraction
subroutine, public atmos_phy_mp_sn14_cloud_fraction(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC, mask_criterion, cldfrac)
ATMOS_PHY_MP_sn14_cloud_fraction Calculate Cloud Fraction.
Definition: scale_atmos_phy_mp_sn14.F90:742
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_cloud_fraction
subroutine, public atmos_phy_mp_tomita08_cloud_fraction(KA, KS, KE, IA, IS, IE, JA, JS, JE, QTRC, mask_criterion, cldfrac)
Calculate Cloud Fraction.
Definition: scale_atmos_phy_mp_tomita08.F90:2210
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_atmos_hydrometeor::n_hyd
integer, parameter, public n_hyd
Definition: scale_atmos_hydrometeor.F90:79
scale_atmos_hydrometeor::i_hg
integer, parameter, public i_hg
graupel
Definition: scale_atmos_hydrometeor.F90:85
Generated by   doxygen 1.8.17