Ignore:
Timestamp:
Apr 8, 2019 2:38:39 PM (2 years ago)
Author:
knoop
Message:

Moving prognostic equations of bcm into bulk_cloud_model_mod

File:
1 edited

Legend:

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

    r3865 r3871  
    150150    USE salsa_util_mod
    151151
     152    USE statistics,                                                            &
     153        ONLY:  sums_salsa_ws_l
     154
    152155    IMPLICIT NONE
    153156!
     
    727730       MODULE PROCEDURE salsa_driver
    728731    END INTERFACE salsa_driver
     732
     733!-- Actions salsa variables
     734    INTERFACE salsa_actions
     735       MODULE PROCEDURE salsa_actions
     736       MODULE PROCEDURE salsa_actions_ij
     737    END INTERFACE salsa_actions
    729738!
    730739!-- Prognostics equations for salsa variables
     
    750759           salsa_data_output_mask, salsa_define_netcdf_grid, salsa_diagnostics, salsa_driver,      &
    751760           salsa_emission_update, salsa_header, salsa_init, salsa_init_arrays, salsa_parin,        &
    752            salsa_rrd_local, salsa_swap_timelevel, salsa_prognostic_equations, salsa_wrd_local
     761           salsa_rrd_local, salsa_swap_timelevel, salsa_prognostic_equations, salsa_wrd_local,     &
     762           salsa_actions
    753763!
    754764!-- Public parameters, constants and initial values
     
    12491259          surf_usm_v(l)%gtsws = 0.0_wp
    12501260       ENDDO
     1261    ENDIF
     1262
     1263    IF ( ws_scheme_sca )  THEN
     1264
     1265       IF ( salsa )  THEN
     1266          ALLOCATE( sums_salsa_ws_l(nzb:nzt+1,0:threads_per_task-1) )
     1267          sums_salsa_ws_l = 0.0_wp
     1268       ENDIF
     1269
    12511270    ENDIF
    12521271
     
    70847103 END SUBROUTINE salsa_diagnostics
    70857104
     7105
     7106!------------------------------------------------------------------------------!
     7107! Description:
     7108! ------------
     7109!> Call for all grid points
     7110!------------------------------------------------------------------------------!
     7111 SUBROUTINE salsa_actions( location )
     7112
     7113
     7114    CHARACTER (LEN=*), INTENT(IN) ::  location !< call location string
     7115
     7116    SELECT CASE ( location )
     7117
     7118       CASE ( 'before_timestep' )
     7119
     7120          IF ( ws_scheme_sca )  sums_salsa_ws_l = 0.0_wp
     7121
     7122       CASE DEFAULT
     7123          CONTINUE
     7124
     7125    END SELECT
     7126
     7127 END SUBROUTINE salsa_actions
     7128
     7129
     7130!------------------------------------------------------------------------------!
     7131! Description:
     7132! ------------
     7133!> Call for grid points i,j
     7134!------------------------------------------------------------------------------!
     7135
     7136 SUBROUTINE salsa_actions_ij( i, j, location )
     7137
     7138
     7139    INTEGER(iwp),      INTENT(IN) ::  i         !< grid index in x-direction
     7140    INTEGER(iwp),      INTENT(IN) ::  j         !< grid index in y-direction
     7141    CHARACTER (LEN=*), INTENT(IN) ::  location  !< call location string
     7142    INTEGER(iwp)  ::  dummy  !< call location string
     7143
     7144    IF ( bulk_cloud_model    )   dummy = i + j
     7145
     7146    SELECT CASE ( location )
     7147
     7148       CASE ( 'before_timestep' )
     7149
     7150          IF ( ws_scheme_sca )  sums_salsa_ws_l = 0.0_wp
     7151
     7152       CASE DEFAULT
     7153          CONTINUE
     7154
     7155    END SELECT
     7156
     7157
     7158 END SUBROUTINE salsa_actions_ij
     7159
    70867160!
    70877161!------------------------------------------------------------------------------!
     
    70957169    USE control_parameters,                                                                        &
    70967170        ONLY:  time_since_reference_point
    7097 
    7098     USE salsa_util_mod,                                                                            &
    7099         ONLY:  sums_salsa_ws_l
    71007171
    71017172    IMPLICIT NONE
     
    71677238    USE control_parameters,                                                                        &
    71687239        ONLY:  time_since_reference_point
    7169 
    7170     USE salsa_util_mod,                                                                            &
    7171         ONLY:  sums_salsa_ws_l
    71727240
    71737241    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.