Changeset 3452 for palm/trunk/SOURCE/bulk_cloud_model_mod.f90

Timestamp:

Oct 30, 2018 1:13:34 PM (5 years ago)

Author:

schwenkel

Message:

Bugfix for profiles output

File:

• palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for profiles output
+! 
+! 3445 2018-10-29 12:23:02Z schwenkel
 ! Minor bugfix and use of subroutine for supersaturation calculation in case
 ! of cache version
@@ -736 +739 @@
                 CALL message( 'check_parameters', 'PA0358', 1, 2, 0, 6, 0 )
              ENDIF
-             pr_index = 89
+             pr_index = 123
              dopr_index(var_count) = pr_index
              dopr_unit     = '1/m3'
@@ -763 +766 @@
                                  ' cloud_scheme = saturation_adjust'
                 CALL message( 'check_parameters', 'PA0422', 1, 2, 0, 6, 0 )
-             ENDIF
+             ENDIF 
              pr_index = 76
              dopr_index(var_count) = pr_index
@@ -769 +772 @@
              unit = dopr_unit
              hom(:,2,pr_index,:)  = SPREAD( zu, 2, statistic_regions+1 )
-
           CASE ( 'qc' )
              pr_index = 75
@@ -785 +787 @@
                 CALL message( 'check_parameters', 'PA0358', 1, 2, 0, 6, 0 )
              ENDIF
-             pr_index = 744
+             pr_index = 74
              dopr_index(var_count) = pr_index
              dopr_unit     = 'kg/kg'
@@ -795 +797 @@
 
        END SELECT
-
 
     END SUBROUTINE bcm_check_data_output_pr