Ignore:
Timestamp:
Jun 20, 2017 9:51:42 AM (4 years ago)
Author:
schwenkel
Message:

implementation of new bulk microphysics scheme

File:
1 edited

Legend:

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

    r2271 r2292  
    2525! -----------------
    2626! $Id$
     27! Implementation of new microphysic scheme: cloud_scheme = 'morrison'
     28! includes two more prognostic equations for cloud drop concentration (nc) 
     29! and cloud water content (qc).
     30!
     31! 2271 2017-06-09 12:34:55Z sward
    2732! Changed error message
    2833!
     
    115120               mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
    116121               mask_z_loop, max_masks,  message_string, mid,                   &
    117                microphysics_seifert, passive_scalar, ocean
     122               microphysics_morrison, microphysics_seifert, passive_scalar,    &
     123               ocean
    118124
    119125    USE grid_variables,                                                        &
     
    278284                unit = 'K'
    279285
     286             CASE ( 'nc' )
     287                IF ( .NOT. cloud_physics )  THEN
     288                   WRITE ( message_string, * ) 'output of "', TRIM( var ), &
     289                        '" requires cloud_physics = .TRUE.'
     290                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
     291                 ELSEIF ( .NOT. microphysics_morrison ) THEN
     292                   message_string = 'output of "' // TRIM( var ) // '" requi' //  &
     293                         'res  = morrison'
     294                   CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
     295                ENDIF
     296                unit = '1/m3'
     297
    280298             CASE ( 'nr' )
    281299                IF ( .NOT. cloud_physics )  THEN
Note: See TracChangeset for help on using the changeset viewer.