SCALE-RM
Functions/Subroutines | Variables
mod_atmos_phy_sf_vars Module Reference

module ATMOSPHERIC Surface Variables More...

Functions/Subroutines

subroutine, public atmos_phy_sf_vars_setup
 Setup. More...
 
subroutine, public atmos_phy_sf_vars_finalize
 Finalize. More...
 
subroutine, public atmos_phy_sf_vars_fillhalo
 HALO Communication. More...
 
subroutine, public atmos_phy_sf_vars_restart_open
 Open restart file for read. More...
 
subroutine, public atmos_phy_sf_vars_restart_read
 Read restart. More...
 
subroutine, public atmos_phy_sf_vars_restart_create
 Create restart file. More...
 
subroutine, public atmos_phy_sf_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public atmos_phy_sf_vars_restart_close
 Close restart file. More...
 
subroutine, public atmos_phy_sf_vars_restart_def_var
 Write restart. More...
 
subroutine, public atmos_phy_sf_vars_restart_write
 Write variables to restart file. More...
 
subroutine atmos_phy_sf_vars_check
 

Variables

logical, public atmos_phy_sf_restart_output = .false.
 output restart file? More...
 
character(len=h_long), public atmos_phy_sf_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public atmos_phy_sf_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_sf_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public atmos_phy_sf_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public atmos_phy_sf_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public atmos_phy_sf_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public atmos_phy_sf_restart_out_title = 'ATMOS_PHY_SF restart'
 title of the output file More...
 
character(len=h_short), public atmos_phy_sf_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_dens_t
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_momz_t
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_rhou_t
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_rhov_t
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_rhoh
 
real(rp), dimension(:,:,:), allocatable, public atmos_phy_sf_rhoq_t
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_temp
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_sf_sfc_albedo
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0m
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0h
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0e
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_dens
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_pres
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_prec_mass
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_prec_engi
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mw
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mu
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mv
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_sh
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_lh
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_shex
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_lhex
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_qvex
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_gh
 
real(rp), dimension(:,:,:), allocatable, target, public atmos_phy_sf_sflx_qtrc
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_engi
 
real(rp), dimension(:,:), pointer, public atmos_phy_sf_sflx_qv
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_ustar
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_tstar
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_qstar
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_wstar
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_u10
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_v10
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_t2
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_q2
 
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_rlmo
 

Detailed Description

module ATMOSPHERIC Surface Variables

Description
Container for mod_atmos_phy_sf
Author
Team SCALE
NAMELIST
  • PARAM_ATMOS_PHY_SF_VARS
    nametypedefault valuecomment
    ATMOS_PHY_SF_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    ATMOS_PHY_SF_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_SF_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    ATMOS_PHY_SF_RESTART_OUTPUT logical .false. output restart file?
    ATMOS_PHY_SF_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    ATMOS_PHY_SF_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    ATMOS_PHY_SF_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    ATMOS_PHY_SF_RESTART_OUT_TITLE character(len=H_MID) 'ATMOS_PHY_SF restart' title of the output file
    ATMOS_PHY_SF_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8
    ATMOS_PHY_SF_DEFAULT_SFC_TEMP real(RP) 300.0_RP
    ATMOS_PHY_SF_DEFAULT_SFC_ALBEDO_LW real(RP) 0.04_RP
    ATMOS_PHY_SF_DEFAULT_SFC_ALBEDO_SW real(RP) 0.10_RP
    ATMOS_PHY_SF_DEFAULT_SFC_Z0M real(RP) 1E-4_RP
    ATMOS_PHY_SF_DEFAULT_SFC_Z0H real(RP) 1E-5_RP
    ATMOS_PHY_SF_DEFAULT_SFC_Z0E real(RP) 1E-5_RP

History Output
No history output

Function/Subroutine Documentation

◆ atmos_phy_sf_vars_setup()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup

Setup.

Definition at line 191 of file mod_atmos_phy_sf_vars.F90.

191  use scale_prc, only: &
192  prc_abort
193  use scale_const, only: &
194  undef => const_undef
195  use scale_atmos_hydrometeor, only: &
196  i_qv
197  implicit none
198 
199  namelist / param_atmos_phy_sf_vars / &
200  atmos_phy_sf_restart_in_basename, &
201  atmos_phy_sf_restart_in_aggregate, &
202  atmos_phy_sf_restart_in_postfix_timelabel, &
203  atmos_phy_sf_restart_output, &
204  atmos_phy_sf_restart_out_basename, &
205  atmos_phy_sf_restart_out_aggregate, &
206  atmos_phy_sf_restart_out_postfix_timelabel, &
207  atmos_phy_sf_restart_out_title, &
208  atmos_phy_sf_restart_out_dtype, &
209  atmos_phy_sf_default_sfc_temp, &
210  atmos_phy_sf_default_sfc_albedo_lw, &
211  atmos_phy_sf_default_sfc_albedo_sw, &
212  atmos_phy_sf_default_sfc_z0m, &
213  atmos_phy_sf_default_sfc_z0h, &
214  atmos_phy_sf_default_sfc_z0e
215 
216  integer :: ierr
217  integer :: iv
218  !---------------------------------------------------------------------------
219 
220  log_newline
221  log_info("ATMOS_PHY_SF_vars_setup",*) 'Setup'
222 
223  !--- read namelist
224  rewind(io_fid_conf)
225  read(io_fid_conf,nml=param_atmos_phy_sf_vars,iostat=ierr)
226  if( ierr < 0 ) then !--- missing
227  log_info("ATMOS_PHY_SF_vars_setup",*) 'Not found namelist. Default used.'
228  elseif( ierr > 0 ) then !--- fatal error
229  log_error("ATMOS_PHY_SF_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_SF_VARS. Check!'
230  call prc_abort
231  endif
232  log_nml(param_atmos_phy_sf_vars)
233 
234 
235  allocate( atmos_phy_sf_dens_t(ia,ja) )
236  allocate( atmos_phy_sf_momz_t(ia,ja) )
237  allocate( atmos_phy_sf_rhou_t(ia,ja) )
238  allocate( atmos_phy_sf_rhov_t(ia,ja) )
239  allocate( atmos_phy_sf_rhoh(ia,ja) )
240  allocate( atmos_phy_sf_rhoq_t(ia,ja,max(qa,1)) )
241  atmos_phy_sf_dens_t(:,:) = undef
242  atmos_phy_sf_momz_t(:,:) = undef
243  atmos_phy_sf_rhou_t(:,:) = undef
244  atmos_phy_sf_rhov_t(:,:) = undef
245  atmos_phy_sf_rhoh(:,:) = undef
246  atmos_phy_sf_rhoq_t(:,:,:) = undef
247  !$acc enter data create(ATMOS_PHY_SF_DENS_t,ATMOS_PHY_SF_MOMZ_t,ATMOS_PHY_SF_RHOU_t,ATMOS_PHY_SF_RHOV_t,ATMOS_PHY_SF_RHOH,ATMOS_PHY_SF_RHOQ_t)
248 
249  allocate( atmos_phy_sf_sfc_temp(ia,ja) )
250  allocate( atmos_phy_sf_sfc_albedo(ia,ja,n_rad_dir,n_rad_rgn) )
251  allocate( atmos_phy_sf_sfc_z0m(ia,ja) )
252  allocate( atmos_phy_sf_sfc_z0h(ia,ja) )
253  allocate( atmos_phy_sf_sfc_z0e(ia,ja) )
254  atmos_phy_sf_sfc_temp(:,:) = atmos_phy_sf_default_sfc_temp
255  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_ir ) = atmos_phy_sf_default_sfc_albedo_lw
256  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_ir ) = atmos_phy_sf_default_sfc_albedo_lw
257  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_nir) = atmos_phy_sf_default_sfc_albedo_sw
258  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_nir) = atmos_phy_sf_default_sfc_albedo_sw
259  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_vis) = atmos_phy_sf_default_sfc_albedo_sw
260  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_vis) = atmos_phy_sf_default_sfc_albedo_sw
261  atmos_phy_sf_sfc_z0m(:,:) = atmos_phy_sf_default_sfc_z0m
262  atmos_phy_sf_sfc_z0h(:,:) = atmos_phy_sf_default_sfc_z0h
263  atmos_phy_sf_sfc_z0e(:,:) = atmos_phy_sf_default_sfc_z0e
264  !$acc enter data copyin(ATMOS_PHY_SF_SFC_TEMP,ATMOS_PHY_SF_SFC_albedo,ATMOS_PHY_SF_SFC_Z0M,ATMOS_PHY_SF_SFC_Z0H,ATMOS_PHY_SF_SFC_Z0E)
265 
266  allocate( atmos_phy_sf_sfc_dens(ia,ja) )
267  allocate( atmos_phy_sf_sfc_pres(ia,ja) )
268  atmos_phy_sf_sfc_dens(:,:) = undef
269  atmos_phy_sf_sfc_pres(:,:) = undef
270  !$acc enter data create(ATMOS_PHY_SF_SFC_DENS,ATMOS_PHY_SF_SFC_PRES)
271 
272  allocate( atmos_phy_sf_prec_mass(ia,ja) )
273  allocate( atmos_phy_sf_prec_engi(ia,ja) )
274  atmos_phy_sf_prec_mass(:,:) = undef
275  atmos_phy_sf_prec_engi(:,:) = undef
276  !$acc enter data create(ATMOS_PHY_SF_PREC_MASS,ATMOS_PHY_SF_PREC_ENGI)
277 
278  allocate( atmos_phy_sf_sflx_mw(ia,ja) )
279  allocate( atmos_phy_sf_sflx_mu(ia,ja) )
280  allocate( atmos_phy_sf_sflx_mv(ia,ja) )
281  allocate( atmos_phy_sf_sflx_sh(ia,ja) )
282  allocate( atmos_phy_sf_sflx_lh(ia,ja) )
283  allocate( atmos_phy_sf_sflx_shex(ia,ja) )
284  allocate( atmos_phy_sf_sflx_lhex(ia,ja) )
285  allocate( atmos_phy_sf_sflx_qvex(ia,ja) )
286  allocate( atmos_phy_sf_sflx_gh(ia,ja) )
287  allocate( atmos_phy_sf_sflx_qtrc(ia,ja,max(qa,1)) )
288  allocate( atmos_phy_sf_sflx_engi(ia,ja) )
289  atmos_phy_sf_sflx_mw(:,:) = undef
290  atmos_phy_sf_sflx_mu(:,:) = undef
291  atmos_phy_sf_sflx_mv(:,:) = undef
292  atmos_phy_sf_sflx_sh(:,:) = undef
293  atmos_phy_sf_sflx_lh(:,:) = undef
294  atmos_phy_sf_sflx_shex(:,:) = undef
295  atmos_phy_sf_sflx_lhex(:,:) = undef
296  atmos_phy_sf_sflx_qvex(:,:) = undef
297  atmos_phy_sf_sflx_gh(:,:) = undef
298  atmos_phy_sf_sflx_qtrc(:,:,:) = undef
299  atmos_phy_sf_sflx_engi(:,:) = undef
300  !$acc enter data create(ATMOS_PHY_SF_SFLX_MW,ATMOS_PHY_SF_SFLX_MU,ATMOS_PHY_SF_SFLX_MV,ATMOS_PHY_SF_SFLX_SH,ATMOS_PHY_SF_SFLX_LH,ATMOS_PHY_SF_SFLX_SHEX,ATMOS_PHY_SF_SFLX_LHEX,ATMOS_PHY_SF_SFLX_QVEX,ATMOS_PHY_SF_SFLX_GH,ATMOS_PHY_SF_SFLX_QTRC,ATMOS_PHY_SF_SFLX_ENGI)
301 
302  allocate( atmos_phy_sf_ustar(ia,ja) )
303  allocate( atmos_phy_sf_tstar(ia,ja) )
304  allocate( atmos_phy_sf_qstar(ia,ja) )
305  allocate( atmos_phy_sf_wstar(ia,ja) )
306  atmos_phy_sf_ustar(:,:) = undef
307  atmos_phy_sf_tstar(:,:) = undef
308  atmos_phy_sf_wstar(:,:) = undef
309  !$acc enter data create(ATMOS_PHY_SF_Ustar,ATMOS_PHY_SF_Tstar,ATMOS_PHY_SF_Qstar,ATMOS_PHY_SF_Wstar)
310 
311  allocate( atmos_phy_sf_u10(ia,ja) )
312  allocate( atmos_phy_sf_v10(ia,ja) )
313  allocate( atmos_phy_sf_t2(ia,ja) )
314  allocate( atmos_phy_sf_q2(ia,ja) )
315  allocate( atmos_phy_sf_rlmo(ia,ja) )
316  atmos_phy_sf_u10(:,:) = undef
317  atmos_phy_sf_v10(:,:) = undef
318  atmos_phy_sf_t2(:,:) = undef
319  atmos_phy_sf_q2(:,:) = undef
320  atmos_phy_sf_rlmo(:,:) = undef
321  !$acc enter data create(ATMOS_PHY_SF_U10,ATMOS_PHY_SF_V10,ATMOS_PHY_SF_T2,ATMOS_PHY_SF_Q2,ATMOS_PHY_SF_RLmo)
322 
323  log_newline
324  log_info("ATMOS_PHY_SF_vars_setup",*) '[ATMOS_PHY_SF] prognostic/diagnostic variables'
325  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
326  ' |', 'VARNAME ','|', &
327  'DESCRIPTION ', '[', 'UNIT ', ']'
328  do iv = 1, vmax
329  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
330  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
331  enddo
332 
333  log_newline
334  if ( atmos_phy_sf_restart_in_basename /= '' ) then
335  log_info("ATMOS_PHY_SF_vars_setup",*) 'Restart input? : YES, file = ', trim(atmos_phy_sf_restart_in_basename)
336  log_info("ATMOS_PHY_SF_vars_setup",*) 'Add timelabel? : ', atmos_phy_sf_restart_in_postfix_timelabel
337  else
338  log_info("ATMOS_PHY_SF_vars_setup",*) 'Restart input? : NO'
339  endif
340  if ( atmos_phy_sf_restart_output &
341  .AND. atmos_phy_sf_restart_out_basename /= '' ) then
342  log_info("ATMOS_PHY_SF_vars_setup",*) 'Restart output? : YES, file = ', trim(atmos_phy_sf_restart_out_basename)
343  log_info("ATMOS_PHY_SF_vars_setup",*) 'Add timelabel? : ', atmos_phy_sf_restart_out_postfix_timelabel
344  else
345  log_info("ATMOS_PHY_SF_vars_setup",*) 'Restart output? : NO'
346  atmos_phy_sf_restart_output = .false.
347  endif
348 
349  if ( i_qv > 0 ) then
350  atmos_phy_sf_sflx_qv => atmos_phy_sf_sflx_qtrc(:,:,i_qv)
351  else
352  allocate( zero(ia,ja) )
353  zero(:,:) = 0.0_rp
354  !$acc enter data copyin(ZERO)
355  atmos_phy_sf_sflx_qv => zero
356  end if
357 
358  return

References atmos_phy_sf_dens_t, atmos_phy_sf_momz_t, atmos_phy_sf_prec_engi, atmos_phy_sf_prec_mass, atmos_phy_sf_q2, atmos_phy_sf_qstar, atmos_phy_sf_restart_in_aggregate, atmos_phy_sf_restart_in_basename, atmos_phy_sf_restart_in_postfix_timelabel, atmos_phy_sf_restart_out_aggregate, atmos_phy_sf_restart_out_basename, atmos_phy_sf_restart_out_dtype, atmos_phy_sf_restart_out_postfix_timelabel, atmos_phy_sf_restart_out_title, atmos_phy_sf_restart_output, atmos_phy_sf_rhoh, atmos_phy_sf_rhoq_t, atmos_phy_sf_rhou_t, atmos_phy_sf_rhov_t, atmos_phy_sf_rlmo, atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_dens, atmos_phy_sf_sfc_pres, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, atmos_phy_sf_sflx_engi, atmos_phy_sf_sflx_gh, atmos_phy_sf_sflx_lh, atmos_phy_sf_sflx_lhex, atmos_phy_sf_sflx_mu, atmos_phy_sf_sflx_mv, atmos_phy_sf_sflx_mw, atmos_phy_sf_sflx_qtrc, atmos_phy_sf_sflx_qv, atmos_phy_sf_sflx_qvex, atmos_phy_sf_sflx_sh, atmos_phy_sf_sflx_shex, atmos_phy_sf_t2, atmos_phy_sf_tstar, atmos_phy_sf_u10, atmos_phy_sf_ustar, atmos_phy_sf_v10, atmos_phy_sf_wstar, scale_const::const_undef, scale_atmos_hydrometeor::i_qv, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ia, scale_io::io_fid_conf, scale_atmos_grid_cartesc_index::ja, scale_cpl_sfc_index::n_rad_dir, scale_cpl_sfc_index::n_rad_rgn, scale_prc::prc_abort(), and scale_tracer::qa.

Referenced by mod_atmos_vars::atmos_vars_setup().

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

◆ atmos_phy_sf_vars_finalize()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_finalize

Finalize.

Definition at line 364 of file mod_atmos_phy_sf_vars.F90.

364  implicit none
365  !---------------------------------------------------------------------------
366 
367  log_newline
368  log_info("ATMOS_PHY_SF_vars_finalize",*) 'Finalize'
369 
370  !$acc exit data delete(ATMOS_PHY_SF_DENS_t,ATMOS_PHY_SF_MOMZ_t,ATMOS_PHY_SF_RHOU_t,ATMOS_PHY_SF_RHOV_t,ATMOS_PHY_SF_RHOH,ATMOS_PHY_SF_RHOQ_t)
371  deallocate( atmos_phy_sf_dens_t )
372  deallocate( atmos_phy_sf_momz_t )
373  deallocate( atmos_phy_sf_rhou_t )
374  deallocate( atmos_phy_sf_rhov_t )
375  deallocate( atmos_phy_sf_rhoh )
376  deallocate( atmos_phy_sf_rhoq_t )
377 
378  !$acc exit data delete(ATMOS_PHY_SF_SFC_TEMP,ATMOS_PHY_SF_SFC_albedo,ATMOS_PHY_SF_SFC_Z0M,ATMOS_PHY_SF_SFC_Z0H,ATMOS_PHY_SF_SFC_Z0E)
379  deallocate( atmos_phy_sf_sfc_temp )
380  deallocate( atmos_phy_sf_sfc_albedo )
381  deallocate( atmos_phy_sf_sfc_z0m )
382  deallocate( atmos_phy_sf_sfc_z0h )
383  deallocate( atmos_phy_sf_sfc_z0e )
384 
385  !$acc exit data delete(ATMOS_PHY_SF_SFC_DENS,ATMOS_PHY_SF_SFC_PRES)
386  deallocate( atmos_phy_sf_sfc_dens )
387  deallocate( atmos_phy_sf_sfc_pres )
388 
389  !$acc exit data delete(ATMOS_PHY_SF_PREC_MASS,ATMOS_PHY_SF_PREC_ENGI)
390  deallocate( atmos_phy_sf_prec_mass )
391  deallocate( atmos_phy_sf_prec_engi )
392 
393 
394  !$acc exit data delete(ATMOS_PHY_SF_SFLX_MW,ATMOS_PHY_SF_SFLX_MU,ATMOS_PHY_SF_SFLX_MV,ATMOS_PHY_SF_SFLX_SH,ATMOS_PHY_SF_SFLX_LH,ATMOS_PHY_SF_SFLX_SHEX,ATMOS_PHY_SF_SFLX_LHEX,ATMOS_PHY_SF_SFLX_QVEX,ATMOS_PHY_SF_SFLX_GH,ATMOS_PHY_SF_SFLX_QTRC,ATMOS_PHY_SF_SFLX_ENGI)
395  deallocate( atmos_phy_sf_sflx_mw )
396  deallocate( atmos_phy_sf_sflx_mu )
397  deallocate( atmos_phy_sf_sflx_mv )
398  deallocate( atmos_phy_sf_sflx_sh )
399  deallocate( atmos_phy_sf_sflx_lh )
400  deallocate( atmos_phy_sf_sflx_shex )
401  deallocate( atmos_phy_sf_sflx_lhex )
402  deallocate( atmos_phy_sf_sflx_qvex )
403  deallocate( atmos_phy_sf_sflx_gh )
404  deallocate( atmos_phy_sf_sflx_qtrc )
405  deallocate( atmos_phy_sf_sflx_engi )
406 
407  !$acc exit data delete(ATMOS_PHY_SF_Ustar,ATMOS_PHY_SF_Tstar,ATMOS_PHY_SF_Qstar,ATMOS_PHY_SF_Wstar)
408  deallocate( atmos_phy_sf_ustar )
409  deallocate( atmos_phy_sf_tstar )
410  deallocate( atmos_phy_sf_qstar )
411  deallocate( atmos_phy_sf_wstar )
412 
413  !$acc exit data delete(ATMOS_PHY_SF_U10,ATMOS_PHY_SF_V10,ATMOS_PHY_SF_T2,ATMOS_PHY_SF_Q2,ATMOS_PHY_SF_RLmo)
414  deallocate( atmos_phy_sf_u10 )
415  deallocate( atmos_phy_sf_v10 )
416  deallocate( atmos_phy_sf_t2 )
417  deallocate( atmos_phy_sf_q2 )
418  deallocate( atmos_phy_sf_rlmo )
419 
420  if ( allocated( zero ) ) then
421  !$acc exit data delete(ZERO)
422  deallocate( zero )
423  end if
424  return

References atmos_phy_sf_dens_t, atmos_phy_sf_momz_t, atmos_phy_sf_prec_engi, atmos_phy_sf_prec_mass, atmos_phy_sf_q2, atmos_phy_sf_qstar, atmos_phy_sf_rhoh, atmos_phy_sf_rhoq_t, atmos_phy_sf_rhou_t, atmos_phy_sf_rhov_t, atmos_phy_sf_rlmo, atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_dens, atmos_phy_sf_sfc_pres, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, atmos_phy_sf_sflx_engi, atmos_phy_sf_sflx_gh, atmos_phy_sf_sflx_lh, atmos_phy_sf_sflx_lhex, atmos_phy_sf_sflx_mu, atmos_phy_sf_sflx_mv, atmos_phy_sf_sflx_mw, atmos_phy_sf_sflx_qtrc, atmos_phy_sf_sflx_qvex, atmos_phy_sf_sflx_sh, atmos_phy_sf_sflx_shex, atmos_phy_sf_t2, atmos_phy_sf_tstar, atmos_phy_sf_u10, atmos_phy_sf_ustar, atmos_phy_sf_v10, and atmos_phy_sf_wstar.

Referenced by mod_atmos_vars::atmos_vars_finalize().

Here is the caller graph for this function:

◆ atmos_phy_sf_vars_fillhalo()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_fillhalo

HALO Communication.

Definition at line 430 of file mod_atmos_phy_sf_vars.F90.

430  use scale_comm_cartesc, only: &
431  comm_vars8, &
432  comm_wait
433  implicit none
434 
435  integer :: n ,idir, irgn
436  !---------------------------------------------------------------------------
437 
438  call comm_vars8( atmos_phy_sf_sfc_temp(:,:), 1 )
439  call comm_vars8( atmos_phy_sf_sfc_z0m(:,:), 2 )
440  call comm_vars8( atmos_phy_sf_sfc_z0h(:,:), 3 )
441  call comm_vars8( atmos_phy_sf_sfc_z0e(:,:), 4 )
442 
443  n = 4
444  do irgn = i_r_ir, i_r_vis
445  do idir = i_r_direct, i_r_diffuse
446  n = n + 1
447  call comm_vars8( atmos_phy_sf_sfc_albedo(:,:,idir,irgn), n )
448  enddo
449  enddo
450 
451  call comm_wait ( atmos_phy_sf_sfc_temp(:,:), 1 )
452  call comm_wait ( atmos_phy_sf_sfc_z0m(:,:), 2 )
453  call comm_wait ( atmos_phy_sf_sfc_z0h(:,:), 3 )
454  call comm_wait ( atmos_phy_sf_sfc_z0e(:,:), 4 )
455 
456  n = 4
457  do irgn = i_r_ir, i_r_vis
458  do idir = i_r_direct, i_r_diffuse
459  n = n + 1
460  call comm_wait ( atmos_phy_sf_sfc_albedo(:,:,idir,irgn), n )
461  enddo
462  enddo
463 
464  return

References atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, and scale_cpl_sfc_index::i_r_vis.

Referenced by atmos_phy_sf_vars_restart_read(), and atmos_phy_sf_vars_restart_write().

Here is the caller graph for this function:

◆ atmos_phy_sf_vars_restart_open()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_open

Open restart file for read.

Definition at line 470 of file mod_atmos_phy_sf_vars.F90.

470  use scale_time, only: &
471  time_gettimelabel
472  use scale_file_cartesc, only: &
473  file_cartesc_open
474  implicit none
475 
476  character(len=19) :: timelabel
477  character(len=H_LONG) :: basename
478  !---------------------------------------------------------------------------
479 
480  log_newline
481  log_info("ATMOS_PHY_SF_vars_restart_open",*) 'Open restart file (ATMOS_PHY_SF) '
482 
483  if ( atmos_phy_sf_restart_in_basename /= '' ) then
484 
485  if ( atmos_phy_sf_restart_in_postfix_timelabel ) then
486  call time_gettimelabel( timelabel )
487  basename = trim(atmos_phy_sf_restart_in_basename)//'_'//trim(timelabel)
488  else
489  basename = trim(atmos_phy_sf_restart_in_basename)
490  endif
491 
492  log_info("ATMOS_PHY_SF_vars_restart_open",*) 'basename: ', trim(basename)
493 
494  call file_cartesc_open( basename, restart_fid, aggregate=atmos_phy_sf_restart_in_aggregate )
495 
496  else
497  log_info("ATMOS_PHY_SF_vars_restart_open",*) 'restart file for ATMOS_PHY_SF is not specified.'
498  endif
499 
500  return

References atmos_phy_sf_restart_in_aggregate, atmos_phy_sf_restart_in_basename, atmos_phy_sf_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_sf_vars_restart_read()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_read

Read restart.

Definition at line 506 of file mod_atmos_phy_sf_vars.F90.

506  use scale_file, only: &
507  file_get_aggregate
508  use scale_file_cartesc, only: &
509  file_cartesc_read, &
510  file_cartesc_flush
511  implicit none
512  !---------------------------------------------------------------------------
513 
514  if ( restart_fid /= -1 ) then
515  log_newline
516  log_info("ATMOS_PHY_SF_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_SF) '
517 
518  call file_cartesc_read( restart_fid, var_name(i_sfc_temp), 'XY', & ! [IN]
519  atmos_phy_sf_sfc_temp(:,:) ) ! [OUT]
520  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dir), 'XY', & ! [IN]
521  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_ir ) ) ! [OUT]
522  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dif), 'XY', & ! [IN]
523  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_ir ) ) ! [OUT]
524  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dir), 'XY', & ! [IN]
525  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_nir) ) ! [OUT]
526  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dif), 'XY', & ! [IN]
527  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_nir) ) ! [OUT]
528  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dir), 'XY', & ! [IN]
529  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_vis) ) ! [OUT]
530  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dif), 'XY', & ! [IN]
531  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_vis) ) ! [OUT]
532  call file_cartesc_read( restart_fid, var_name(i_sfc_z0m), 'XY', & ! [IN]
533  atmos_phy_sf_sfc_z0m(:,:) ) ! [OUT]
534  call file_cartesc_read( restart_fid, var_name(i_sfc_z0h), 'XY', & ! [IN]
535  atmos_phy_sf_sfc_z0h(:,:) ) ! [OUT]
536  call file_cartesc_read( restart_fid, var_name(i_sfc_z0e), 'XY', & ! [IN]
537  atmos_phy_sf_sfc_z0e(:,:) ) ! [OUT]
538 
539  if ( file_get_aggregate(restart_fid) ) then
540  call file_cartesc_flush( restart_fid ) ! X/Y halos have been read from file
541  !$acc update device(ATMOS_PHY_SF_SFC_TEMP,ATMOS_PHY_SF_SFC_albedo,ATMOS_PHY_SF_SFC_Z0M,ATMOS_PHY_SF_SFC_Z0H,ATMOS_PHY_SF_SFC_Z0E)
542  else
543  call atmos_phy_sf_vars_fillhalo
544  end if
545 
546  call atmos_phy_sf_vars_check
547 
548  else
549  log_info("ATMOS_PHY_SF_vars_restart_read",*) 'invalid restart file ID for ATMOS_PHY_SF.'
550  endif
551 
552  return

References atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), scale_file_cartesc::file_cartesc_flush(), scale_file::file_get_aggregate(), scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, and scale_cpl_sfc_index::i_r_vis.

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

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_create

Create restart file.

Definition at line 558 of file mod_atmos_phy_sf_vars.F90.

558  use scale_time, only: &
559  time_gettimelabel
560  use scale_file_cartesc, only: &
561  file_cartesc_create
562  implicit none
563 
564  character(len=19) :: timelabel
565  character(len=H_LONG) :: basename
566  !---------------------------------------------------------------------------
567 
568  if ( atmos_phy_sf_restart_out_basename /= '' ) then
569 
570  log_newline
571  log_info("ATMOS_PHY_SF_vars_restart_create",*) 'Create restart file (ATMOS_PHY_AE) '
572 
573  if ( atmos_phy_sf_restart_out_postfix_timelabel ) then
574  call time_gettimelabel( timelabel )
575  basename = trim(atmos_phy_sf_restart_out_basename)//'_'//trim(timelabel)
576  else
577  basename = trim(atmos_phy_sf_restart_out_basename)
578  endif
579 
580  log_info("ATMOS_PHY_SF_vars_restart_create",*) 'basename: ', trim(basename)
581 
582  call file_cartesc_create( &
583  basename, atmos_phy_sf_restart_out_title, atmos_phy_sf_restart_out_dtype, & ! [IN]
584  restart_fid, & ! [OUT]
585  aggregate=atmos_phy_sf_restart_out_aggregate ) ! [IN]
586  endif
587 
588  return

References atmos_phy_sf_restart_out_aggregate, atmos_phy_sf_restart_out_basename, atmos_phy_sf_restart_out_dtype, atmos_phy_sf_restart_out_postfix_timelabel, atmos_phy_sf_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_sf_vars_restart_enddef()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_enddef

Exit netCDF define mode.

Definition at line 594 of file mod_atmos_phy_sf_vars.F90.

594  use scale_file_cartesc, only: &
595  file_cartesc_enddef
596  implicit none
597 
598  if ( restart_fid /= -1 ) then
599  call file_cartesc_enddef( restart_fid ) ! [IN]
600  endif
601 
602  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_sf_vars_restart_close()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_close

Close restart file.

Definition at line 608 of file mod_atmos_phy_sf_vars.F90.

608  use scale_file_cartesc, only: &
609  file_cartesc_close
610  implicit none
611  !---------------------------------------------------------------------------
612 
613  if ( restart_fid /= -1 ) then
614  log_newline
615  log_info("ATMOS_PHY_SF_vars_restart_close",*) 'Close restart file (ATMOS_PHY_SF) '
616 
617  call file_cartesc_close( restart_fid ) ! [IN]
618 
619  restart_fid = -1
620  endif
621 
622  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_sf_vars_restart_def_var()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_def_var

Write restart.

Definition at line 628 of file mod_atmos_phy_sf_vars.F90.

628  use scale_file_cartesc, only: &
629  file_cartesc_def_var
630  implicit none
631 
632  integer :: i
633  !---------------------------------------------------------------------------
634 
635  if ( restart_fid /= -1 ) then
636 
637  do i = 1, vmax
638  call file_cartesc_def_var( restart_fid, & ! [IN]
639  var_name(i), var_desc(i), var_unit(i), & ! [IN]
640  'XY', atmos_phy_sf_restart_out_dtype, & ! [IN]
641  var_id(i), & ! [OUT]
642  standard_name=var_stdn(i) ) ! [IN]
643  end do
644 
645  endif
646 
647  return

References atmos_phy_sf_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_sf_vars_restart_write()

subroutine, public mod_atmos_phy_sf_vars::atmos_phy_sf_vars_restart_write

Write variables to restart file.

Definition at line 653 of file mod_atmos_phy_sf_vars.F90.

653  use scale_file_cartesc, only: &
654  file_cartesc_write_var
655  implicit none
656  !---------------------------------------------------------------------------
657 
658  if ( restart_fid /= -1 ) then
659 
660  call atmos_phy_sf_vars_fillhalo
661 
662  call atmos_phy_sf_vars_check
663 
664  call file_cartesc_write_var( restart_fid, var_id(i_sfc_temp), & ! [IN]
665  atmos_phy_sf_sfc_temp(:,:), & ! [IN]
666  var_name(i_sfc_temp), 'XY' ) ! [IN]
667  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dir), & ! [IN]
668  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_ir ), & ! [IN]
669  var_name(i_sfc_alb_ir_dir), 'XY' ) ! [IN]
670  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dif), & ! [IN]
671  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), & ! [IN]
672  var_name(i_sfc_alb_ir_dif), 'XY' ) ! [IN]
673  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dir), & ! [IN]
674  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_nir), & ! [IN]
675  var_name(i_sfc_alb_nir_dir), 'XY' ) ! [IN]
676  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dif), & ! [IN]
677  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_nir), & ! [IN]
678  var_name(i_sfc_alb_nir_dif), 'XY' ) ! [IN]
679  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dir), & ! [IN]
680  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_vis), & ! [IN]
681  var_name(i_sfc_alb_vis_dir), 'XY' ) ! [IN]
682  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dif), & ! [IN]
683  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_vis), & ! [IN]
684  var_name(i_sfc_alb_vis_dif), 'XY' ) ! [IN]
685  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0m), & ! [IN]
686  atmos_phy_sf_sfc_z0m(:,:), & ! [IN]
687  var_name(i_sfc_z0m), 'XY' ) ! [IN]
688  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0h), & ! [IN]
689  atmos_phy_sf_sfc_z0h(:,:), & ! [IN]
690  var_name(i_sfc_z0h), 'XY' ) ! [IN]
691  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0e), & ! [IN]
692  atmos_phy_sf_sfc_z0e(:,:), & ! [IN]
693  var_name(i_sfc_z0e), 'XY' ) ! [IN]
694  endif
695 
696  return

References atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, and scale_cpl_sfc_index::i_r_vis.

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

subroutine mod_atmos_phy_sf_vars::atmos_phy_sf_vars_check

Definition at line 701 of file mod_atmos_phy_sf_vars.F90.

701  use scale_statistics, only: &
702  statistics_total
703  use scale_atmos_grid_cartesc_real, only: &
704  atmos_grid_cartesc_real_area, &
705  atmos_grid_cartesc_real_totarea
706  implicit none
707  !---------------------------------------------------------------------------
708 
709  call valcheck( ia, is, ie, ja, js, je, &
710  atmos_phy_sf_sfc_temp(:,:), & ! (in)
711  0.0_rp, 1.0e3_rp, var_name(i_sfc_temp), & ! (in)
712  __file__, __line__ ) ! (in)
713  call valcheck( ia, is, ie, ja, js, je, &
714  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_ir ), & ! (in)
715  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_ir_dir), & ! (in)
716  __file__, __line__ ) ! (in)
717  call valcheck( ia, is, ie, ja, js, je, &
718  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), & ! (in)
719  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_ir_dif), & ! (in)
720  __file__, __line__ ) ! (in)
721  call valcheck( ia, is, ie, ja, js, je, &
722  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_nir), & ! (in)
723  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_nir_dir), & ! (in)
724  __file__, __line__ ) ! (in)
725  call valcheck( ia, is, ie, ja, js, je, &
726  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_nir), & ! (in)
727  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_nir_dif), & ! (in)
728  __file__, __line__ ) ! (in)
729  call valcheck( ia, is, ie, ja, js, je, &
730  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_vis), & ! (in)
731  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_vis_dir), & ! (in)
732  __file__, __line__ ) ! (in)
733  call valcheck( ia, is, ie, ja, js, je, &
734  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_vis), & ! (in)
735  0.0_rp, 1.0e0_rp, var_name(i_sfc_alb_vis_dif), & ! (in)
736  __file__, __line__ ) ! (in)
737  call valcheck( ia, is, ie, ja, js, je, &
738  atmos_phy_sf_sfc_z0m(:,:), & ! (in)
739  0.0_rp, 1.0e2_rp, var_name(i_sfc_z0m), & ! (in)
740  __file__, __line__ ) ! (in)
741  call valcheck( ia, is, ie, ja, js, je, &
742  atmos_phy_sf_sfc_z0h(:,:), & ! (in)
743  0.0_rp, 1.0e2_rp, var_name(i_sfc_z0h), & ! (in)
744  __file__, __line__ ) ! (in)
745  call valcheck( ia, is, ie, ja, js, je, &
746  atmos_phy_sf_sfc_z0e(:,:), & ! (in)
747  0.0_rp, 1.0e2_rp, var_name(i_sfc_z0e), & ! (in)
748  __file__, __line__ ) ! (in)
749 
750  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
751  atmos_phy_sf_sfc_temp(:,:), & ! [IN]
752  var_name(i_sfc_temp), & ! [IN]
753  atmos_grid_cartesc_real_area(:,:), & ! [IN]
754  atmos_grid_cartesc_real_totarea ) ! [IN]
755  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
756  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_ir ), & ! [IN]
757  var_name(i_sfc_alb_ir_dir), & ! [IN]
758  atmos_grid_cartesc_real_area(:,:), & ! [IN]
759  atmos_grid_cartesc_real_totarea ) ! [IN]
760  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
761  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), & ! [IN]
762  var_name(i_sfc_alb_ir_dif), & ! [IN]
763  atmos_grid_cartesc_real_area(:,:), & ! [IN]
764  atmos_grid_cartesc_real_totarea ) ! [IN]
765  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
766  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_nir), & ! [IN]
767  var_name(i_sfc_alb_nir_dir), & ! [IN]
768  atmos_grid_cartesc_real_area(:,:), & ! [IN]
769  atmos_grid_cartesc_real_totarea ) ! [IN]
770  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
771  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_nir), & ! [IN]
772  var_name(i_sfc_alb_nir_dif), & ! [IN]
773  atmos_grid_cartesc_real_area(:,:), & ! [IN]
774  atmos_grid_cartesc_real_totarea ) ! [IN]
775  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
776  atmos_phy_sf_sfc_albedo(:,:,i_r_direct ,i_r_vis), & ! [IN]
777  var_name(i_sfc_alb_vis_dir), & ! [IN]
778  atmos_grid_cartesc_real_area(:,:), & ! [IN]
779  atmos_grid_cartesc_real_totarea ) ! [IN]
780  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
781  atmos_phy_sf_sfc_albedo(:,:,i_r_diffuse,i_r_vis), & ! [IN]
782  var_name(i_sfc_alb_vis_dif), & ! [IN]
783  atmos_grid_cartesc_real_area(:,:), & ! [IN]
784  atmos_grid_cartesc_real_totarea ) ! [IN]
785  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
786  atmos_phy_sf_sfc_z0m(:,:), & ! [IN]
787  var_name(i_sfc_z0m), & ! [IN]
788  atmos_grid_cartesc_real_area(:,:), & ! [IN]
789  atmos_grid_cartesc_real_totarea ) ! [IN]
790  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
791  atmos_phy_sf_sfc_z0h(:,:), & ! [IN]
792  var_name(i_sfc_z0h), & ! [IN]
793  atmos_grid_cartesc_real_area(:,:), & ! [IN]
794  atmos_grid_cartesc_real_totarea ) ! [IN]
795  call statistics_total( ia, is, ie, ja, js, je, & ! [IN]
796  atmos_phy_sf_sfc_z0e(:,:), & ! [IN]
797  var_name(i_sfc_z0e), & ! [IN]
798  atmos_grid_cartesc_real_area(:,:), & ! [IN]
799  atmos_grid_cartesc_real_totarea ) ! [IN]
800 
801  return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totarea, atmos_phy_sf_sfc_albedo, atmos_phy_sf_sfc_temp, atmos_phy_sf_sfc_z0e, atmos_phy_sf_sfc_z0h, atmos_phy_sf_sfc_z0m, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, and scale_atmos_grid_cartesc_index::js.

Referenced by atmos_phy_sf_vars_restart_read(), and atmos_phy_sf_vars_restart_write().

Here is the caller graph for this function:

Variable Documentation

◆ atmos_phy_sf_restart_output

logical, public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_output = .false.

output restart file?

Definition at line 47 of file mod_atmos_phy_sf_vars.F90.

47  logical, public :: ATMOS_PHY_SF_RESTART_OUTPUT = .false.

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

◆ atmos_phy_sf_restart_in_basename

character(len=h_long), public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_in_basename = ''

Basename of the input file.

Definition at line 49 of file mod_atmos_phy_sf_vars.F90.

49  character(len=H_LONG), public :: ATMOS_PHY_SF_RESTART_IN_BASENAME = ''

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_open(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_in_aggregate

logical, public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_in_aggregate

Switch to use aggregate file.

Definition at line 50 of file mod_atmos_phy_sf_vars.F90.

50  logical, public :: ATMOS_PHY_SF_RESTART_IN_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_open(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_in_postfix_timelabel

logical, public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 51 of file mod_atmos_phy_sf_vars.F90.

51  logical, public :: ATMOS_PHY_SF_RESTART_IN_POSTFIX_TIMELABEL = .false.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_open(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_out_basename

character(len=h_long), public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_basename = ''

Basename of the output file.

Definition at line 52 of file mod_atmos_phy_sf_vars.F90.

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

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_create(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_out_aggregate

logical, public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_aggregate

Switch to use aggregate file.

Definition at line 53 of file mod_atmos_phy_sf_vars.F90.

53  logical, public :: ATMOS_PHY_SF_RESTART_OUT_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_create(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_out_postfix_timelabel

logical, public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 54 of file mod_atmos_phy_sf_vars.F90.

54  logical, public :: ATMOS_PHY_SF_RESTART_OUT_POSTFIX_TIMELABEL = .true.

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_create(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_out_title

character(len=h_mid), public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_title = 'ATMOS_PHY_SF restart'

title of the output file

Definition at line 55 of file mod_atmos_phy_sf_vars.F90.

55  character(len=H_MID), public :: ATMOS_PHY_SF_RESTART_OUT_TITLE = 'ATMOS_PHY_SF restart'

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_create(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_restart_out_dtype

character(len=h_short), public mod_atmos_phy_sf_vars::atmos_phy_sf_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 56 of file mod_atmos_phy_sf_vars.F90.

56  character(len=H_SHORT), public :: ATMOS_PHY_SF_RESTART_OUT_DTYPE = 'DEFAULT'

Referenced by mod_admin_restart::admin_restart_setup(), atmos_phy_sf_vars_restart_create(), atmos_phy_sf_vars_restart_def_var(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_dens_t

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_dens_t

Definition at line 58 of file mod_atmos_phy_sf_vars.F90.

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

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_momz_t

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_momz_t

Definition at line 59 of file mod_atmos_phy_sf_vars.F90.

59  real(RP), public, allocatable :: ATMOS_PHY_SF_MOMZ_t (:,:) ! tendency MOMZ [m/s*kg/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_rhou_t

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_rhou_t

Definition at line 60 of file mod_atmos_phy_sf_vars.F90.

60  real(RP), public, allocatable :: ATMOS_PHY_SF_RHOU_t (:,:) ! tendency rho*U [m/s*kg/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_rhov_t

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_rhov_t

Definition at line 61 of file mod_atmos_phy_sf_vars.F90.

61  real(RP), public, allocatable :: ATMOS_PHY_SF_RHOV_t (:,:) ! tendency rho*V [m/s*kg/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_rhoh

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_rhoh

Definition at line 62 of file mod_atmos_phy_sf_vars.F90.

62  real(RP), public, allocatable :: ATMOS_PHY_SF_RHOH (:,:) ! diabatic heating [J/m3/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_rhoq_t

real(rp), dimension (:,:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_rhoq_t

Definition at line 63 of file mod_atmos_phy_sf_vars.F90.

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

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_temp

Definition at line 65 of file mod_atmos_phy_sf_vars.F90.

65  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_TEMP (:,:) ! surface skin temperature [K]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_restart_read(), atmos_phy_sf_vars_restart_write(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_phy_sf_driver::history_output(), and mod_realinput::realinput_surface().

◆ atmos_phy_sf_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_albedo

Definition at line 66 of file mod_atmos_phy_sf_vars.F90.

66  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_albedo(:,:,:,:) ! surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver_calc_tendency(), atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_restart_read(), atmos_phy_sf_vars_restart_write(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_phy_sf_driver::history_output(), and mod_realinput::realinput_surface().

◆ atmos_phy_sf_sfc_z0m

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0m

Definition at line 67 of file mod_atmos_phy_sf_vars.F90.

67  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_Z0M (:,:) ! surface roughness length, ocean only [m]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_restart_read(), atmos_phy_sf_vars_restart_write(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_phy_sf_driver::history_output(), and mod_realinput::realinput_surface().

◆ atmos_phy_sf_sfc_z0h

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0h

Definition at line 68 of file mod_atmos_phy_sf_vars.F90.

68  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_Z0H (:,:) ! surface roughness length, ocean only [m]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_restart_read(), atmos_phy_sf_vars_restart_write(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_phy_sf_driver::history_output(), and mod_realinput::realinput_surface().

◆ atmos_phy_sf_sfc_z0e

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0e

Definition at line 69 of file mod_atmos_phy_sf_vars.F90.

69  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_Z0E (:,:) ! surface roughness length, ocean only [m]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_check(), atmos_phy_sf_vars_fillhalo(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_restart_read(), atmos_phy_sf_vars_restart_write(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_phy_sf_driver::history_output(), and mod_realinput::realinput_surface().

◆ atmos_phy_sf_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_dens

Definition at line 72 of file mod_atmos_phy_sf_vars.F90.

72  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_DENS (:,:) ! surface atmosphere density [kg/m3]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_pres

Definition at line 73 of file mod_atmos_phy_sf_vars.F90.

73  real(RP), public, allocatable :: ATMOS_PHY_SF_SFC_PRES (:,:) ! surface atmosphere pressure [Pa]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_da_driver::da_driver_update(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_prec_mass

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_prec_mass

Definition at line 75 of file mod_atmos_phy_sf_vars.F90.

75  real(RP), public, allocatable :: ATMOS_PHY_SF_PREC_MASS (:,:) ! mass flux of the precipitation [kg/m2/s]

Referenced by atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_prec_engi

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_prec_engi

Definition at line 76 of file mod_atmos_phy_sf_vars.F90.

76  real(RP), public, allocatable :: ATMOS_PHY_SF_PREC_ENGI (:,:) ! internal energy flux of the precipitation [J/m2/s]

Referenced by atmos_phy_sf_vars_finalize(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mw

Definition at line 77 of file mod_atmos_phy_sf_vars.F90.

77  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_MW (:,:) ! z-momentum flux (area center) [m/s*kg/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_driver::atmos_surface_get(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mu

Definition at line 78 of file mod_atmos_phy_sf_vars.F90.

78  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_MU (:,:) ! x-momentum flux (area center) [m/s*kg/m2/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_driver::atmos_surface_get(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mv

Definition at line 79 of file mod_atmos_phy_sf_vars.F90.

79  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_MV (:,:) ! y-momentum flux (area center) [m/s*kg/m2/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_driver::atmos_surface_get(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_sh

Definition at line 80 of file mod_atmos_phy_sf_vars.F90.

80  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_SH (:,:) ! sensible heat flux [J/m2/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_driver::atmos_surface_get(), mod_atmos_vars::atmos_vars_monitor(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_lh

Definition at line 81 of file mod_atmos_phy_sf_vars.F90.

81  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_LH (:,:) ! latent heat flux [J/m2/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_vars::atmos_vars_monitor(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_shex

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_shex

Definition at line 82 of file mod_atmos_phy_sf_vars.F90.

82  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_SHEX (:,:) ! extra sensible heat flux [J/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_driver::atmos_surface_get().

◆ atmos_phy_sf_sflx_lhex

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_lhex

Definition at line 83 of file mod_atmos_phy_sf_vars.F90.

83  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_LHEX (:,:) ! extra latent heat flux [J/m2/s]

Referenced by atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_driver::atmos_surface_get().

◆ atmos_phy_sf_sflx_qvex

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_qvex

Definition at line 84 of file mod_atmos_phy_sf_vars.F90.

84  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_QVEX (:,:) ! extra latent heat flux [kg/kg/m2/s]

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_driver::atmos_surface_get().

◆ atmos_phy_sf_sflx_gh

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_gh

Definition at line 85 of file mod_atmos_phy_sf_vars.F90.

85  real(RP), public, allocatable :: ATMOS_PHY_SF_SFLX_GH (:,:) ! ground heat flux [J/m2/s] (downward)

Referenced by atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_qtrc

real(rp), dimension (:,:,:), allocatable, target, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_qtrc

Definition at line 86 of file mod_atmos_phy_sf_vars.F90.

86  real(RP), public, allocatable, target :: ATMOS_PHY_SF_SFLX_QTRC (:,:,:) ! tracer mass flux [kg/m2/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_calc_tendency(), mod_atmos_driver::atmos_surface_get(), mod_atmos_vars::atmos_vars_monitor(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_engi

Definition at line 87 of file mod_atmos_phy_sf_vars.F90.

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

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_vars::atmos_vars_monitor(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_sflx_qv

real(rp), dimension (:,:), pointer, public mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_qv

Definition at line 88 of file mod_atmos_phy_sf_vars.F90.

88  real(RP), public, pointer :: ATMOS_PHY_SF_SFLX_QV (:,:)

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), and atmos_phy_sf_vars_setup().

◆ atmos_phy_sf_ustar

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_ustar

Definition at line 90 of file mod_atmos_phy_sf_vars.F90.

90  real(RP), public, allocatable :: ATMOS_PHY_SF_Ustar (:,:) ! friction velocity [m/2]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_tstar

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_tstar

Definition at line 91 of file mod_atmos_phy_sf_vars.F90.

91  real(RP), public, allocatable :: ATMOS_PHY_SF_Tstar (:,:) ! temperature scale [K]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_qstar

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_qstar

Definition at line 92 of file mod_atmos_phy_sf_vars.F90.

92  real(RP), public, allocatable :: ATMOS_PHY_SF_Qstar (:,:) ! moisture scale [kg/kg]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_wstar

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_wstar

Definition at line 93 of file mod_atmos_phy_sf_vars.F90.

93  real(RP), public, allocatable :: ATMOS_PHY_SF_Wstar (:,:) ! convective velocity scale [m/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_u10

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_u10

Definition at line 95 of file mod_atmos_phy_sf_vars.F90.

95  real(RP), public, allocatable :: ATMOS_PHY_SF_U10 (:,:) ! 10m x-wind [m/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_da_driver::da_driver_update(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_v10

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_v10

Definition at line 96 of file mod_atmos_phy_sf_vars.F90.

96  real(RP), public, allocatable :: ATMOS_PHY_SF_V10 (:,:) ! 10m y-wind [m/s]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_da_driver::da_driver_update(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_t2

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_t2

Definition at line 97 of file mod_atmos_phy_sf_vars.F90.

97  real(RP), public, allocatable :: ATMOS_PHY_SF_T2 (:,:) ! 2m temperature [K]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_da_driver::da_driver_update(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_q2

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_q2

Definition at line 98 of file mod_atmos_phy_sf_vars.F90.

98  real(RP), public, allocatable :: ATMOS_PHY_SF_Q2 (:,:) ! 2m specific humidity [kg/kg]

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), mod_atmos_driver::atmos_surface_get(), mod_da_driver::da_driver_update(), and mod_atmos_phy_sf_driver::history_output().

◆ atmos_phy_sf_rlmo

real(rp), dimension (:,:), allocatable, public mod_atmos_phy_sf_vars::atmos_phy_sf_rlmo

Definition at line 100 of file mod_atmos_phy_sf_vars.F90.

100  real(RP), public, allocatable :: ATMOS_PHY_SF_RLmo (:,:) ! inverse of monin-obukhov length

Referenced by mod_atmos_phy_bl_driver::atmos_phy_bl_driver_calc_tendency(), mod_atmos_phy_bl_driver::atmos_phy_bl_driver_mkinit(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), atmos_phy_sf_vars_finalize(), atmos_phy_sf_vars_setup(), and mod_atmos_phy_sf_driver::history_output().

mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0m
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0m
Definition: mod_atmos_phy_sf_vars.F90:67
scale_statistics
module Statistics
Definition: scale_statistics.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_dens
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_dens
Definition: mod_atmos_phy_sf_vars.F90:72
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mu
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mu
Definition: mod_atmos_phy_sf_vars.F90:78
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:350
mod_atmos_phy_sf_vars::atmos_phy_sf_v10
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_v10
Definition: mod_atmos_phy_sf_vars.F90:96
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:964
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0e
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0e
Definition: mod_atmos_phy_sf_vars.F90:69
scale_file_cartesc::file_cartesc_def_var
subroutine, public file_cartesc_def_var(fid, varname, desc, unit, dim_type, datatype, vid, standard_name, timeintv, nsteps, cell_measures)
Define a variable to file.
Definition: scale_file_cartesC.F90:3360
mod_atmos_phy_sf_vars::atmos_phy_sf_qstar
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_qstar
Definition: mod_atmos_phy_sf_vars.F90:92
mod_atmos_phy_sf_vars::atmos_phy_sf_ustar
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_ustar
Definition: mod_atmos_phy_sf_vars.F90:90
mod_atmos_phy_sf_vars::atmos_phy_sf_wstar
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_wstar
Definition: mod_atmos_phy_sf_vars.F90:93
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totarea
real(rp), public atmos_grid_cartesc_real_totarea
total area (xy, local) [m2]
Definition: scale_atmos_grid_cartesC_real.F90:78
scale_atmos_hydrometeor
module atmosphere / hydrometeor
Definition: scale_atmos_hydrometeor.F90:12
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mv
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mv
Definition: mod_atmos_phy_sf_vars.F90:79
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_mw
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_mw
Definition: mod_atmos_phy_sf_vars.F90:77
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_z0h
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_z0h
Definition: mod_atmos_phy_sf_vars.F90:68
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_temp
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_temp
Definition: mod_atmos_phy_sf_vars.F90:65
scale_file
module file
Definition: scale_file.F90:15
scale_prc
module PROCESS
Definition: scale_prc.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_u10
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_u10
Definition: mod_atmos_phy_sf_vars.F90:95
scale_const
module CONSTANT
Definition: scale_const.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_albedo
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_sf_sfc_albedo
Definition: mod_atmos_phy_sf_vars.F90:66
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1044
mod_atmos_phy_sf_vars::atmos_phy_sf_rlmo
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_rlmo
Definition: mod_atmos_phy_sf_vars.F90:100
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area
real(rp), dimension(:,:), allocatable, public atmos_grid_cartesc_real_area
horizontal area ( xy, normal z) [m2]
Definition: scale_atmos_grid_cartesC_real.F90:66
scale_time
module TIME
Definition: scale_time.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_qtrc
real(rp), dimension(:,:,:), allocatable, target, public atmos_phy_sf_sflx_qtrc
Definition: mod_atmos_phy_sf_vars.F90:86
scale_atmos_hydrometeor::i_qv
integer, public i_qv
Definition: scale_atmos_hydrometeor.F90:93
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_engi
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_engi
Definition: mod_atmos_phy_sf_vars.F90:87
mod_atmos_phy_sf_vars::atmos_phy_sf_t2
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_t2
Definition: mod_atmos_phy_sf_vars.F90:97
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_lh
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_lh
Definition: mod_atmos_phy_sf_vars.F90:81
mod_atmos_phy_sf_vars::atmos_phy_sf_sfc_pres
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sfc_pres
Definition: mod_atmos_phy_sf_vars.F90:73
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
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_sh
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_sh
Definition: mod_atmos_phy_sf_vars.F90:80
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_phy_sf_vars::atmos_phy_sf_q2
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_q2
Definition: mod_atmos_phy_sf_vars.F90:98
mod_atmos_phy_sf_vars::atmos_phy_sf_sflx_gh
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_sflx_gh
Definition: mod_atmos_phy_sf_vars.F90:85
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:43
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
mod_atmos_phy_sf_vars::atmos_phy_sf_tstar
real(rp), dimension(:,:), allocatable, public atmos_phy_sf_tstar
Definition: mod_atmos_phy_sf_vars.F90:91
Generated by   doxygen 1.8.17