Changeset 4527 for palm


Ignore:
Timestamp:
May 11, 2020 9:39:55 AM (7 months ago)
Author:
monakurppa
Message:

salsa_mod: bug fixes in salsa_wrd_global, salsa_check_data_output and TEST/cases/urban_environment_salsa

Location:
palm/trunk
Files:
2 edited

Legend:

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

    r4525 r4527  
    2626! -----------------
    2727! $Id$
     28! Correct a bug in salsa_wrd_global and salsa_check_data_output,
     29! and add reglim to be read/written in the restart data
     30!
     31! 4525 2020-05-10 17:05:07Z raasch
    2832! added reading/writing of global restart data,
    2933! added reading/writing restart data with MPI-IO,
     
    30253029          READ ( 13 )  mass_fracs_b
    30263030
     3031       CASE ( 'reglim' )
     3032          READ ( 13 )  reglim
     3033
    30273034       CASE DEFAULT
    30283035
     
    30583065    CALL rrd_mpi_io_global_array( 'mass_fracs_a', mass_fracs_a )
    30593066    CALL rrd_mpi_io_global_array( 'mass_fracs_b', mass_fracs_b )
     3067    CALL rrd_mpi_io_global_array( 'reglim', reglim )
    30603068
    30613069 END SUBROUTINE salsa_rrd_global_mpi
     
    33733381    IF ( TRIM( restart_data_format_output ) == 'fortran_binary' )  THEN
    33743382
    3375        CALL wrd_write_string( 'listpec' )
     3383       CALL wrd_write_string( 'listspec' )
    33763384       WRITE ( 14 )  listspec
    33773385
     
    33903398       CALL wrd_write_string( 'mass_fracs_b' )
    33913399       WRITE ( 14 )  mass_fracs_b
     3400
     3401       CALL wrd_write_string( 'reglim' )
     3402       WRITE ( 14 )  reglim
    33923403
    33933404    ELSEIF ( TRIM( restart_data_format_output ) == 'mpi' )  THEN
     
    34033414       CALL wrd_mpi_io_global_array( 'mass_fracs_a', mass_fracs_a )
    34043415       CALL wrd_mpi_io_global_array( 'mass_fracs_b', mass_fracs_b )
     3416       CALL wrd_mpi_io_global_array( 'reglim', reglim )
    34053417
    34063418    ENDIF
     
    1071310725          CALL message( 'check_parameters', 'PA0707', 1, 2, 0, 6, 0 )
    1071410726       ENDIF
     10727       unit = 'kg/m3'
    1071510728
    1071610729    ELSE
     
    1072810741             unit = 'mum2/cm3'
    1072910742
    10730           CASE ( 'PM0.1', 'PM2.5', 'PM10', 's_BC', 's_DU', 's_H2O', 's_NH', 's_NO', 's_OC',        &
    10731                  's_SO4', 's_SS' )
     10743          CASE ( 'PM0.1', 'PM2.5', 'PM10', 's_BC', 's_DU', 's_NH', 's_NO', 's_OC', 's_SO4', 's_SS' )
    1073210744             unit = 'kg/m3'
    1073310745
  • palm/trunk/TESTS/cases/urban_environment_salsa/INPUT/urban_environment_salsa_p3d

    r4508 r4527  
    271271    feedback_to_palm        = .F.,   ! feedback to flow due to condensation of water
    272272    nesting_salsa           = .F.,   ! apply self-nesting for salsa variables
    273     read_restart_data_salsa = .F.,   ! skip reading restart data even if it's done for the flow
    274     write_binary_salsa      = .F.,   ! skip writing restart data even if it's done for the flow
    275273    nesting_offline_salsa   = .F.,   ! apply offline nesting for salsa
    276274
Note: See TracChangeset for help on using the changeset viewer.