Ignore:
Timestamp:
Sep 24, 2018 3:42:55 PM (3 years ago)
Author:
knoop
Message:

Modularization of all bulk cloud physics code components

File:
1 edited

Legend:

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

    r3065 r3274  
    2525! -----------------
    2626! $Id$
     27! Modularization of all bulk cloud physics code components
     28!
     29! 3065 2018-06-12 07:03:02Z Giersch
    2730! dz_stretch_level was replaced by dz_stretch_level_start
    2831!
     
    134137
    135138    USE control_parameters,                                                    &
    136         ONLY:  constant_diffusion, cloud_droplets, cloud_physics,              &
     139        ONLY:  constant_diffusion, cloud_droplets,                             &
    137140               data_output_masks, data_output_masks_user,                      &
    138141               doav, doav_n, domask, domask_no, dz, dz_stretch_level_start,    &
     
    142145               mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
    143146               mask_z_loop, max_masks,  message_string, mid,                   &
    144                microphysics_morrison, microphysics_seifert, passive_scalar,    &
    145                ocean, varnamelength
    146                
     147               passive_scalar, ocean, varnamelength
     148
    147149
    148150    USE grid_variables,                                                        &
     
    153155
    154156    USE kinds
     157
     158    USE bulk_cloud_model_mod,                                                  &
     159        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    155160
    156161    USE netcdf_interface,                                                      &
     
    309314
    310315             CASE ( 'lpt' )
    311                 IF ( .NOT. cloud_physics )  THEN
    312                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
    313                         '" requires cloud_physics = .TRUE.'
     316                IF ( .NOT. bulk_cloud_model )  THEN
     317                   WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
     318                        '" requires bulk_cloud_model = .TRUE.'
    314319                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    315320                ENDIF
     
    317322
    318323             CASE ( 'nc' )
    319                 IF ( .NOT. cloud_physics )  THEN
    320                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
    321                         '" requires cloud_physics = .TRUE.'
     324                IF ( .NOT. bulk_cloud_model )  THEN
     325                   WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
     326                        '" requires bulk_cloud_model = .TRUE.'
    322327                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    323328                 ELSEIF ( .NOT. microphysics_morrison ) THEN
     
    329334
    330335             CASE ( 'nr' )
    331                 IF ( .NOT. cloud_physics )  THEN
    332                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
    333                         '" requires cloud_physics = .TRUE.'
     336                IF ( .NOT. bulk_cloud_model )  THEN
     337                   WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
     338                        '" requires bulk_cloud_model = .TRUE.'
    334339                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    335340                 ELSEIF ( .NOT. microphysics_seifert ) THEN
     
    360365
    361366             CASE ( 'qc' )
    362                 IF ( .NOT. cloud_physics )  THEN
     367                IF ( .NOT. bulk_cloud_model )  THEN
    363368                   message_string = 'output of "' // TRIM( var ) // '"' //     &
    364                             'requires cloud_physics = .TRUE.'
     369                            'requires bulk_cloud_model = .TRUE.'
    365370                   CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    366371                ENDIF
     
    368373
    369374             CASE ( 'ql' )
    370                 IF ( .NOT. ( cloud_physics  .OR.  cloud_droplets ) )  THEN
    371                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
    372                         '" requires cloud_physics = .TRUE. or cloud_droplets', &
    373                         ' = .TRUE.'
     375                IF ( .NOT. ( bulk_cloud_model  .OR.  cloud_droplets ) )  THEN
     376                   WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
     377                        '" requires bulk_cloud_model = .TRUE. or ',            &
     378                        'cloud_droplets = .TRUE.'
    374379                   CALL message( 'init_masks', 'PA0106', 1, 2, 0, 6, 0 )
    375380                ENDIF
     
    387392
    388393             CASE ( 'qv' )
    389                 IF ( .NOT. cloud_physics )  THEN
    390                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
    391                         '" requires cloud_physics = .TRUE.'
     394                IF ( .NOT. bulk_cloud_model )  THEN
     395                   WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
     396                        '" requires bulk_cloud_model = .TRUE.'
    392397                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    393398                ENDIF
     
    395400
    396401             CASE ( 'qr' )
    397                 IF ( .NOT. cloud_physics )  THEN
     402                IF ( .NOT. bulk_cloud_model )  THEN
    398403                   message_string = 'output of "' // TRIM( var ) // '" ' //    &
    399                             'requires cloud_physics = .TRUE.'
     404                            'requires bulk_cloud_model = .TRUE.'
    400405                   CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    401406                ELSEIF ( .NOT. microphysics_seifert ) THEN
Note: See TracChangeset for help on using the changeset viewer.