Ignore:
Timestamp:
Apr 7, 2016 7:49:42 AM (5 years ago)
Author:
hoffmann
Message:

changes in LPM and bulk cloud microphysics

File:
1 edited

Legend:

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

    r1818 r1822  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! icloud_scheme replaced by microphysics_*
    2222!
    2323! Former revisions:
     
    9797               data_output_masks, data_output_masks_user,                      &
    9898               doav, doav_n, domask, domask_no, dz, dz_stretch_level, humidity,&
    99                icloud_scheme, mask, masks, mask_scale, mask_i,                 &
     99               mask, masks, mask_scale, mask_i,                                &
    100100               mask_i_global, mask_j, mask_j_global, mask_k, mask_k_global,    &
    101101               mask_loop, mask_size, mask_size_l, mask_start_l, mask_x,        &
    102102               mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
    103103               mask_z_loop, max_masks,  message_string, mid,                   &
    104                passive_scalar, precipitation, ocean
     104               microphysics_seifert, passive_scalar, ocean
    105105
    106106    USE grid_variables,                                                        &
     
    270270                        '" requires cloud_physics = .TRUE.'
    271271                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    272                  ELSEIF ( icloud_scheme /= 0 ) THEN
     272                 ELSEIF ( .NOT. microphysics_seifert ) THEN
    273273                   message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    274274                         'res cloud_scheme = seifert_beheng'
    275275                   CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
    276                  ELSEIF ( .NOT. precipitation )  THEN
    277                    message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    278                                  'res precipitation = .TRUE.'
    279                    CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
    280276                ENDIF
    281277                unit = '1/m3'
     
    305301                            'res cloud_physics = .TRUE.'
    306302                   CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    307                 ELSEIF ( icloud_scheme /= 0 ) THEN
    308                    message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    309                             'res cloud_scheme = seifert_beheng'
    310                    CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
    311303                ENDIF
    312304                unit = 'kg/kg'
     
    344336                            'res cloud_physics = .TRUE.'
    345337                   CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    346                 ELSEIF ( icloud_scheme /= 0 ) THEN
     338                ELSEIF ( .NOT. microphysics_seifert ) THEN
    347339                   message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    348340                            'res cloud_scheme = seifert_beheng'
    349341                   CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
    350                 ELSEIF ( .NOT. precipitation )  THEN
    351                    message_string = 'output of "' // TRIM( var ) // '" requi' //  &
    352                                     'res precipitation = .TRUE.'
    353                    CALL message( 'check_parameters', 'PA0112', 1, 2, 0, 6, 0 )
    354342                ENDIF
    355343                unit = 'kg/kg'
Note: See TracChangeset for help on using the changeset viewer.