Ignore:
Timestamp:
Oct 30, 2018 1:13:34 PM (3 years ago)
Author:
schwenkel
Message:

Bugfix for profiles output

File:
1 edited

Legend:

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

    r3445 r3452  
    2525! -----------------
    2626! $Id$
     27! Bugfix for profiles output
     28!
     29! 3445 2018-10-29 12:23:02Z schwenkel
    2730! Minor bugfix and use of subroutine for supersaturation calculation in case
    2831! of cache version
     
    736739                CALL message( 'check_parameters', 'PA0358', 1, 2, 0, 6, 0 )
    737740             ENDIF
    738              pr_index = 89
     741             pr_index = 123
    739742             dopr_index(var_count) = pr_index
    740743             dopr_unit     = '1/m3'
     
    763766                                 ' cloud_scheme = saturation_adjust'
    764767                CALL message( 'check_parameters', 'PA0422', 1, 2, 0, 6, 0 )
    765              ENDIF
     768             ENDIF 
    766769             pr_index = 76
    767770             dopr_index(var_count) = pr_index
     
    769772             unit = dopr_unit
    770773             hom(:,2,pr_index,:)  = SPREAD( zu, 2, statistic_regions+1 )
    771 
    772774          CASE ( 'qc' )
    773775             pr_index = 75
     
    785787                CALL message( 'check_parameters', 'PA0358', 1, 2, 0, 6, 0 )
    786788             ENDIF
    787              pr_index = 744
     789             pr_index = 74
    788790             dopr_index(var_count) = pr_index
    789791             dopr_unit     = 'kg/kg'
     
    795797
    796798       END SELECT
    797 
    798799
    799800    END SUBROUTINE bcm_check_data_output_pr
Note: See TracChangeset for help on using the changeset viewer.