Ignore:
Timestamp:
Feb 11, 2019 1:06:27 PM (5 years ago)
Author:
suehring
Message:

Consider restart data in time-averaged surface output; revise error message; split initialization of surface-output module

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/module_interface.f90

    r3717 r3731  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Add required restart data for surface output module
    2323!
    2424! Former revisions:
     
    5757!> This is the interface between the PALM model core and all its modules.
    5858!>
     59!> @todo Re-format module to be consistent with coding standard
    5960!------------------------------------------------------------------------------!
    6061MODULE module_interface
     
    259260   USE surface_data_output_mod,                                                &
    260261       ONLY:  surface_data_output_parin,                                       &
    261               surface_data_output_check_parameters
     262              surface_data_output_check_parameters,                            &
     263              surface_data_output_init_arrays,                                 &
     264              surface_data_output_rrd_local,                                   &
     265              surface_data_output_rrd_global,                                  &
     266              surface_data_output_wrd_local,                                   &
     267              surface_data_output_wrd_global
    262268
    263269   USE synthetic_turbulence_generator_mod,                                     &
     
    723729   IF ( salsa               )  CALL salsa_init_arrays
    724730   IF ( urban_surface       )  CALL usm_init_arrays
     731   IF ( surface_output      )  CALL surface_data_output_init_arrays
    725732   IF ( wind_turbine        )  CALL wtm_init_arrays
    726733
     
    10791086   IF ( .NOT. found )  CALL stg_rrd_global ( found ) ! ToDo: change interface to pass variable
    10801087   IF ( .NOT. found )  CALL wtm_rrd_global( found ) ! ToDo: change interface to pass variable
     1088   IF ( .NOT. found )  CALL surface_data_output_rrd_global( found )
    10811089   IF ( .NOT. found )  CALL user_rrd_global( found ) ! ToDo: change interface to pass variable
    10821090
     
    11001108   IF ( syn_turb_gen )         CALL stg_wrd_global
    11011109   IF ( wind_turbine )         CALL wtm_wrd_global
     1110   IF ( surface_output )       CALL surface_data_output_wrd_global
    11021111   IF ( user_module_enabled )  CALL user_wrd_global
    11031112
     
    12151224                              found                                            &
    12161225                           ) ! ToDo: change interface to pass variable
    1217 
     1226         
     1227   IF ( .NOT. found ) CALL surface_data_output_rrd_local(                      &
     1228                              file_index, map_index,                           &
     1229                              nxlf, nxlc, nxl_on_file,                         &
     1230                              nxrf, nxrc, nxr_on_file,                         &
     1231                              nynf, nync, nyn_on_file,                         &
     1232                              nysf, nysc, nys_on_file,                         &
     1233                              found                                            &
     1234                           ) ! ToDo: change interface to pass variable
     1235                           
    12181236   IF ( .NOT. found ) CALL user_rrd_local(                                     &
    12191237                              file_index, map_index,                           &
     
    12461264   IF ( salsa )                CALL salsa_wrd_local
    12471265   IF ( urban_surface )        CALL usm_wrd_local
     1266   IF ( surface_output )       CALL surface_data_output_wrd_local
    12481267   IF ( user_module_enabled )  CALL user_wrd_local
    12491268
Note: See TracChangeset for help on using the changeset viewer.