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_finalize
 Finalize. 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 127 of file mod_atmos_phy_mp_vars.F90.

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

subroutine, public mod_atmos_phy_mp_vars::atmos_phy_mp_vars_finalize

Finalize.

Definition at line 274 of file mod_atmos_phy_mp_vars.F90.

274  implicit none
275  !---------------------------------------------------------------------------
276 
277  log_newline
278  log_info("ATMOS_PHY_MP_vars_finalize",*) 'Finalize'
279 
280  !$acc exit data delete(ATMOS_PHY_MP_DENS_t,ATMOS_PHY_MP_MOMZ_t,ATMOS_PHY_MP_RHOU_t,ATMOS_PHY_MP_RHOV_t,ATMOS_PHY_MP_RHOT_t,ATMOS_PHY_MP_RHOH,ATMOS_PHY_MP_EVAPORATE)
281  deallocate( atmos_phy_mp_dens_t )
282  deallocate( atmos_phy_mp_momz_t )
283  deallocate( atmos_phy_mp_rhou_t )
284  deallocate( atmos_phy_mp_rhov_t )
285  deallocate( atmos_phy_mp_rhot_t )
286  deallocate( atmos_phy_mp_rhoq_t )
287  deallocate( atmos_phy_mp_rhoh )
288  deallocate( atmos_phy_mp_evaporate )
289 
290  !$acc exit data delete(ATMOS_PHY_MP_SFLX_rain,ATMOS_PHY_MP_SFLX_snow,ATMOS_PHY_MP_SFLX_ENGI)
291  deallocate( atmos_phy_mp_sflx_rain )
292  deallocate( atmos_phy_mp_sflx_snow )
293  deallocate( atmos_phy_mp_sflx_engi )
294 
295  ! diagnostices
296  !$acc exit data delete(ATMOS_PHY_MP_CLDFRAC,ATMOS_PHY_MP_Re,ATMOS_PHY_MP_Qe,ATMOS_PHY_MP_Ne)
297  deallocate( atmos_phy_mp_cldfrac )
298  deallocate( atmos_phy_mp_re )
299  deallocate( atmos_phy_mp_qe )
300  deallocate( atmos_phy_mp_ne )
301 
302 
303  ! history
304  deallocate( hist_re_id )
305  deallocate( hist_qe_id )
306  deallocate( hist_ne_id )
307 
308  return

References atmos_phy_mp_dens_t, atmos_phy_mp_evaporate, atmos_phy_mp_momz_t, 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, and atmos_phy_mp_sflx_snow.

Referenced by mod_atmos_vars::atmos_vars_finalize().

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 314 of file mod_atmos_phy_mp_vars.F90.

314  use scale_comm_cartesc, only: &
315  comm_vars8, &
316  comm_wait
317  implicit none
318  !---------------------------------------------------------------------------
319 
320  call comm_vars8( atmos_phy_mp_sflx_rain(:,:), 1 )
321  call comm_vars8( atmos_phy_mp_sflx_snow(:,:), 2 )
322  call comm_vars8( atmos_phy_mp_sflx_engi(:,:), 3 )
323  call comm_wait ( atmos_phy_mp_sflx_rain(:,:), 1 )
324  call comm_wait ( atmos_phy_mp_sflx_snow(:,:), 2 )
325  call comm_wait ( atmos_phy_mp_sflx_engi(:,:), 3 )
326 
327  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 333 of file mod_atmos_phy_mp_vars.F90.

333  use scale_time, only: &
334  time_gettimelabel
335  use scale_file_cartesc, only: &
336  file_cartesc_open
337  implicit none
338 
339  character(len=19) :: timelabel
340  character(len=H_LONG) :: basename
341  !---------------------------------------------------------------------------
342 
343 !!$ LOG_NEWLINE
344 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'Open restart file (ATMOS_PHY_MP) '
345 !!$
346 !!$ if ( ATMOS_PHY_MP_RESTART_IN_BASENAME /= '' ) then
347 !!$
348 !!$ if ( ATMOS_PHY_MP_RESTART_IN_POSTFIX_TIMELABEL ) then
349 !!$ call TIME_gettimelabel( timelabel )
350 !!$ basename = trim(ATMOS_PHY_MP_RESTART_IN_BASENAME)//'_'//trim(timelabel)
351 !!$ else
352 !!$ basename = trim(ATMOS_PHY_MP_RESTART_IN_BASENAME)
353 !!$ endif
354 !!$
355 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'basename: ', trim(basename)
356 !!$
357 !!$ call FILE_CARTESC_open( basename, restart_fid, aggregate=ATMOS_PHY_MP_RESTART_IN_AGGREGATE )
358 !!$ else
359 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_open",*) 'restart file for ATMOS_PHY_MP is not specified.'
360 !!$ endif
361 
362  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 368 of file mod_atmos_phy_mp_vars.F90.

368  use scale_file, only: &
369  file_get_aggregate
370  use scale_file_cartesc, only: &
371  file_cartesc_read, &
372  file_cartesc_flush
373  implicit none
374 
375  !---------------------------------------------------------------------------
376 
377 !!$ if ( restart_fid /= -1 ) then
378 !!$ LOG_NEWLINE
379 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_MP) '
380 !!$
381 !!$ call FILE_CARTESC_read( restart_fid, VAR_NAME(1), 'XY', & ! [IN]
382 !!$ ATMOS_PHY_MP_hoge(:,:) ) ! [OUT]
383 !!$
384 !!$ if ( FILE_get_AGGREGATE(restart_fid) ) then
385 !!$ call FILE_CARTESC_flush( restart_fid ) ! X/Y halos have been read from file
386 !!$ !$acc update device(ATMOS_PHY_MP_hoge)
387 !!$ else
388 !!$ call ATMOS_PHY_MP_vars_fillhalo
389 !!$ end if
390 !!$
391 !!$ call ATMOS_PHY_MP_vars_check
392 !!$
393 !!$ else
394 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_read",*) 'invalid restart file ID for ATMOS_PHY_MP.'
395 !!$ endif
396 
397  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 403 of file mod_atmos_phy_mp_vars.F90.

403  use scale_time, only: &
404  time_gettimelabel
405  use scale_file_cartesc, only: &
406  file_cartesc_create
407  implicit none
408 
409  character(len=19) :: timelabel
410  character(len=H_LONG) :: basename
411  !---------------------------------------------------------------------------
412 
413 !!$ if ( ATMOS_PHY_MP_RESTART_OUT_BASENAME /= '' ) then
414 !!$
415 !!$ LOG_NEWLINE
416 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_create",*) 'Create restart file (ATMOS_PHY_AE) '
417 !!$
418 !!$ if ( ATMOS_PHY_MP_RESTART_OUT_POSTFIX_TIMELABEL ) then
419 !!$ call TIME_gettimelabel( timelabel )
420 !!$ basename = trim(ATMOS_PHY_MP_RESTART_OUT_BASENAME)//'_'//trim(timelabel)
421 !!$ else
422 !!$ basename = trim(ATMOS_PHY_MP_RESTART_OUT_BASENAME)
423 !!$ endif
424 !!$
425 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_create",*) 'basename: ', trim(basename)
426 !!$
427 !!$ call FILE_CARTESC_create( &
428 !!$ basename, ATMOS_PHY_MP_RESTART_OUT_TITLE, ATMOS_PHY_MP_RESTART_OUT_DTYPE, & ! [IN]
429 !!$ restart_fid, & ! [OUT]
430 !!$ aggregate=ATMOS_PHY_MP_RESTART_OUT_AGGREGATE ) ! [IN]
431 !!$
432 !!$ endif
433 
434  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 440 of file mod_atmos_phy_mp_vars.F90.

440  use scale_file_cartesc, only: &
441  file_cartesc_enddef
442  implicit none
443 
444 !!$ if ( restart_fid /= -1 ) then
445 !!$ call FILE_CARTESC_enddef( restart_fid ) ! [IN]
446 !!$ endif
447 
448  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 454 of file mod_atmos_phy_mp_vars.F90.

454  use scale_file_cartesc, only: &
455  file_cartesc_close
456  implicit none
457  !---------------------------------------------------------------------------
458 
459 !!$ if ( restart_fid /= -1 ) then
460 !!$ LOG_NEWLINE
461 !!$ LOG_INFO("ATMOS_PHY_MP_vars_restart_close",*) 'Close restart file (ATMOS_PHY_MP) '
462 !!$
463 !!$ call FILE_CARTESC_close( restart_fid ) ! [IN]
464 !!$
465 !!$ restart_fid = -1
466 !!$ endif
467 
468  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 474 of file mod_atmos_phy_mp_vars.F90.

474  use scale_file_cartesc, only: &
475  file_cartesc_def_var
476  implicit none
477  integer :: iv
478  !---------------------------------------------------------------------------
479 
480 !!$ if ( restart_fid /= -1 ) then
481 !!$
482 !!$ do iv = 1, VMAX
483 !!$ call FILE_CARTESC_def_var( restart_fid, VAR_NAME(iv), VAR_DESC(iv), VAR_UNIT(iv), &
484 !!$ 'XY', ATMOS_PHY_MP_RESTART_OUT_DTYPE, &
485 !!$ VAR_ID(iv) )
486 !!$ end do
487 !!$
488 !!$ endif
489 
490  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 496 of file mod_atmos_phy_mp_vars.F90.

496  use scale_file_cartesc, only: &
497  file_cartesc_write_var
498  implicit none
499  !---------------------------------------------------------------------------
500 
501 !!$ if ( restart_fid /= -1 ) then
502 !!$
503 !!$ call ATMOS_PHY_MP_vars_fillhalo
504 !!$
505 !!$ call ATMOS_PHY_MP_vars_check
506 !!$
507 !!$ call FILE_CARTESC_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_MP_hoge(:,:), &
508 !!$ VAR_NAME(1), 'XY' ) ! [IN]
509 !!$
510 !!$ endif
511 
512  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 518 of file mod_atmos_phy_mp_vars.F90.

518  use scale_atmos_hydrometeor, only: &
519  n_hyd
520  use scale_file_history, only: &
521  file_history_query, &
522  file_history_put
523  use mod_atmos_admin, only: &
524  atmos_phy_mp_type
525  implicit none
526 
527  real(RP), intent(in) :: DENS(KA,IA,JA)
528  real(RP), intent(in) :: TEMP(KA,IA,JA)
529  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
530 
531  real(RP) :: WORK (KA,IA,JA,N_HYD)
532  logical :: do_put
533  integer :: ih
534  !---------------------------------------------------------------------------
535 
536  !$acc data create(WORK)
537 
538  if ( hist_cldfrac_id > 0 ) then
539  call file_history_query( hist_cldfrac_id, do_put )
540 
541  if ( do_put ) then
542  call atmos_phy_mp_vars_get_diagnostic( &
543  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
544  cldfrac=work(:,:,:,1) ) ! [OUT]
545  call file_history_put( hist_cldfrac_id, work(:,:,:,1) )
546  end if
547  end if
548 
549  if ( hist_re ) then
550  do ih = 1, n_hyd
551  if ( hist_re_id(ih) > 0 ) then
552  call file_history_query( hist_re_id(ih), do_put )
553  if ( do_put ) then
554  call atmos_phy_mp_vars_get_diagnostic( &
555  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
556  re=work(:,:,:,:) ) ! [OUT]
557  exit
558  end if
559  end if
560  end do
561  if ( do_put ) then
562  do ih = 1, n_hyd
563  if ( hist_re_id(ih) > 0 ) then
564  call file_history_query( hist_re_id(ih), do_put )
565  if ( do_put ) then
566  call file_history_put( hist_re_id(ih), work(:,:,:,ih) )
567  end if
568  end if
569  end do
570  end if
571  end if
572 
573  if ( hist_qe ) then
574  do ih = 1, n_hyd
575  if ( hist_qe_id(ih) > 0 ) then
576  call file_history_query( hist_qe_id(ih), do_put )
577  if ( do_put ) then
578  call atmos_phy_mp_vars_get_diagnostic( &
579  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
580  qe=work(:,:,:,:) ) ! [OUT]
581  exit
582  end if
583  end if
584  end do
585  if ( do_put ) then
586  do ih = 1, n_hyd
587  if ( hist_qe_id(ih) > 0 ) then
588  call file_history_query( hist_qe_id(ih), do_put )
589  if( do_put ) then
590  call file_history_put( hist_qe_id(ih), work(:,:,:,ih) )
591  end if
592  end if
593  end do
594  end if
595  end if
596 
597  if ( hist_ne ) then
598  do ih = 1, n_hyd
599  if ( hist_ne_id(ih) > 0 ) then
600  call file_history_query( hist_ne_id(ih), do_put )
601  if ( do_put ) then
602  call atmos_phy_mp_vars_get_diagnostic( &
603  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,:), & ! [IN]
604  ne=work(:,:,:,:) ) ! [OUT]
605  exit
606  end if
607  end if
608  end do
609  if ( do_put ) then
610  do ih = 1, n_hyd
611  if ( hist_ne_id(ih) > 0 ) then
612  call file_history_query( hist_ne_id(ih), do_put )
613  if( do_put ) then
614  call file_history_put( hist_ne_id(ih), work(:,:,:,ih) )
615  end if
616  end if
617  end do
618  end if
619  end if
620 
621  !$acc end data
622 
623  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 629 of file mod_atmos_phy_mp_vars.F90.

629  use scale_atmos_hydrometeor, only: &
630  n_hyd, &
631  i_hc, &
632  i_hr, &
633  i_hi, &
634  i_hs, &
635  i_hg, &
636  i_hh
637  use scale_atmos_phy_mp_kessler, only: &
638  atmos_phy_mp_kessler_qtrc2qhyd, &
639  atmos_phy_mp_kessler_effective_radius, &
640  atmos_phy_mp_kessler_cloud_fraction
641  use scale_atmos_phy_mp_tomita08, only: &
642  atmos_phy_mp_tomita08_qtrc2qhyd, &
643  atmos_phy_mp_tomita08_effective_radius, &
644  atmos_phy_mp_tomita08_cloud_fraction
645  use scale_atmos_phy_mp_sn14, only: &
646  atmos_phy_mp_sn14_qtrc2qhyd, &
647  atmos_phy_mp_sn14_qtrc2nhyd, &
648  atmos_phy_mp_sn14_effective_radius, &
649  atmos_phy_mp_sn14_cloud_fraction
650  use scale_atmos_phy_mp_suzuki10, only: &
651  atmos_phy_mp_suzuki10_qtrc2qhyd, &
652  atmos_phy_mp_suzuki10_qtrc2nhyd, &
653  atmos_phy_mp_suzuki10_effective_radius, &
654  atmos_phy_mp_suzuki10_cloud_fraction
655  use mod_atmos_admin, only: &
656  atmos_phy_mp_type
657  implicit none
658 
659  real(RP), intent(in) :: DENS(KA,IA,JA)
660  real(RP), intent(in) :: TEMP(KA,IA,JA)
661  real(RP), intent(in) :: QTRC(KA,IA,JA,QA)
662  real(RP), intent(out), optional :: CLDFRAC(KA,IA,JA)
663  real(RP), intent(out), optional :: Re (KA,IA,JA,N_HYD)
664  real(RP), intent(out), optional :: Qe (KA,IA,JA,N_HYD)
665  real(RP), intent(out), optional :: Ne (KA,IA,JA,N_HYD)
666 
667  integer :: k, i, j, ih
668 
669  if ( present(cldfrac) ) then
670  !$acc data copyout(CLDFRAC)
671  if ( .not. diag_cldfrac ) then
672  select case ( atmos_phy_mp_type )
673  case ( 'KESSLER' )
674  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
675  call atmos_phy_mp_kessler_cloud_fraction( &
676  ka, ks, ke, ia, is, ie, ja, js, je, &
677  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
678  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
679  !$acc update device(ATMOS_PHY_MP_CLDFRAC)
680  case ( 'TOMITA08' )
681  call atmos_phy_mp_tomita08_cloud_fraction( &
682  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
683  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
684  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
685  case ( 'SN14' )
686  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
687  call atmos_phy_mp_sn14_cloud_fraction( &
688  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
689  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
690  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
691  !$acc update device(ATMOS_PHY_MP_CLDFRAC)
692  case ( 'SUZUKI10' )
693  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
694  call atmos_phy_mp_suzuki10_cloud_fraction( &
695  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
696  qtrc(:,:,:,qs_mp+1:qe_mp), atmos_phy_mp_cldfrac_thleshold, & ! [IN]
697  atmos_phy_mp_cldfrac(:,:,:) ) ! [OUT]
698  !$acc update device(ATMOS_PHY_MP_CLDFRAC)
699  case default
700 !OCL XFILL
701  !$acc kernels
702  atmos_phy_mp_cldfrac(:,:,:) = 0.0_rp
703  !$acc end kernels
704  end select
705  diag_cldfrac = .true.
706  end if
707 !OCL XFILL
708  !$acc kernels
709  do j = jsb, jeb
710  do i = isb, ieb
711  do k = ks, ke
712  cldfrac(k,i,j) = atmos_phy_mp_cldfrac(k,i,j)
713  end do
714  end do
715  end do
716  !$acc end kernels
717 
718  !$acc end data
719  end if
720 
721  if ( present(re) ) then
722  !$acc data copyout(Re)
723  if ( .not. diag_re ) then
724  select case ( atmos_phy_mp_type )
725  case ( 'KESSLER' )
726  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
727  call atmos_phy_mp_kessler_effective_radius( &
728  ka, ks, ke, ia, is, ie, ja, js, je, &
729  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
730  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
731  !$acc update device(ATMOS_PHY_MP_Re)
732  case ( 'TOMITA08' )
733  call atmos_phy_mp_tomita08_effective_radius( &
734  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
735  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
736  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
737  case ( 'SN14' )
738  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
739  call atmos_phy_mp_sn14_effective_radius( &
740  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
741  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
742  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
743  !$acc update device(ATMOS_PHY_MP_Re)
744  case ( 'SUZUKI10' )
745  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
746  call atmos_phy_mp_suzuki10_effective_radius( &
747  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
748  dens(:,:,:), temp(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
749  atmos_phy_mp_re(:,:,:,:) ) ! [OUT]
750  !$acc update device(ATMOS_PHY_MP_Re)
751  case default
752 !OCL XFILL
753  !$acc kernels
754  atmos_phy_mp_re(:,:,:,:) = 0.0_rp
755  !$acc end kernels
756  end select
757  diag_re = .true.
758  end if
759 !OCL XFILL
760  !$acc kernels
761  do ih = 1, n_hyd
762  do j = jsb, jeb
763  do i = isb, ieb
764  do k = ks, ke
765  re(k,i,j,ih) = atmos_phy_mp_re(k,i,j,ih)
766  end do
767  end do
768  end do
769  end do
770  !$acc end kernels
771 
772  !$acc end data
773  end if
774 
775  if ( present(qe) ) then
776  !$acc data copyout(Qe)
777  if ( .not. diag_qe ) then
778  select case ( atmos_phy_mp_type )
779  case ( 'KESSLER' )
780  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
781  call atmos_phy_mp_kessler_qtrc2qhyd( &
782  ka, ks, ke, ia, is, ie, ja, js, je, &
783  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
784  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
785  !$acc update device(ATMOS_PHY_MP_Qe)
786  case ( 'TOMITA08' )
787  call atmos_phy_mp_tomita08_qtrc2qhyd( &
788  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
789  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
790  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
791  case ( 'SN14' )
792  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
793  call atmos_phy_mp_sn14_qtrc2qhyd( &
794  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
795  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
796  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
797  !$acc update device(ATMOS_PHY_MP_Qe)
798  case ( 'SUZUKI10' )
799  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
800  call atmos_phy_mp_suzuki10_qtrc2qhyd( &
801  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
802  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
803  atmos_phy_mp_qe(:,:,:,:) ) ! [OUT]
804  !$acc update device(ATMOS_PHY_MP_Qe)
805  case default
806 !OCL XFILL
807  !$acc kernels
808  atmos_phy_mp_qe(:,:,:,:) = 0.0_rp
809  !$acc end kernels
810  end select
811  diag_qe = .true.
812  end if
813 !OCL XFILL
814  !$acc kernels
815  do ih = 1, n_hyd
816  do j = jsb, jeb
817  do i = isb, ieb
818  do k = ks, ke
819  qe(k,i,j,ih) = atmos_phy_mp_qe(k,i,j,ih)
820  end do
821  end do
822  end do
823  end do
824  !$acc end kernels
825 
826  !$acc end data
827  end if
828 
829  if ( present(ne) ) then
830  !$acc data copyout(Ne)
831  if ( .not. diag_ne ) then
832  select case ( atmos_phy_mp_type )
833  case ( 'KESSLER', 'TOMITA08' )
834  ! do nothing
835  case ( 'SN14' )
836  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
837  call atmos_phy_mp_sn14_qtrc2nhyd( &
838  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
839  qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
840  atmos_phy_mp_ne(:,:,:,:) ) ! [OUT]
841  !$acc update device(ATMOS_PHY_MP_Ne)
842  case ( 'SUZUKI10' )
843  !$acc update host(QTRC(:,:,:,QS_MP+1:QE_MP))
844  call atmos_phy_mp_suzuki10_qtrc2nhyd( &
845  ka, ks, ke, ia, isb, ieb, ja, jsb, jeb, &
846  dens(:,:,:), qtrc(:,:,:,qs_mp+1:qe_mp), & ! [IN]
847  atmos_phy_mp_ne(:,:,:,:) ) ! [OUT]
848  !$acc update device(ATMOS_PHY_MP_Ne)
849  end select
850  diag_ne = .true.
851  end if
852 !OCL XFILL
853  !$acc kernels
854  do ih = 1, n_hyd
855  do j = jsb, jeb
856  do i = isb, ieb
857  do k = ks, ke
858  ne(k,i,j,ih) = atmos_phy_mp_ne(k,i,j,ih)
859  end do
860  end do
861  end do
862  end do
863  !$acc end kernels
864 
865  !$acc end data
866  end if
867 
868  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 872 of file mod_atmos_phy_mp_vars.F90.

872  diag_cldfrac = .false.
873  diag_re = .false.
874  diag_qe = .false.
875  diag_ne = .false.
876 
877  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 51 of file mod_atmos_phy_mp_vars.F90.

51  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 53 of file mod_atmos_phy_mp_vars.F90.

53  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 54 of file mod_atmos_phy_mp_vars.F90.

54  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 55 of file mod_atmos_phy_mp_vars.F90.

55  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 56 of file mod_atmos_phy_mp_vars.F90.

56  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 57 of file mod_atmos_phy_mp_vars.F90.

57  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 58 of file mod_atmos_phy_mp_vars.F90.

58  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 59 of file mod_atmos_phy_mp_vars.F90.

59  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 60 of file mod_atmos_phy_mp_vars.F90.

60  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 62 of file mod_atmos_phy_mp_vars.F90.

62  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 64 of file mod_atmos_phy_mp_vars.F90.

64  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(), atmos_phy_mp_vars_finalize(), 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 65 of file mod_atmos_phy_mp_vars.F90.

65  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(), atmos_phy_mp_vars_finalize(), 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 66 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_finalize(), and 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 67 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_finalize(), and 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 68 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_finalize(), and 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 69 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_finalize(), and 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 70 of file mod_atmos_phy_mp_vars.F90.

70  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_finalize(), and 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 71 of file mod_atmos_phy_mp_vars.F90.

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

Referenced by atmos_phy_mp_vars_finalize(), and 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 73 of file mod_atmos_phy_mp_vars.F90.

73  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(), atmos_phy_mp_vars_finalize(), 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 74 of file mod_atmos_phy_mp_vars.F90.

74  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_finalize(), 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 75 of file mod_atmos_phy_mp_vars.F90.

75  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_finalize(), 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 76 of file mod_atmos_phy_mp_vars.F90.

76  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_finalize(), 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 78 of file mod_atmos_phy_mp_vars.F90.

78  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_qhyd2qtrc(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_qhyd2qtrc_onlyqv(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_tracer_setup(), 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 79 of file mod_atmos_phy_mp_vars.F90.

79  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_bnd_driver::atmos_boundary_driver_update(), 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_atmos_bnd_driver::history_bnd(), mod_mkinit::mkinit(), mod_realinput_grads::parentatmosinputgrads(), mod_realinput_netcdf::parentatmosinputnetcdf(), mod_realinput_grads::parentatmossetupgrads(), mod_realinput_netcdf::parentatmossetupnetcdf(), and mod_realinput::realinput_surface().

◆ qe_mp

integer, public mod_atmos_phy_mp_vars::qe_mp = -2

Definition at line 80 of file mod_atmos_phy_mp_vars.F90.

80  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_adjustment(), 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_grads::parentatmosinputgrads(), mod_realinput_netcdf::parentatmosinputnetcdf(), mod_realinput_grads::parentatmossetupgrads(), mod_realinput_netcdf::parentatmossetupnetcdf(), 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:393
scale_atmos_hydrometeor::num_name
character(len=h_short), dimension(n_hyd), parameter, public num_name
Definition: scale_atmos_hydrometeor.F90:108
scale_atmos_hydrometeor::hyd_desc
character(len=h_mid), dimension(n_hyd), parameter, public hyd_desc
Definition: scale_atmos_hydrometeor.F90:106
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:350
scale_atmos_hydrometeor::i_hr
integer, parameter, public i_hr
liquid water rain
Definition: scale_atmos_hydrometeor.F90:98
scale_atmos_hydrometeor::i_hs
integer, parameter, public i_hs
snow
Definition: scale_atmos_hydrometeor.F90:100
scale_atmos_hydrometeor::hyd_name
character(len=h_short), dimension(n_hyd), parameter, public hyd_name
Definition: scale_atmos_hydrometeor.F90:104
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: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_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:1646
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:102
mod_atmos_vars::qtrc
real(rp), dimension(:,:,:,:), allocatable, target, public qtrc
Definition: mod_atmos_vars.F90:81
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:99
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:2836
mod_atmos_vars::dens
real(rp), dimension(:,:,:), allocatable, target, public dens
Definition: mod_atmos_vars.F90:76
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:1089
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:425
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:1717
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:2565
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1044
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:459
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:1508
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:1449
scale_atmos_hydrometeor::qha
integer, public qha
Definition: scale_atmos_hydrometeor.F90:131
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:97
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:917
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:1046
scale_file_cartesc::file_cartesc_create
subroutine, public file_cartesc_create(basename, title, datatype, fid, date, subsec, haszcoord, append, aggregate, single)
Create/open a netCDF file.
Definition: scale_file_cartesC.F90:796
scale_file_cartesc::file_cartesc_flush
subroutine, public file_cartesc_flush(fid)
Flush all pending requests to a netCDF file (PnetCDF only)
Definition: scale_file_cartesC.F90:1018
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:93
scale_comm_cartesc
module COMMUNICATION
Definition: scale_comm_cartesC.F90:11
scale_file::file_get_aggregate
logical function, public file_get_aggregate(fid)
Definition: scale_file.F90:6316
scale_file_cartesc::file_cartesc_open
subroutine, public file_cartesc_open(basename, fid, single, aggregate)
open a netCDF file for read
Definition: scale_file_cartesC.F90:760
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:685
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:879
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:43
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:2528
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:95
scale_atmos_hydrometeor::i_hg
integer, parameter, public i_hg
graupel
Definition: scale_atmos_hydrometeor.F90:101
Generated by   doxygen 1.8.17