Changeset 4659 for palm/trunk/UTIL/inifor/src/inifor.f90

Timestamp:

Aug 31, 2020 11:21:17 AM (4 years ago)

Author:

eckhard

Message:

inifor: Support for COSMO cloud water and precipitation

File:

• palm/trunk/UTIL/inifor/src/inifor.f90 (modified) (5 diffs)

palm/trunk/UTIL/inifor/src/inifor.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! List all warnings after successful run
+! Only define netCDF variables in enabled IO groups
+! 
+! 
+! 4523 2020-05-07 15:58:16Z eckhard
 ! respect integer working precision (iwp) specified in inifor_defs.f90
 ! 
@@ -118 +123 @@
                origin_lon,                                                     &
                output_file,                                                    &
-               output_var_table,                                               &
                p0,                                                             &
                phi_centre,                                                     &
@@ -199 +203 @@
 !-- the corresponding netCDF dimensions for each output variable
     CALL setup_variable_tables( cfg%ic_mode )
-    CALL log_runtime( 'time', 'write' )
-
-!
-!-- Add the output variables to the netCDF output file
-    CALL setup_netcdf_variables( output_file%name, output_var_table )
-
     CALL setup_io_groups
     CALL log_runtime( 'time', 'init' )
+!
+!-- Add the output variables to the netCDF output file
+    CALL setup_netcdf_variables( output_file%name, io_group_list)
+    CALL log_runtime( 'time', 'write' )
 
 !------------------------------------------------------------------------------
@@ -236 +238 @@
 !--          potential temperature is computed from the absolute temperature and
 !--          pressure.
-             CALL preprocess( group, input_buffer, cosmo_grid, iter )
+             CALL preprocess( group, input_buffer, cosmo_grid )
              CALL log_runtime( 'time', 'comp' )
 
@@ -591 +593 @@
     !CALL fini_grids
     CALL log_runtime( 'time', 'alloc' )
-    CALL log_runtime( 'report', 'void' )
-
-    message = "Finished writing dynamic driver '" // TRIM( output_file%name )
-   
-    IF ( n_wrngs > 0 )  THEN
-       message = TRIM( message ) // "' with " // TRIM( str( n_wrngs ) ) //     &
-       " warning(s). Please see logfile '" // LOG_FILE_NAME // "'."
-    ELSE
-       message = TRIM( message ) // "' successfully."
-    END IF
-
-    CALL report( 'main loop', message )
+
+    CALL report_warnings
+    CALL report_success( output_file%name )
+    CALL report_runtime
     CALL close_log