Ignore:
Timestamp:
May 7, 2019 12:32:52 PM (5 years ago)
Author:
monakurppa
Message:

Remove salsa calls from prognostic_equations and correct a bug in the salsa deposition for urban and land surface models

File:
1 edited

Legend:

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

    r3931 r3956  
    2525! -----------------
    2626! $Id$
     27! - Added calls for salsa_non_advective_processes and
     28!   salsa_exchange_horiz_bounds
     29! - Moved the call for salsa_data_output_2d/3d before that of
     30!   radiation_data_output_2d/3d. radiation_data_output_2d/3d tries to read a
     31!   salsa output variable and encounters a segmentation fault for "Ntot" due
     32!   to the shortoutput name
     33!
     34! 3931 2019-04-24 16:34:28Z schwenkel
    2735! Changed non_transport_physics to non_advective_processes
    2836!
     
    158166               bcm_actions,                                                    &
    159167               bcm_non_advective_processes,                                    &
    160                bcm_exchange_horiz,                                             &               
     168               bcm_exchange_horiz,                                             &
    161169               bcm_prognostic_equations,                                       &
    162170               bcm_swap_timelevel,                                             &
     
    303311               salsa_header,                                                   &
    304312               salsa_actions,                                                  &
     313               salsa_non_advective_processes,                                  &
     314               salsa_exchange_horiz_bounds,                                    &
    305315               salsa_prognostic_equations,                                     &
    306316               salsa_swap_timelevel,                                           &
     
    963973    IF ( bulk_cloud_model    )  CALL bcm_non_advective_processes()
    964974    IF ( air_chemistry       )  CALL chem_non_advective_processes()
     975    IF ( salsa               )  CALL salsa_non_advective_processes()
    965976
    966977
     
    980991
    981992
    982     IF ( bulk_cloud_model    )  CALL bcm_non_advective_processes( i, j )   
     993    IF ( bulk_cloud_model    )  CALL bcm_non_advective_processes( i, j )
    983994    IF ( air_chemistry       )  CALL chem_non_advective_processes( i, j )
     995    IF ( salsa               )  CALL salsa_non_advective_processes( i, j )
    984996
    985997
     
    9961008    IF ( bulk_cloud_model    )  CALL bcm_exchange_horiz()
    9971009    IF ( air_chemistry       )  CALL chem_exchange_horiz_bounds()
     1010    IF ( salsa               )  CALL salsa_exchange_horiz_bounds()
    9981011
    9991012 END SUBROUTINE module_interface_exchange_horiz
     
    11491162    ENDIF
    11501163
     1164    IF ( .NOT. found  .AND.  salsa )  THEN
     1165       CALL salsa_data_output_2d(                                              &
     1166               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
     1167            )
     1168    ENDIF
     1169
    11511170    IF ( .NOT. found  .AND.  radiation )  THEN
    11521171       CALL radiation_data_output_2d(                                          &
    1153                av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
    1154             )
    1155     ENDIF
    1156 
    1157     IF ( .NOT. found  .AND.  salsa )  THEN
    1158        CALL salsa_data_output_2d(                                              &
    11591172               av, variable, found, grid, mode, local_pf, two_d, nzb_do, nzt_do&
    11601173            )
     
    12261239    ENDIF
    12271240
     1241    IF ( .NOT. found  .AND.  salsa )  THEN
     1242       CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
     1243       resorted = .TRUE.
     1244    ENDIF
     1245
    12281246    IF ( .NOT. found  .AND.  radiation )  THEN
    12291247       CALL radiation_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
    1230        resorted = .TRUE.
    1231     ENDIF
    1232 
    1233     IF ( .NOT. found  .AND.  salsa )  THEN
    1234        CALL salsa_data_output_3d( av, variable, found, local_pf, nzb_do, nzt_do )
    12351248       resorted = .TRUE.
    12361249    ENDIF
Note: See TracChangeset for help on using the changeset viewer.