SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_ae_vars Module Reference

module ATMOSPHERE / Physics Aerosol Microphysics More...

Functions/Subroutines

subroutine, public atmos_phy_ae_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_ae_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_ae_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_ae_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_ae_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_ae_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_ae_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_ae_vars_restart_def_var
 Write restart. More...
 
subroutine, public atmos_phy_ae_vars_restart_write
 Write restart. More...
 
subroutine, public atmos_phy_ae_vars_history (QTRC, RH)
 
subroutine, public atmos_phy_ae_vars_get_diagnostic (QTRC, RH, Re, Qe)
 
subroutine, public atmos_phy_ae_vars_reset_diagnostics
 

Variables

logical, public atmos_phy_ae_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_ae_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_ae_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_ae_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_ae_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_ae_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_ae_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_ae_restart_out_title = 'ATMOS_PHY_AE restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_ae_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_rhoq_t
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn_t
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_emit
 
integer, public qa_ae = 0
 
integer, public qs_ae = -1
 
integer, public qe_ae = -2
 

Detailed Description

module ATMOSPHERE / Physics Aerosol Microphysics

Description
Container for mod_atmos_phy_ae
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_AE_VARS
    nametypedefault valuecomment
    ATMOS_PHY_AE_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_AE_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_AE_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_AE_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_AE_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_AE_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_AE_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_AE_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_AE restart' title of the output file
    ATMOS_PHY_AE_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8

History Output
namedescriptionunitvariable
Qe_{AE_NAME} mass mixing ratio of {AE_NAME};
{AE_NAME} is AD, ASO, AVA, AS, AR, ASS, AU, AT, AOC.
kg/kg {'Qe_'//trim}
Re_{AE_NAME} effective radius of {AE_NAME};
{AE_NAME} is AD, ASO, AVA, AS, AR, ASS, AU, AT, AOC.
cm {'Re_'//trim}

Function/Subroutine Documentation

◆ atmos_phy_ae_vars_setup()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_setup

Setup.

Definition at line 109 of file mod_atmos_phy_ae_vars.F90.

109  use scale_prc, only: &
110  prc_abort
111  use scale_const, only: &
112  undef => const_undef
113  use scale_atmos_aerosol, only: &
114  n_ae, &
115  ae_name, &
116  ae_desc
117  use scale_file_history, only: &
119  implicit none
120 
121  namelist / param_atmos_phy_ae_vars / &
122  atmos_phy_ae_restart_in_basename, &
123  atmos_phy_ae_restart_in_aggregate, &
124  atmos_phy_ae_restart_in_postfix_timelabel, &
125  atmos_phy_ae_restart_output, &
126  atmos_phy_ae_restart_out_basename, &
127  atmos_phy_ae_restart_out_aggregate, &
128  atmos_phy_ae_restart_out_postfix_timelabel, &
129  atmos_phy_ae_restart_out_title, &
130  atmos_phy_ae_restart_out_dtype
131 
132  integer :: ierr
133  integer :: iv
134  !---------------------------------------------------------------------------
135 
136  log_newline
137  log_info("ATMOS_PHY_AE_vars_setup",*) 'Setup'
138 
139  allocate( atmos_phy_ae_rhoq_t(ka,ia,ja,qs_ae:qe_ae) )
140  atmos_phy_ae_rhoq_t(:,:,:, :) = undef
141 
142  allocate( atmos_phy_ae_ccn(ka,ia,ja) )
143  atmos_phy_ae_ccn(:,:,:) = undef
144 
145  allocate( atmos_phy_ae_ccn_t(ka,ia,ja) )
146  atmos_phy_ae_ccn_t(:,:,:) = undef
147 
148  allocate( atmos_phy_ae_emit(ka,ia,ja,qs_ae:qe_ae) )
149  atmos_phy_ae_emit(:,:,:,:) = 0.0_rp
150 
151  !--- read namelist
152  rewind(io_fid_conf)
153  read(io_fid_conf,nml=param_atmos_phy_ae_vars,iostat=ierr)
154  if( ierr < 0 ) then !--- missing
155  log_info("ATMOS_PHY_AE_vars_setup",*) 'Not found namelist. Default used.'
156  elseif( ierr > 0 ) then !--- fatal error
157  log_error("ATMOS_PHY_AE_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_AE_VARS. Check!'
158  call prc_abort
159  endif
160  log_nml(param_atmos_phy_ae_vars)
161 
162  log_newline
163  log_info("ATMOS_PHY_AE_vars_setup",*) '[ATMOS_PHY_AE] prognostic/diagnostic variables'
164  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
165  ' |', 'VARNAME ','|', &
166  'DESCRIPTION ', '[', 'UNIT ', ']'
167  do iv = 1, vmax
168  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
169  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
170  enddo
171 
172  log_newline
173  if ( atmos_phy_ae_restart_in_basename /= '' ) then
174  log_info("ATMOS_PHY_AE_vars_setup",*) 'Restart input? : YES, file = ', trim(atmos_phy_ae_restart_in_basename)
175  log_info("ATMOS_PHY_AE_vars_setup",*) 'Add timelabel? : ', atmos_phy_ae_restart_in_postfix_timelabel
176  else
177  log_info("ATMOS_PHY_AE_vars_setup",*) 'Restart input? : NO'
178  endif
179  if ( atmos_phy_ae_restart_output &
180  .AND. atmos_phy_ae_restart_out_basename /= '' ) then
181  log_info("ATMOS_PHY_AE_vars_setup",*) 'Restart output? : YES, file = ', trim(atmos_phy_ae_restart_out_basename)
182  log_info("ATMOS_PHY_AE_vars_setup",*) 'Add timelabel? : ', atmos_phy_ae_restart_out_postfix_timelabel
183  else
184  log_info("ATMOS_PHY_AE_vars_setup",*) 'Restart output? : NO'
185  atmos_phy_ae_restart_output = .false.
186  endif
187 
188  ! diagnostices
189  allocate( atmos_phy_ae_re(ka,ia,ja,n_ae) )
190  allocate( atmos_phy_ae_qe(ka,ia,ja,n_ae) )
191 !OCL XFILL
192  atmos_phy_ae_re(:,:,:,:) = undef
193 !OCL XFILL
194  atmos_phy_ae_qe(:,:,:,:) = undef
195  diag_re = .false.
196  diag_qe = .false.
197 
198  ! history
199  hist_re = .false.
200  allocate( hist_re_id(n_ae) )
201  do iv = 1, n_ae
202  call file_history_reg( 'Re_'//trim(ae_name(iv)), 'effective radius of '//trim(ae_desc(iv)), 'cm', hist_re_id(iv), fill_halo=.true., dim_type='ZXY' )
203  if ( hist_re_id(iv) > 0 ) hist_re = .true.
204  end do
205 
206  hist_qe = .false.
207  allocate( hist_qe_id(n_ae) )
208  do iv = 1, n_ae
209  call file_history_reg( 'Qe_'//trim(ae_name(iv)), 'mass mixing ratio of '//trim(ae_desc(iv)), 'kg/kg', hist_qe_id(iv), fill_halo=.true., dim_type='ZXY' )
210  if ( hist_qe_id(iv) > 0 ) hist_qe = .true.
211  end do
212 
213  return

References scale_atmos_aerosol::ae_desc, scale_atmos_aerosol::ae_name, atmos_phy_ae_ccn, atmos_phy_ae_ccn_t, atmos_phy_ae_emit, atmos_phy_ae_restart_in_aggregate, atmos_phy_ae_restart_in_basename, atmos_phy_ae_restart_in_postfix_timelabel, atmos_phy_ae_restart_out_aggregate, atmos_phy_ae_restart_out_basename, atmos_phy_ae_restart_out_dtype, atmos_phy_ae_restart_out_postfix_timelabel, atmos_phy_ae_restart_out_title, atmos_phy_ae_restart_output, atmos_phy_ae_rhoq_t, scale_const::const_undef, scale_file_history::file_history_reg(), 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_aerosol::n_ae, scale_prc::prc_abort(), qe_ae, and qs_ae.

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

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_fillhalo

HALO Communication.

Definition at line 219 of file mod_atmos_phy_ae_vars.F90.

219  use scale_comm_cartesc, only: &
220  comm_vars8, &
221  comm_wait
222  implicit none
223 
224  integer :: i, j
225  !---------------------------------------------------------------------------
226 
227  do j = js, je
228  do i = is, ie
229  atmos_phy_ae_ccn( 1:ks-1,i,j) = atmos_phy_ae_ccn(ks,i,j)
230  atmos_phy_ae_ccn(ke+1:ka, i,j) = atmos_phy_ae_ccn(ke,i,j)
231  enddo
232  enddo
233 
234  call comm_vars8( atmos_phy_ae_ccn(:,:,:), 1 )
235  call comm_wait ( atmos_phy_ae_ccn(:,:,:), 1 )
236 
237  return

References atmos_phy_ae_ccn, 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_ae_vars_restart_read(), and atmos_phy_ae_vars_restart_write().

Here is the caller graph for this function:

◆ atmos_phy_ae_vars_restart_open()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_open

Open restart file for read.

Definition at line 243 of file mod_atmos_phy_ae_vars.F90.

243  use scale_time, only: &
245  use scale_file_cartesc, only: &
247  implicit none
248 
249  character(len=19) :: timelabel
250  character(len=H_LONG) :: basename
251  !---------------------------------------------------------------------------
252 
253  log_newline
254  log_info("ATMOS_PHY_AE_vars_restart_open",*) 'Open restart file (ATMOS_PHY_AE) '
255 
256  if ( atmos_phy_ae_restart_in_basename /= '' ) then
257 
258  if ( atmos_phy_ae_restart_in_postfix_timelabel ) then
259  call time_gettimelabel( timelabel )
260  basename = trim(atmos_phy_ae_restart_in_basename)//'_'//trim(timelabel)
261  else
262  basename = trim(atmos_phy_ae_restart_in_basename)
263  endif
264 
265  log_info("ATMOS_PHY_AE_vars_restart_open",*) 'basename: ', trim(basename)
266 
267  call file_cartesc_open( basename, restart_fid, aggregate=atmos_phy_ae_restart_in_aggregate )
268  else
269  log_info("ATMOS_PHY_AE_vars_restart_open",*) 'restart file for ATMOS_PHY_AE is not specified.'
270  endif
271 
272  return

References atmos_phy_ae_restart_in_aggregate, atmos_phy_ae_restart_in_basename, atmos_phy_ae_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_ae_vars_restart_read()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_read

Read restart.

Definition at line 278 of file mod_atmos_phy_ae_vars.F90.

278  use scale_file, only: &
280  use scale_file_cartesc, only: &
281  file_cartesc_read, &
283  implicit none
284 
285  integer :: i, j
286  !---------------------------------------------------------------------------
287 
288  if ( restart_fid /= -1 ) then
289  log_newline
290  log_info("ATMOS_PHY_AE_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_AE) '
291 
292  call file_cartesc_read( restart_fid, var_name(1), 'ZXY', & ! [IN]
293  atmos_phy_ae_ccn(:,:,:) ) ! [OUT]
294 
295  if ( file_get_aggregate(restart_fid) ) then
296  call file_cartesc_flush( restart_fid ) ! X/Y halos have been read from file
297 
298  ! fill K halos
299  do j = 1, ja
300  do i = 1, ia
301  atmos_phy_ae_ccn( 1:ks-1,i,j) = atmos_phy_ae_ccn(ks,i,j)
302  atmos_phy_ae_ccn(ke+1:ka, i,j) = atmos_phy_ae_ccn(ke,i,j)
303  enddo
304  enddo
305  else
306  call atmos_phy_ae_vars_fillhalo
307  end if
308 
309  call atmos_phy_ae_vars_check
310 
311  else
312  log_info("ATMOS_PHY_AE_vars_restart_read",*) 'invlaid restart file ID for ATMOS_PHY_AE.'
313  endif
314 
315  return

References atmos_phy_ae_ccn, atmos_phy_ae_vars_fillhalo(), scale_file_cartesc::file_cartesc_flush(), scale_file::file_get_aggregate(), scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, and scale_atmos_grid_cartesc_index::ks.

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

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_create

Create restart file.

Definition at line 321 of file mod_atmos_phy_ae_vars.F90.

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

References atmos_phy_ae_restart_out_aggregate, atmos_phy_ae_restart_out_basename, atmos_phy_ae_restart_out_dtype, atmos_phy_ae_restart_out_postfix_timelabel, atmos_phy_ae_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_ae_vars_restart_enddef()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_enddef

Exit netCDF define mode.

Definition at line 358 of file mod_atmos_phy_ae_vars.F90.

358  use scale_file_cartesc, only: &
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_ae_vars_restart_close()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_close

Close restart file.

Definition at line 372 of file mod_atmos_phy_ae_vars.F90.

372  use scale_file_cartesc, only: &
374  implicit none
375  !---------------------------------------------------------------------------
376 
377  if ( restart_fid /= -1 ) then
378  log_newline
379  log_info("ATMOS_PHY_AE_vars_restart_close",*) 'Close restart file (ATMOS_PHY_AE) '
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_ae_vars_restart_def_var()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_def_var

Write restart.

Definition at line 392 of file mod_atmos_phy_ae_vars.F90.

392  use scale_file_cartesc, only: &
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_ae_restart_out_dtype, &
399  var_id(1) )
400  endif
401 
402  return

References atmos_phy_ae_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_ae_vars_restart_write()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_restart_write

Write restart.

Definition at line 408 of file mod_atmos_phy_ae_vars.F90.

408  use scale_file_cartesc, only: &
409  file_cartesc_write_var
410  implicit none
411  !---------------------------------------------------------------------------
412 
413  if ( restart_fid /= -1 ) then
414 
415  call atmos_phy_ae_vars_fillhalo
416 
417  call atmos_phy_ae_vars_check
418 
419  call file_cartesc_write_var( restart_fid, var_id(1), atmos_phy_ae_ccn(:,:,:), var_name(1), 'ZXY' ) ! [IN]
420 
421  endif
422 
423  return

References atmos_phy_ae_ccn, and atmos_phy_ae_vars_fillhalo().

Referenced by mod_atmos_vars::atmos_vars_restart_write().

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

◆ atmos_phy_ae_vars_history()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_history ( real(rp), dimension(ka,ia,ja,qa), intent(in)  QTRC,
real(rp), dimension(ka,ia,ja), intent(in)  RH 
)

Definition at line 428 of file mod_atmos_phy_ae_vars.F90.

428  use scale_tracer, only: &
429  qa
430  use scale_atmos_aerosol, only: &
431  n_ae
432  use scale_file_history, only: &
433  file_history_put
434  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
435  real(RP), intent(in) :: RH(KA,IA,JA)
436 
437  real(RP) :: WORK(KA,IA,JA,N_AE)
438  integer :: iv
439 
440  if ( hist_re ) then
441  call atmos_phy_ae_vars_get_diagnostic( &
442  qtrc(:,:,:,:), rh(:,:,:), & ! [IN]
443  re=work(:,:,:,:) ) ! [OUT]
444  do iv = 1, n_ae
445  if ( hist_re_id(iv) > 0 ) &
446  call file_history_put( hist_re_id(iv), work(:,:,:,iv) )
447  end do
448  end if
449 
450  if ( hist_qe ) then
451  call atmos_phy_ae_vars_get_diagnostic( &
452  qtrc(:,:,:,:), rh(:,:,:), & ! [IN]
453  qe=work(:,:,:,:) ) ! [OUT]
454  do iv = 1, n_ae
455  if ( hist_qe_id(iv) > 0 ) &
456  call file_history_put( hist_qe_id(iv), work(:,:,:,iv) )
457  end do
458  end if
459 
460  return

References atmos_phy_ae_vars_get_diagnostic(), scale_atmos_aerosol::n_ae, and scale_tracer::qa.

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

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_get_diagnostic ( real(rp), dimension(ka,ia,ja,qa), intent(in)  QTRC,
real(rp), dimension(ka,ia,ja), intent(in)  RH,
real(rp), dimension(ka,ia,ja,n_ae), intent(out), optional  Re,
real(rp), dimension(ka,ia,ja,n_ae), intent(out), optional  Qe 
)

Definition at line 466 of file mod_atmos_phy_ae_vars.F90.

466  use scale_time, only: &
468  use scale_tracer, only: &
469  qa
470  use scale_atmos_aerosol, only: &
471  n_ae
472  use scale_atmos_phy_ae_kajino13, only: &
474  use scale_atmos_phy_ae_offline, only: &
477  use mod_atmos_admin, only: &
479 
480  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
481  real(RP), intent(in) :: RH(KA,IA,JA)
482  real(RP), intent(out), optional :: Re(KA,IA,JA,N_AE)
483  real(RP), intent(out), optional :: Qe(KA,IA,JA,N_AE)
484 
485  if ( present(re) ) then
486  if ( .not. diag_re ) then
487 
488  select case ( atmos_phy_ae_type )
489  case ( 'KAJINO13' )
491  ka, ia, ja, qa_ae, &
492  qtrc(:,:,:,qs_ae:qe_ae), rh(:,:,:), & ! [IN]
493  atmos_phy_ae_re(:,:,:,:) ) ! [OUT]
494  case ( 'OFFLINE' )
496  ka, ia, ja, &
497  rh(:,:,:), & ! [IN]
498  atmos_phy_ae_re(:,:,:,:) ) ! [OUT]
499  case default
500  atmos_phy_ae_re(:,:,:,:) = 0.0_rp
501  end select
502 
503  diag_re = .true.
504  end if
505 !OCL XFILL
506  re(:,:,:,:) = atmos_phy_ae_re(:,:,:,:)
507  end if
508 
509  if ( present(qe) ) then
510  if ( .not. diag_qe ) then
511 
512  select case ( atmos_phy_ae_type )
513  case ( 'OFFLINE' )
515  ka, ia, ja, &
516  time_nowdaysec, &
517  atmos_phy_ae_qe(:,:,:,:) ) ! [OUT]
518  case default
519  atmos_phy_ae_qe(:,:,:,:) = 0.0_rp
520  end select
521 
522  diag_qe = .true.
523  end if
524 !OCL XFILL
525  qe(:,:,:,:) = atmos_phy_ae_qe(:,:,:,:)
526  end if
527 
528  return

References scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_effective_radius(), scale_atmos_phy_ae_offline::atmos_phy_ae_offline_effective_radius(), scale_atmos_phy_ae_offline::atmos_phy_ae_offline_qtrc2qaero(), mod_atmos_admin::atmos_phy_ae_type, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::ka, scale_atmos_aerosol::n_ae, scale_tracer::qa, qa_ae, qe_ae, qs_ae, and scale_time::time_nowdaysec.

Referenced by atmos_phy_ae_vars_history(), and mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency().

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

◆ atmos_phy_ae_vars_reset_diagnostics()

subroutine, public mod_atmos_phy_ae_vars::atmos_phy_ae_vars_reset_diagnostics

Variable Documentation

◆ atmos_phy_ae_restart_output

logical, public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_output = .false.

output restart file?

Definition at line 49 of file mod_atmos_phy_ae_vars.F90.

49  logical, public :: ATMOS_PHY_AE_RESTART_OUTPUT = .false.

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

◆ atmos_phy_ae_restart_in_basename

character(len=h_long), public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_in_basename = ''

Basename of the input file.

Definition at line 51 of file mod_atmos_phy_ae_vars.F90.

51  character(len=H_LONG), public :: ATMOS_PHY_AE_RESTART_IN_BASENAME = ''

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_open(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_in_aggregate

logical, public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_in_aggregate

Switch to use aggregate file.

Definition at line 52 of file mod_atmos_phy_ae_vars.F90.

52  logical, public :: ATMOS_PHY_AE_RESTART_IN_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_open(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_in_postfix_timelabel

logical, public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 53 of file mod_atmos_phy_ae_vars.F90.

53  logical, public :: ATMOS_PHY_AE_RESTART_IN_POSTFIX_TIMELABEL = .false.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_open(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_out_basename

character(len=h_long), public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_basename = ''

Basename of the output file.

Definition at line 54 of file mod_atmos_phy_ae_vars.F90.

54  character(len=H_LONG), public :: ATMOS_PHY_AE_RESTART_OUT_BASENAME = ''

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_create(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_out_aggregate

logical, public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_aggregate

Switch to use aggregate file.

Definition at line 55 of file mod_atmos_phy_ae_vars.F90.

55  logical, public :: ATMOS_PHY_AE_RESTART_OUT_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_create(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_out_postfix_timelabel

logical, public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 56 of file mod_atmos_phy_ae_vars.F90.

56  logical, public :: ATMOS_PHY_AE_RESTART_OUT_POSTFIX_TIMELABEL = .true.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_create(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_out_title

character(len=h_mid), public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_title = 'ATMOS_PHY_AE restart'

title of the output file

Definition at line 57 of file mod_atmos_phy_ae_vars.F90.

57  character(len=H_MID), public :: ATMOS_PHY_AE_RESTART_OUT_TITLE = 'ATMOS_PHY_AE restart'

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_create(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_restart_out_dtype

character(len=h_short), public mod_atmos_phy_ae_vars::atmos_phy_ae_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 58 of file mod_atmos_phy_ae_vars.F90.

58  character(len=H_SHORT), public :: ATMOS_PHY_AE_RESTART_OUT_DTYPE = 'DEFAULT'

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_ae_vars_restart_create(), atmos_phy_ae_vars_restart_def_var(), and atmos_phy_ae_vars_setup().

◆ atmos_phy_ae_rhoq_t

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_ae_vars::atmos_phy_ae_rhoq_t

Definition at line 60 of file mod_atmos_phy_ae_vars.F90.

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

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

◆ atmos_phy_ae_ccn

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_ae_vars::atmos_phy_ae_ccn

◆ atmos_phy_ae_ccn_t

real(rp), dimension(:,:,:), allocatable, public mod_atmos_phy_ae_vars::atmos_phy_ae_ccn_t

Definition at line 63 of file mod_atmos_phy_ae_vars.F90.

63  real(RP), public, allocatable :: ATMOS_PHY_AE_CCN_t(:,:,:) ! tendency CCN [/m3/s]

Referenced by mod_atmos_phy_ae_driver::atmos_phy_ae_driver_calc_tendency(), atmos_phy_ae_vars_setup(), and mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency().

◆ atmos_phy_ae_emit

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_ae_vars::atmos_phy_ae_emit

Definition at line 64 of file mod_atmos_phy_ae_vars.F90.

64  real(RP), public, allocatable :: ATMOS_PHY_AE_EMIT(:,:,:,:) ! emission of aerosol and gas

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

◆ qa_ae

integer, public mod_atmos_phy_ae_vars::qa_ae = 0

◆ qs_ae

integer, public mod_atmos_phy_ae_vars::qs_ae = -1

◆ qe_ae

integer, public mod_atmos_phy_ae_vars::qe_ae = -2
scale_atmos_phy_ae_kajino13
module atmosphere / physics / aerosol / Kajino13
Definition: scale_atmos_phy_ae_kajino13.F90:12
scale_time::time_nowdaysec
real(dp), public time_nowdaysec
second of current time [sec]
Definition: scale_time.F90:70
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:34
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_aerosol::n_ae
integer, parameter, public n_ae
Definition: scale_atmos_aerosol.F90:33
scale_atmos_aerosol::ae_desc
character(len=h_mid), dimension(n_ae), parameter, public ae_desc
Definition: scale_atmos_aerosol.F90:44
scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_effective_radius
subroutine, public atmos_phy_ae_kajino13_effective_radius(KA, IA, JA, QA_AE, QTRC, RH, Re)
Calculate Effective Radius.
Definition: scale_atmos_phy_ae_kajino13.F90:897
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_prc
module PROCESS
Definition: scale_prc.F90:11
scale_const
module CONSTANT
Definition: scale_const.F90:11
mod_atmos_phy_ae_vars::atmos_phy_ae_emit
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_emit
Definition: mod_atmos_phy_ae_vars.F90:64
mod_atmos_phy_ae_vars::qa_ae
integer, public qa_ae
Definition: mod_atmos_phy_ae_vars.F90:66
scale_atmos_phy_ae_offline::atmos_phy_ae_offline_effective_radius
subroutine, public atmos_phy_ae_offline_effective_radius(KA, IA, JA, RH, Re)
Calculate Effective Radius.
Definition: scale_atmos_phy_ae_offline.F90:242
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_ae_offline
module atmosphere / physics / aerosol / offline
Definition: scale_atmos_phy_ae_offline.F90:12
scale_time
module TIME
Definition: scale_time.F90:11
mod_atmos_admin::atmos_phy_ae_type
character(len=h_short), public atmos_phy_ae_type
Definition: mod_atmos_admin.F90:37
scale_tracer
module TRACER
Definition: scale_tracer.F90:12
scale_atmos_aerosol
module atmosphere / aerosol
Definition: scale_atmos_aerosol.F90:12
mod_atmos_phy_ae_vars::atmos_phy_ae_ccn
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn
Definition: mod_atmos_phy_ae_vars.F90:62
scale_atmos_phy_ae_offline::atmos_phy_ae_offline_qtrc2qaero
subroutine, public atmos_phy_ae_offline_qtrc2qaero(KA, IA, JA, time_now, Qe)
Calculate Effective Radius.
Definition: scale_atmos_phy_ae_offline.F90:283
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
mod_atmos_phy_ae_vars::atmos_phy_ae_rhoq_t
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_ae_rhoq_t
Definition: mod_atmos_phy_ae_vars.F90:60
mod_atmos_phy_ae_vars::qs_ae
integer, public qs_ae
Definition: mod_atmos_phy_ae_vars.F90:67
scale_atmos_aerosol::ae_name
character(len=h_short), dimension(n_ae), parameter, public ae_name
Definition: scale_atmos_aerosol.F90:42
scale_file::file_get_aggregate
logical function, public file_get_aggregate(fid)
Definition: scale_file.F90:4844
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
mod_atmos_phy_ae_vars::atmos_phy_ae_ccn_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_ae_ccn_t
Definition: mod_atmos_phy_ae_vars.F90:63
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
mod_atmos_phy_ae_vars::qe_ae
integer, public qe_ae
Definition: mod_atmos_phy_ae_vars.F90:68