SCALE-RM
mod_admin_versioncheck.F90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
10 #include "scalelib.h"
11 module mod_admin_versioncheck
12  !-----------------------------------------------------------------------------
13  !
14  !++ used modules
15  !
16  use scale_precision
17  use scale_io
18  use scale_prof
19  !-----------------------------------------------------------------------------
20  implicit none
21  private
22  !-----------------------------------------------------------------------------
23  !
24  !++ Public procedure
25  !
26  public :: admin_versioncheck
27 
28  !-----------------------------------------------------------------------------
29  !
30  !++ Public parameters & variables
31  !
32  !-----------------------------------------------------------------------------
33  !
34  !++ Private procedure
35  !
36  !-----------------------------------------------------------------------------
37  !
38  !++ Private parameters & variables
39  !
40  !-----------------------------------------------------------------------------
41 contains
42  !-----------------------------------------------------------------------------
44  subroutine admin_versioncheck
45  use scale_prc, only: &
46  prc_abort
47  implicit none
48 
49  logical :: dummy
50 
51  namelist / param_time / dummy
52  namelist / param_prc / dummy
53  namelist / param_comm / dummy
54  namelist / param_nest / dummy
55 
56  namelist / param_fileio / dummy
57  namelist / param_history / dummy
58  namelist / param_hist / dummy
59  namelist / histitem / dummy
60  namelist / extitem / dummy
61  namelist / monititem / dummy
62 
63  namelist / param_index / dummy
64  namelist / param_grid / dummy
65  namelist / param_land_index / dummy
66  namelist / param_land_grid / dummy
67  namelist / param_urban_index / dummy
68  namelist / param_urban_grid / dummy
69 
70  namelist / param_tracer / dummy
71  namelist / param_tracer_kajino13 / dummy
72 
73  namelist / param_mapproj / dummy
74  namelist / param_gtrans / dummy
75 
76  namelist / param_atmos_phy_mp_bin2bulk / dummy
77  namelist / param_bin / dummy
78  namelist / nm_mp_sn14_collection / dummy
79  namelist / nm_mp_sn14_condensation / dummy
80  namelist / nm_mp_sn14_init / dummy
81  namelist / nm_mp_sn14_nucleation / dummy
82  namelist / nm_mp_sn14_particles / dummy
83  namelist / param_atmos_phy_sf / dummy
84  namelist / param_atmos_phy_sf_bulkcoef / dummy
85  namelist / param_atmos_phy_tb_hybrid / dummy
86  namelist / param_atmos_phy_tb_mynn / dummy
87 
88  namelist / param_land_phy_slab / dummy
89  namelist / param_land_sfc_slab / dummy
90  namelist / param_land_sfc_thin_slab / dummy
91  namelist / param_land_sfc_thick_slab / dummy
92 
93  namelist / param_ocean_phy_slab / dummy
94  namelist / param_ocean_phy_file / dummy
95  namelist / param_roughness / dummy
96  namelist / param_roughness_miller92 / dummy
97  namelist / param_roughness_moon07 / dummy
98 
99  namelist / param_urban_phy_slc / dummy
100 
101  namelist / param_sbmaero / dummy
102  namelist / param_mkinit_interporation / dummy
103 
104  logical :: stop4error
105  integer :: ierr
106  !---------------------------------------------------------------------------
107 
108  log_newline
109  log_info("ADMIN_versioncheck",*) 'Check version'
110 
111  stop4error = .false.
112 
113  rewind(io_fid_conf)
114  read(io_fid_conf,nml=param_prc,iostat=ierr)
115  if ( ierr >= 0 ) then !--- exists
116  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_PRC is found.'
117  log_warn_cont(*) '=> You expected to use PARAM_PRC_CARTESC?'
118  stop4error = .true.
119  endif
120 
121  rewind(io_fid_conf)
122  read(io_fid_conf,nml=param_comm,iostat=ierr)
123  if ( ierr >= 0 ) then !--- exists
124  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_COMM is found.'
125  log_warn_cont(*) '=> You expected to use PARAM_COMM_CARTESC?'
126  stop4error = .true.
127  endif
128 
129  rewind(io_fid_conf)
130  read(io_fid_conf,nml=param_nest,iostat=ierr)
131  if ( ierr >= 0 ) then !--- exists
132  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_NEST is found.'
133  log_warn_cont(*) '=> You expected to use PARAM_COMM_CARTESC_NEST?'
134  stop4error = .true.
135  endif
136 
137  rewind(io_fid_conf)
138  read(io_fid_conf,nml=param_fileio,iostat=ierr)
139  if ( ierr >= 0 ) then !--- exists
140  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_FILEIO is found.'
141  log_warn_cont(*) '=> You expected to use PARAM_FILE_CARTESC?'
142  stop4error = .true.
143  endif
144 
145  rewind(io_fid_conf)
146  read(io_fid_conf,nml=param_history,iostat=ierr)
147  if ( ierr >= 0 ) then !--- exists
148  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_HISTORY is found.'
149  log_warn_cont(*) '=> You expected to use PARAM_FILE_HISTORY?'
150  stop4error = .true.
151  endif
152 
153  rewind(io_fid_conf)
154  read(io_fid_conf,nml=param_hist,iostat=ierr)
155  if ( ierr >= 0 ) then !--- exists
156  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_HIST is found.'
157  log_warn_cont(*) '=> You expected to use PARAM_FILE_HISTORY_CARTESC?'
158  stop4error = .true.
159  endif
160 
161  rewind(io_fid_conf)
162  read(io_fid_conf,nml=histitem,iostat=ierr)
163  if ( ierr >= 0 ) then !--- exists
164  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist HISTITEM is found.'
165  log_warn_cont(*) '=> You expected to use HISTORY_ITEM?'
166  stop4error = .true.
167  endif
168 
169  rewind(io_fid_conf)
170  read(io_fid_conf,nml=extitem,iostat=ierr)
171  if ( ierr >= 0 ) then !--- exists
172  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist EXTITEM is found.'
173  log_warn_cont(*) '=> You expected to use EXTERNAL_ITEM?'
174  stop4error = .true.
175  endif
176 
177  rewind(io_fid_conf)
178  read(io_fid_conf,nml=monititem,iostat=ierr)
179  if ( ierr >= 0 ) then !--- exists
180  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist MONITITEM is found.'
181  log_warn_cont(*) '=> You expected to use MONITOR_ITEM?'
182  stop4error = .true.
183  endif
184 
185  rewind(io_fid_conf)
186  read(io_fid_conf,nml=param_index,iostat=ierr)
187  if ( ierr >= 0 ) then !--- exists
188  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_INDEX is found.'
189  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_GRID_CARTESC_INDEX?'
190  stop4error = .true.
191  endif
192 
193  rewind(io_fid_conf)
194  read(io_fid_conf,nml=param_grid,iostat=ierr)
195  if ( ierr >= 0 ) then !--- exists
196  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_GRID is found.'
197  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_GRID_CARTESC?'
198  stop4error = .true.
199  endif
200 
201  rewind(io_fid_conf)
202  read(io_fid_conf,nml=param_land_index,iostat=ierr)
203  if ( ierr >= 0 ) then !--- exists
204  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_INDEX is found.'
205  log_warn_cont(*) '=> You expected to use PARAM_LAND_GRID_CARTESC_INDEX?'
206  stop4error = .true.
207  endif
208 
209  rewind(io_fid_conf)
210  read(io_fid_conf,nml=param_land_grid,iostat=ierr)
211  if ( ierr >= 0 ) then !--- exists
212  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_GRID is found.'
213  log_warn_cont(*) '=> You expected to use PARAM_LAND_GRID_CARTESC?'
214  stop4error = .true.
215  endif
216 
217  rewind(io_fid_conf)
218  read(io_fid_conf,nml=param_urban_index,iostat=ierr)
219  if ( ierr >= 0 ) then !--- exists
220  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_URBAN_INDEX is found.'
221  log_warn_cont(*) '=> You expected to use PARAM_URBAN_GRID_CARTESC_INDEX?'
222  stop4error = .true.
223  endif
224 
225  rewind(io_fid_conf)
226  read(io_fid_conf,nml=param_urban_grid,iostat=ierr)
227  if ( ierr >= 0 ) then !--- exists
228  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_URBAN_GRID is found.'
229  log_warn_cont(*) '=> You expected to use PARAM_URBAN_GRID_CARTESC?'
230  stop4error = .true.
231  endif
232 
233  rewind(io_fid_conf)
234  read(io_fid_conf,nml=param_tracer,iostat=ierr)
235  if ( ierr >= 0 ) then !--- exists
236  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_TRACER is found.'
237  stop4error = .true.
238  endif
239 
240  rewind(io_fid_conf)
241  read(io_fid_conf,nml=param_tracer_kajino13,iostat=ierr)
242  if ( ierr >= 0 ) then !--- exists
243  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_TRACER_KAJINO13 is found.'
244  stop4error = .true.
245  endif
246 
247  rewind(io_fid_conf)
248  read(io_fid_conf,nml=param_mapproj,iostat=ierr)
249  if ( ierr >= 0 ) then !--- exists
250  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_MAPPROJ is found.'
251  log_warn_cont(*) '=> You expected to use PARAM_MAPPROJECTION?'
252  stop4error = .true.
253  endif
254 
255  rewind(io_fid_conf)
256  read(io_fid_conf,nml=param_gtrans,iostat=ierr)
257  if ( ierr >= 0 ) then !--- exists
258  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_GTRANS is found.'
259  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_GRID_CARTESC_METRIC?'
260  stop4error = .true.
261  endif
262 
263  rewind(io_fid_conf)
264  read(io_fid_conf,nml=param_atmos_phy_mp_bin2bulk,iostat=ierr)
265  if ( ierr >= 0 ) then !--- exists
266  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ATMOS_PHY_MP_BIN2BULK is found.'
267  stop4error = .true.
268  endif
269 
270  rewind(io_fid_conf)
271  read(io_fid_conf,nml=param_bin,iostat=ierr)
272  if ( ierr >= 0 ) then !--- exists
273  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_BIN is found.'
274  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SUZUKI10_bin?'
275  stop4error = .true.
276  endif
277 
278  rewind(io_fid_conf)
279  read(io_fid_conf,nml=nm_mp_sn14_collection,iostat=ierr)
280  if ( ierr >= 0 ) then !--- exists
281  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist NM_MP_SN14_COLLECTION is found.'
282  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SN14_collection?'
283  stop4error = .true.
284  endif
285 
286  rewind(io_fid_conf)
287  read(io_fid_conf,nml=nm_mp_sn14_condensation,iostat=ierr)
288  if ( ierr >= 0 ) then !--- exists
289  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist NM_MP_SN14_CONDENSATION is found.'
290  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SN14_condensation?'
291  stop4error = .true.
292  endif
293 
294  rewind(io_fid_conf)
295  read(io_fid_conf,nml=nm_mp_sn14_init,iostat=ierr)
296  if ( ierr >= 0 ) then !--- exists
297  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist NM_MP_SN14_INIT is found.'
298  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SN14_init?'
299  stop4error = .true.
300  endif
301 
302  rewind(io_fid_conf)
303  read(io_fid_conf,nml=nm_mp_sn14_nucleation,iostat=ierr)
304  if ( ierr >= 0 ) then !--- exists
305  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist NM_MP_SN14_NUCLEATION is found.'
306  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SN14_nucleation?'
307  stop4error = .true.
308  endif
309 
310  rewind(io_fid_conf)
311  read(io_fid_conf,nml=nm_mp_sn14_particles,iostat=ierr)
312  if ( ierr >= 0 ) then !--- exists
313  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist NM_MP_SN14_PARTICLES is found.'
314  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_MP_SN14_particles?'
315  stop4error = .true.
316  endif
317 
318  rewind(io_fid_conf)
319  read(io_fid_conf,nml=param_atmos_phy_sf,iostat=ierr)
320  if ( ierr >= 0 ) then !--- exists
321  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ATMOS_PHY_SF is found.'
322  log_warn_cont(*) '=> You expected to use PARAM_ATMOS_PHY_SF_BULK?'
323  stop4error = .true.
324  endif
325 
326  rewind(io_fid_conf)
327  read(io_fid_conf,nml=param_atmos_phy_sf_bulkcoef,iostat=ierr)
328  if ( ierr >= 0 ) then !--- exists
329  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ATMOS_PHY_SF_BULKCOEF is found.'
330  stop4error = .true.
331  endif
332 
333  rewind(io_fid_conf)
334  read(io_fid_conf,nml=param_atmos_phy_tb_hybrid,iostat=ierr)
335  if ( ierr >= 0 ) then !--- exists
336  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ATMOS_PHY_TB_HYBRID is found.'
337  stop4error = .true.
338  endif
339 
340  rewind(io_fid_conf)
341  read(io_fid_conf,nml=param_atmos_phy_tb_mynn,iostat=ierr)
342  if ( ierr >= 0 ) then !--- exists
343  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ATMOS_PHY_TB_MYNN is found.'
344  stop4error = .true.
345  endif
346 
347  rewind(io_fid_conf)
348  read(io_fid_conf,nml=param_land_phy_slab,iostat=ierr)
349  if ( ierr >= 0 ) then !--- exists
350  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_PHY_SLAB is found.'
351  log_warn_cont(*) '=> You expected to use PARAM_LAND_DYN_BUCKET?'
352  stop4error = .true.
353  endif
354 
355  rewind(io_fid_conf)
356  read(io_fid_conf,nml=param_land_sfc_slab,iostat=ierr)
357  if ( ierr >= 0 ) then !--- exists
358  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_SFC_SLAB is found.'
359  log_warn_cont(*) '=> You expected to use PARAM_LAND_SFC_SKIN?'
360  stop4error = .true.
361  endif
362 
363  rewind(io_fid_conf)
364  read(io_fid_conf,nml=param_land_sfc_thin_slab,iostat=ierr)
365  if ( ierr >= 0 ) then !--- exists
366  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_SFC_THIN_SLAB is found.'
367  log_warn_cont(*) '=> You expected to use PARAM_LAND_SFC_SKIN?'
368  stop4error = .true.
369  endif
370 
371  rewind(io_fid_conf)
372  read(io_fid_conf,nml=param_land_sfc_thick_slab,iostat=ierr)
373  if ( ierr >= 0 ) then !--- exists
374  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_LAND_SFC_THICK_SLAB is found.'
375  log_warn_cont(*) '=> You expected to use PARAM_LAND_SFC_FIXED_TEMP?'
376  stop4error = .true.
377  endif
378 
379  rewind(io_fid_conf)
380  read(io_fid_conf,nml=param_ocean_phy_slab,iostat=ierr)
381  if ( ierr >= 0 ) then !--- exists
382  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_OCEAN_PHY_SLAB is found.'
383  log_warn_cont(*) '=> You expected to use PARAM_OCEAN_DYN_SLAB?'
384  stop4error = .true.
385  endif
386 
387  rewind(io_fid_conf)
388  read(io_fid_conf,nml=param_ocean_phy_file,iostat=ierr)
389  if ( ierr >= 0 ) then !--- exists
390  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_OCEAN_PHY_FILE is found.'
391  log_warn_cont(*) '=> You expected to use PARAM_OCEAN_DYN_SLAB?'
392  stop4error = .true.
393  endif
394 
395  rewind(io_fid_conf)
396  read(io_fid_conf,nml=param_roughness,iostat=ierr)
397  if ( ierr >= 0 ) then !--- exists
398  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ROUGHNESS is found.'
399  log_warn_cont(*) '=> You expected to use PARAM_OCEAN_ROUGHNESS?'
400  stop4error = .true.
401  endif
402 
403  rewind(io_fid_conf)
404  read(io_fid_conf,nml=param_roughness_miller92,iostat=ierr)
405  if ( ierr >= 0 ) then !--- exists
406  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ROUGHNESS_MILLER92 is found.'
407  log_warn_cont(*) '=> You expected to use PARAM_OCEAN_PHY_ROUGHNESS_MILLER92?'
408  stop4error = .true.
409  endif
410 
411  rewind(io_fid_conf)
412  read(io_fid_conf,nml=param_roughness_moon07,iostat=ierr)
413  if ( ierr >= 0 ) then !--- exists
414  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_ROUGHNESS_MOON07 is found.'
415  log_warn_cont(*) '=> You expected to use PARAM_OCEAN_PHY_ROUGHNESS_MOON07?'
416  stop4error = .true.
417  endif
418 
419  rewind(io_fid_conf)
420  read(io_fid_conf,nml=param_urban_phy_slc,iostat=ierr)
421  if ( ierr >= 0 ) then !--- exists
422  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_URBAN_PHY_SLC is found.'
423  log_warn_cont(*) '=> You expected to use PARAM_URBAN_DYN_KUSAKA01?'
424  stop4error = .true.
425  endif
426 
427  rewind(io_fid_conf)
428  read(io_fid_conf,nml=param_sbmaero,iostat=ierr)
429  if ( ierr >= 0 ) then !--- exists
430  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_SBMAERO is found.'
431  stop4error = .true.
432  endif
433 
434  rewind(io_fid_conf)
435  read(io_fid_conf,nml=param_mkinit_interporation,iostat=ierr)
436  if ( ierr >= 0 ) then !--- exists
437  log_warn("ADMIN_versioncheck",*) 'Obsolete namelist PARAM_MKINIT_INTERPORATION is found.'
438  stop4error = .true.
439  endif
440 
441  if ( stop4error ) then !--- exists
442  log_error("ADMIN_versioncheck",*) 'Obsolete namelist found. Check the log file.'
443  call prc_abort
444  else
445  log_info("ADMIN_versioncheck",*) 'Obsolete namelists were not found. OK.'
446  endif
447 
448  return
449  end subroutine admin_versioncheck
450 
451 end module mod_admin_versioncheck
scale_io::io_fid_conf
integer, public io_fid_conf
Config file ID.
Definition: scale_io.F90:55
mod_admin_versioncheck
module ADMIN VERSIONCHECK
Definition: mod_admin_versioncheck.F90:11
scale_prc
module PROCESS
Definition: scale_prc.F90:11
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:338
scale_prof
module profiler
Definition: scale_prof.F90:11
scale_precision
module PRECISION
Definition: scale_precision.F90:14
mod_admin_versioncheck::admin_versioncheck
subroutine, public admin_versioncheck
Setup.
Definition: mod_admin_versioncheck.F90:45
scale_io
module STDIO
Definition: scale_io.F90:10
Generated by   doxygen 1.8.13