SCALE-RM
mod_atmos_phy_tb_vars.F90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
10 !-------------------------------------------------------------------------------
11 #include "scalelib.h"
13  !-----------------------------------------------------------------------------
14  !
15  !++ used modules
16  !
17  use scale_precision
18  use scale_io
19  use scale_prof
21  use scale_tracer
22  !-----------------------------------------------------------------------------
23  implicit none
24  private
25  !-----------------------------------------------------------------------------
26  !
27  !++ Public procedure
28  !
29  public :: atmos_phy_tb_vars_setup
33 
39 
40  !-----------------------------------------------------------------------------
41  !
42  !++ Public parameters & variables
43  !
44  logical, public :: atmos_phy_tb_restart_output = .false.
45 
46  character(len=H_LONG), public :: atmos_phy_tb_restart_in_basename = ''
48  logical, public :: atmos_phy_tb_restart_in_postfix_timelabel = .false.
49  character(len=H_LONG), public :: atmos_phy_tb_restart_out_basename = ''
51  logical, public :: atmos_phy_tb_restart_out_postfix_timelabel = .true.
52  character(len=H_MID), public :: atmos_phy_tb_restart_out_title = 'ATMOS_PHY_TB restart'
53  character(len=H_SHORT), public :: atmos_phy_tb_restart_out_dtype = 'DEFAULT'
54 
55  real(rp), public, allocatable :: atmos_phy_tb_momz_t(:,:,:) ! tendency MOMZ [kg/m2/s2]
56  real(rp), public, allocatable :: atmos_phy_tb_momx_t(:,:,:) ! tendency MOMX [kg/m2/s2]
57  real(rp), public, allocatable :: atmos_phy_tb_momy_t(:,:,:) ! tendency MOMY [kg/m2/s2]
58  real(rp), public, allocatable :: atmos_phy_tb_rhot_t(:,:,:) ! tendency RHOT [K*kg/m3/s]
59  real(rp), public, allocatable :: atmos_phy_tb_rhoq_t(:,:,:,:) ! tendency rho*QTRC [kg/kg/s]
60 
61  integer, public :: i_tke = -1
62 
63  !-----------------------------------------------------------------------------
64  !
65  !++ Private procedure
66  !
67  !-----------------------------------------------------------------------------
68  !
69  !++ Private parameters & variables
70  !
71 ! integer, private, parameter :: VMAX = 0 !< number of the variables
72 ! character(len=H_SHORT), private :: VAR_NAME(VMAX) !< name of the variables
73 ! character(len=H_MID), private :: VAR_DESC(VMAX) !< desc. of the variables
74 ! character(len=H_SHORT), private :: VAR_UNIT(VMAX) !< unit of the variables
75 ! integer, private :: VAR_ID(VMAX) !< ID of the variables
76 ! integer, private :: restart_fid = -1 ! file ID
77 
78  !-----------------------------------------------------------------------------
79 contains
80  !-----------------------------------------------------------------------------
82  subroutine atmos_phy_tb_vars_setup
83  use scale_prc, only: &
84  prc_abort
85  use scale_const, only: &
86  undef => const_undef
87  implicit none
88 
89  namelist / param_atmos_phy_tb_vars / &
99 
100  integer :: ierr
101  integer :: iv
102  !---------------------------------------------------------------------------
103 
104  log_newline
105  log_info("ATMOS_PHY_TB_vars_setup",*) 'Setup'
106 
107  allocate( atmos_phy_tb_momz_t(ka,ia,ja) )
108  allocate( atmos_phy_tb_momx_t(ka,ia,ja) )
109  allocate( atmos_phy_tb_momy_t(ka,ia,ja) )
110  allocate( atmos_phy_tb_rhot_t(ka,ia,ja) )
111  allocate( atmos_phy_tb_rhoq_t(ka,ia,ja,qa) )
112  atmos_phy_tb_momz_t(:,:,:) = undef
113  atmos_phy_tb_momx_t(:,:,:) = undef
114  atmos_phy_tb_momy_t(:,:,:) = undef
115  atmos_phy_tb_rhot_t(:,:,:) = undef
116  atmos_phy_tb_rhoq_t(:,:,:,:) = undef
117 
118  !--- read namelist
119  rewind(io_fid_conf)
120  read(io_fid_conf,nml=param_atmos_phy_tb_vars,iostat=ierr)
121  if( ierr < 0 ) then !--- missing
122  log_info("ATMOS_PHY_TB_vars_setup",*) 'Not found namelist. Default used.'
123  elseif( ierr > 0 ) then !--- fatal error
124  log_error("ATMOS_PHY_TB_vars_setup",*) 'Not appropriate names in namelist PARAM_ATMOS_PHY_TB_VARS. Check!'
125  call prc_abort
126  endif
127  log_nml(param_atmos_phy_tb_vars)
128 
129 ! LOG_NEWLINE
130 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) '[ATMOS_PHY_TB] prognostic/diagnostic variables'
131 ! LOG_INFO_CONT('(1x,A,A24,A,A48,A,A12,A)') &
132 ! ' |', 'VARNAME ','|', &
133 ! 'DESCRIPTION ', '[', 'UNIT ', ']'
134 ! do iv = 1, VMAX
135 ! LOG_INFO_CONT('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
136 ! 'NO.',iv,'|',VAR_NAME(iv),'|',VAR_DESC(iv),'[',VAR_UNIT(iv),']'
137 ! enddo
138 
139 ! LOG_NEWLINE
140 ! if ( ATMOS_PHY_TB_RESTART_IN_BASENAME /= '' ) then
141 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart input? : YES, file = ', trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
142 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Add timelabel? : ', ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL
143 ! else
144 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart input? : NO'
145 ! endif
146 ! if ( ATMOS_PHY_TB_RESTART_OUTPUT &
147 ! .AND. ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
148 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart output? : YES, file = ', trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
149 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Add timelabel? : ', ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL
150 ! else
151 ! LOG_INFO("ATMOS_PHY_TB_vars_setup",*) 'Restart output? : NO'
152 ! ATMOS_PHY_TB_RESTART_OUTPUT = .false.
153 ! endif
154 
155  return
156  end subroutine atmos_phy_tb_vars_setup
157 
158  !-----------------------------------------------------------------------------
160  subroutine atmos_phy_tb_vars_fillhalo
161  use scale_comm_cartesc, only: &
162  comm_vars8, &
163  comm_wait
164  implicit none
165  !---------------------------------------------------------------------------
166 
167 ! do j = 1, JA
168 ! do i = 1, IA
169 ! ATMOS_PHY_TB_??( 1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
170 ! ATMOS_PHY_TB_??(KE+1:KA, i,j) = ATMOS_PHY_TB_??(KE,i,j)
171 ! enddo
172 ! enddo
173 
174 ! call COMM_vars8( ATMOS_PHY_TB_??(:,:,:), 1 )
175 ! call COMM_wait ( ATMOS_PHY_TB_??(:,:,:), 1 )
176 
177  return
178  end subroutine atmos_phy_tb_vars_fillhalo
179 
180  !-----------------------------------------------------------------------------
183  use scale_time, only: &
185  use scale_file_cartesc, only: &
187  implicit none
188 
189  character(len=19) :: timelabel
190  character(len=H_LONG) :: basename
191  !---------------------------------------------------------------------------
192 
193 ! LOG_NEWLINE
194 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'Open restart file (ATMOS_PHY_TB) '
195 
196 ! if ( ATMOS_PHY_TB_RESTART_IN_BASENAME /= '' ) then
197 
198 ! if ( ATMOS_PHY_TB_RESTART_IN_POSTFIX_TIMELABEL ) then
199 ! call TIME_gettimelabel( timelabel )
200 ! basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)//'_'//trim(timelabel)
201 ! else
202 ! basename = trim(ATMOS_PHY_TB_RESTART_IN_BASENAME)
203 ! endif
204 
205 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'basename: ', trim(basename)
206 
207 ! call FILE_CARTESC_open( basename, restart_fid, aggregate=ATMOS_PHY_TB_RESTART_IN_AGGREGATE )
208 ! else
209 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_open",*) 'restart file for ATMOS_PHY_TB is not specified.'
210 ! endif
211 
212  return
213  end subroutine atmos_phy_tb_vars_restart_open
214 
215  !-----------------------------------------------------------------------------
218 !!$ use scale_file, only: &
219 !!$ FILE_get_aggregate
220 !!$ use scale_file_cartesC, only: &
221 !!$ FILE_CARTESC_read, &
222 !!$ FILE_CARTESC_flush
223 !!$ implicit none
224 
225  integer :: i, j
226  !---------------------------------------------------------------------------
227 
228 ! if ( restart_fid /= -1 ) then
229 ! LOG_NEWLINE
230 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_read",*) 'Read from restart file (ATMOS_PHY_TB) '
231 !
232 ! call FILE_CARTESC_read( restart_fid, VAR_NAME(1), 'ZXY', & ! [IN]
233 ! ATMOS_PHY_TB_??(:,:,:) ) ! [OUT]
234 !
235 ! if ( FILE_get_AGGREGATE(restart_fid) ) then
236 ! call FILE_CARTESC_flush( restart_fid ) ! X/Y halos have been read from file
237 !
238 ! ! fill k halos
239 ! do j = 1, JA
240 ! do i = 1, IA
241 ! ATMOS_PHY_TB_??( 1:KS-1,i,j) = ATMOS_PHY_TB_??(KS,i,j)
242 ! ATMOS_PHY_TB_??(KE+1:KA, i,j) = ATMOS_PHY_TB_??(KE,i,j)
243 ! enddo
244 ! enddo
245 ! else
246 ! call ATMOS_PHY_TB_vars_fillhalo
247 ! end if
248 !
249 ! call ATMOS_PHY_TB_vars_check
250 !
251 ! else
252 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_read",*) 'invalid restart file ID for ATMOS_PHY_TB.'
253 ! endif
254 
255  return
256  end subroutine atmos_phy_tb_vars_restart_read
257 
258  !-----------------------------------------------------------------------------
261  use scale_time, only: &
263  use scale_file_cartesc, only: &
265  implicit none
266 
267  character(len=19) :: timelabel
268  character(len=H_LONG) :: basename
269  !---------------------------------------------------------------------------
270 
271 ! if ( ATMOS_PHY_TB_RESTART_OUT_BASENAME /= '' ) then
272 !
273 ! LOG_NEWLINE
274 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_create",*) 'Create restart file (ATMOS_PHY_AE) '
275 !
276 ! if ( ATMOS_PHY_TB_RESTART_OUT_POSTFIX_TIMELABEL ) then
277 ! call TIME_gettimelabel( timelabel )
278 ! basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)//'_'//trim(timelabel)
279 ! else
280 ! basename = trim(ATMOS_PHY_TB_RESTART_OUT_BASENAME)
281 ! endif
282 !
283 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_create",*) 'basename: ', trim(basename)
284 !
285 ! call FILE_CARTESC_create( &
286 ! basename, ATMOS_PHY_TB_RESTART_OUT_TITLE, ATMOS_PHY_TB_RESTART_OUT_DTYPE, & ! [IN]
287 ! restart_fid, & ! [OUT]
288 ! aggregate=ATMOS_PHY_TB_RESTART_OUT_AGGREGATE ) ! [IN]
289 ! endif
290 
291  return
292  end subroutine atmos_phy_tb_vars_restart_create
293 
294  !-----------------------------------------------------------------------------
297  use scale_file_cartesc, only: &
299  implicit none
300 
301 ! if ( restart_fid /= -1 ) then
302 ! call FILE_CARTESC_enddef( restart_fid ) ! [IN]
303 ! endif
304 
305  return
306  end subroutine atmos_phy_tb_vars_restart_enddef
307 
308  !-----------------------------------------------------------------------------
311  use scale_file_cartesc, only: &
313  implicit none
314  !---------------------------------------------------------------------------
315 
316 ! if ( restart_fid /= -1 ) then
317 ! LOG_NEWLINE
318 ! LOG_INFO("ATMOS_PHY_TB_vars_restart_close",*) 'Close restart file (ATMOS_PHY_TB) '
319 !
320 ! call FILE_CARTESC_close( restart_fid ) ! [IN]
321 !
322 ! restart_fid = -1
323 ! endif
324 
325  return
326  end subroutine atmos_phy_tb_vars_restart_close
327 
328  !-----------------------------------------------------------------------------
331  use scale_file_cartesc, only: &
333  implicit none
334  !---------------------------------------------------------------------------
335 
336 ! if ( restart_fid /= -1 ) then
337 
338 ! call FILE_CARTESC_def_var( restart_fid, & ! [IN]
339 ! VAR_NAME(1), VAR_DESC(1), VAR_UNIT(1), & ! [IN]
340 ! 'ZXY', ATMOS_PHY_TB_RESTART_OUT_DTYPE, & ! [IN]
341 ! VAR_ID(1) ) ! [OUT]
342 
343 ! endif
344 
345  return
346  end subroutine atmos_phy_tb_vars_restart_def_var
347 
348  !-----------------------------------------------------------------------------
351  use scale_file_cartesc, only: &
352  file_cartesc_write_var
353  implicit none
354 
355  !---------------------------------------------------------------------------
356 
357 ! if ( restart_fid /= -1 ) then
358 !
359 ! call ATMOS_PHY_TB_vars_fillhalo
360 !
361 ! call ATMOS_PHY_TB_vars_check
362 !
363 ! call FILE_CARTESC_write_var( restart_fid, VAR_ID(1), ATMOS_PHY_TB_??(:,:,:), &
364 ! VAR_NAME(1), 'ZXY' ) ! [IN]
365 !
366 ! endif
367 
368  return
369  end subroutine atmos_phy_tb_vars_restart_write
370 
371  subroutine atmos_phy_tb_vars_check
372  use scale_statistics, only: &
373  statistics_total
374  use scale_atmos_grid_cartesc_real, only: &
377  implicit none
378 
379 !!$ call VALCHECK( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
380 !!$ ATMOS_PHY_TB_??(:,:), & ! (in)
381 !!$ 0.0_RP, 0.0_RP, VAR_NAME(1), & ! (in)
382 !!$ __FILE__, __LINE__ ) ! (in)
383 !!$
384 !!$ call STATISTICS_total( KA, KS, KE, IA, IS, IE, JA, JS, JE, &
385 !!$ ATMOS_PHY_TB_??(:,:,:), VAR_NAME(1), &
386 !!$ ATMOS_GRID_CARTESC_REAL_VOL(:,:,:), & ! (in)
387 !!$ ATMOS_GRID_CARTESC_REAL_TOTVOL ) ! (in)
388 
389  return
390  end subroutine atmos_phy_tb_vars_check
391 
392 end module mod_atmos_phy_tb_vars
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_close
subroutine, public atmos_phy_tb_vars_restart_close
Close restart file.
Definition: mod_atmos_phy_tb_vars.F90:311
scale_statistics
module Statistics
Definition: scale_statistics.F90:11
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_dtype
character(len=h_short), public atmos_phy_tb_restart_out_dtype
REAL4 or REAL8.
Definition: mod_atmos_phy_tb_vars.F90:53
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_tracer::qa
integer, public qa
Definition: scale_tracer.F90:34
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_enddef
subroutine, public atmos_phy_tb_vars_restart_enddef
Exit netCDF define mode.
Definition: mod_atmos_phy_tb_vars.F90:297
mod_atmos_phy_tb_vars::atmos_phy_tb_momz_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momz_t
Definition: mod_atmos_phy_tb_vars.F90:55
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:943
scale_file_cartesc::file_cartesc_def_var
subroutine, public file_cartesc_def_var(fid, varname, desc, unit, dim_type, datatype, vid, standard_name, timeintv, nsteps, cell_measures)
Define a variable to file.
Definition: scale_file_cartesC.F90:3307
scale_precision
module PRECISION
Definition: scale_precision.F90:14
scale_atmos_grid_cartesc_index::ka
integer, public ka
Definition: scale_atmos_grid_cartesC_index.F90:47
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_read
subroutine, public atmos_phy_tb_vars_restart_read
Read restart.
Definition: mod_atmos_phy_tb_vars.F90:218
mod_atmos_phy_tb_vars::atmos_phy_tb_momx_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momx_t
Definition: mod_atmos_phy_tb_vars.F90:56
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_create
subroutine, public atmos_phy_tb_vars_restart_create
Create restart file.
Definition: mod_atmos_phy_tb_vars.F90:261
scale_atmos_grid_cartesc_real
module Atmosphere GRID CartesC Real(real space)
Definition: scale_atmos_grid_cartesC_real.F90:11
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_write
subroutine, public atmos_phy_tb_vars_restart_write
Write restart.
Definition: mod_atmos_phy_tb_vars.F90:351
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_title
character(len=h_mid), public atmos_phy_tb_restart_out_title
title of the output file
Definition: mod_atmos_phy_tb_vars.F90:52
scale_prc
module PROCESS
Definition: scale_prc.F90:11
scale_precision::rp
integer, parameter, public rp
Definition: scale_precision.F90:41
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_aggregate
logical, public atmos_phy_tb_restart_out_aggregate
Switch to use aggregate file.
Definition: mod_atmos_phy_tb_vars.F90:50
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup
subroutine, public atmos_phy_tb_vars_setup
Setup.
Definition: mod_atmos_phy_tb_vars.F90:83
scale_io
module STDIO
Definition: scale_io.F90:10
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_basename
character(len=h_long), public atmos_phy_tb_restart_in_basename
Basename of the input file.
Definition: mod_atmos_phy_tb_vars.F90:46
scale_atmos_grid_cartesc_index
module atmosphere / grid / cartesC index
Definition: scale_atmos_grid_cartesC_index.F90:12
scale_const
module CONSTANT
Definition: scale_const.F90:11
scale_atmos_grid_cartesc_index::ia
integer, public ia
Definition: scale_atmos_grid_cartesC_index.F90:48
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol
real(rp), dimension(:,:,:), allocatable, public atmos_grid_cartesc_real_vol
control volume (zxy) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:83
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_postfix_timelabel
logical, public atmos_phy_tb_restart_in_postfix_timelabel
Add timelabel to the basename of input file?
Definition: mod_atmos_phy_tb_vars.F90:48
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_postfix_timelabel
logical, public atmos_phy_tb_restart_out_postfix_timelabel
Add timelabel to the basename of output file?
Definition: mod_atmos_phy_tb_vars.F90:51
mod_atmos_phy_tb_vars
module Atmosphere / Physics Turbulence
Definition: mod_atmos_phy_tb_vars.F90:12
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1023
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_in_aggregate
logical, public atmos_phy_tb_restart_in_aggregate
Switch to use aggregate file.
Definition: mod_atmos_phy_tb_vars.F90:47
scale_prof
module profiler
Definition: scale_prof.F90:11
scale_atmos_grid_cartesc_index::ja
integer, public ja
Definition: scale_atmos_grid_cartesC_index.F90:49
scale_time
module TIME
Definition: scale_time.F90:11
scale_tracer
module TRACER
Definition: scale_tracer.F90:12
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_fillhalo
subroutine, public atmos_phy_tb_vars_fillhalo
HALO Communication.
Definition: mod_atmos_phy_tb_vars.F90:161
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_def_var
subroutine, public atmos_phy_tb_vars_restart_def_var
Write restart.
Definition: mod_atmos_phy_tb_vars.F90:331
mod_atmos_phy_tb_vars::i_tke
integer, public i_tke
Definition: mod_atmos_phy_tb_vars.F90:61
scale_file_cartesc::file_cartesc_create
subroutine, public file_cartesc_create(basename, title, datatype, fid, date, subsec, haszcoord, append, aggregate, single)
Create/open a netCDF file.
Definition: scale_file_cartesC.F90:780
scale_file_cartesc::file_cartesc_open
subroutine, public file_cartesc_open(basename, fid, aggregate)
open a netCDF file for read
Definition: scale_file_cartesC.F90:746
mod_atmos_phy_tb_vars::atmos_phy_tb_momy_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_momy_t
Definition: mod_atmos_phy_tb_vars.F90:57
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:91
scale_comm_cartesc
module COMMUNICATION
Definition: scale_comm_cartesC.F90:11
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_restart_open
subroutine, public atmos_phy_tb_vars_restart_open
Open restart file for read.
Definition: mod_atmos_phy_tb_vars.F90:183
mod_atmos_phy_tb_vars::atmos_phy_tb_vars_check
subroutine atmos_phy_tb_vars_check
Definition: mod_atmos_phy_tb_vars.F90:372
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_output
logical, public atmos_phy_tb_restart_output
output restart file?
Definition: mod_atmos_phy_tb_vars.F90:44
scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol
real(rp), public atmos_grid_cartesc_real_totvol
total volume (zxy, local) [m3]
Definition: scale_atmos_grid_cartesC_real.F90:87
mod_atmos_phy_tb_vars::atmos_phy_tb_rhoq_t
real(rp), dimension(:,:,:,:), allocatable, public atmos_phy_tb_rhoq_t
Definition: mod_atmos_phy_tb_vars.F90:59
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
mod_atmos_phy_tb_vars::atmos_phy_tb_restart_out_basename
character(len=h_long), public atmos_phy_tb_restart_out_basename
Basename of the output file.
Definition: mod_atmos_phy_tb_vars.F90:49
scale_io::io_fid_conf
integer, public io_fid_conf
Config file ID.
Definition: scale_io.F90:56
mod_atmos_phy_tb_vars::atmos_phy_tb_rhot_t
real(rp), dimension(:,:,:), allocatable, public atmos_phy_tb_rhot_t
Definition: mod_atmos_phy_tb_vars.F90:58
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11