Ignore:
Timestamp:
Feb 25, 2019 4:54:16 PM (5 years ago)
Author:
suehring
Message:

remove unused variables in surface_data_output_mod and use compiler diretives to declare variables only if netcdf4-output is used

File:
1 edited

Legend:

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

    r3747 r3762  
    2525! -----------------
    2626! $Id$
     27! only pass required arguments to surface_data_output_rrd_local
     28!
     29! 3747 2019-02-16 15:15:23Z gronemeier
    2730! Call user_init_arrays
    2831!
     
    12521255                              found                                            &
    12531256                           ) ! ToDo: change interface to pass variable
    1254          
    1255    IF ( .NOT. found ) CALL surface_data_output_rrd_local(                      &
    1256                               file_index, map_index,                           &
    1257                               nxlf, nxlc, nxl_on_file,                         &
    1258                               nxrf, nxrc, nxr_on_file,                         &
    1259                               nynf, nync, nyn_on_file,                         &
    1260                               nysf, nysc, nys_on_file,                         &
    1261                               found                                            &
    1262                            ) ! ToDo: change interface to pass variable
     1257!
     1258!--Surface data do not need overlap data, so do not pass these information.
     1259   IF ( .NOT. found ) CALL surface_data_output_rrd_local( found )
    12631260                           
    12641261   IF ( .NOT. found ) CALL user_rrd_local(                                     &
Note: See TracChangeset for help on using the changeset viewer.