Changeset 3452 for palm


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

Bugfix for profiles output

Location:
palm/trunk/SOURCE
Files:
3 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
  • palm/trunk/SOURCE/check_parameters.f90

    r3448 r3452  
    2525! -----------------
    2626! $Id$
     27! Bugfix for profiles output
     28!
     29! 3448 2018-10-29 18:14:31Z kanani
    2730! Add biometeorology
    2831!
     
    29142917
    29152918          CASE DEFAULT
    2916 
     2919             unit = 'illegal'
    29172920!
    29182921!--          Check for other modules
    2919              IF ( unit == 'illegal'  .AND.  bulk_cloud_model )  THEN
     2922             IF ( unit == 'illegal' .AND.  bulk_cloud_model )  THEN
    29202923                CALL bcm_check_data_output_pr( data_output_pr(i), i, unit,     &
    29212924                                               dopr_unit(i) )
     
    29372940             ENDIF
    29382941
    2939              CALL lsm_check_data_output_pr( data_output_pr(i), i, unit,        &
     2942             IF ( unit == 'illegal' )  THEN
     2943                CALL lsm_check_data_output_pr( data_output_pr(i), i, unit,        &
    29402944                                            dopr_unit(i) )
    2941 
     2945             ENDIF
    29422946             IF ( unit == 'illegal' )  THEN
    29432947                CALL ocean_check_data_output_pr( data_output_pr(i), i, unit,   &
  • palm/trunk/SOURCE/flow_statistics.f90

    r3298 r3452  
    2525! -----------------
    2626! $Id$
     27! Bugfix for profiles output
     28!
     29! 3298 2018-10-02 12:21:11Z kanani
    2730! - Minor formatting (kanani)
    2831! - Added  .AND. max_pr_cs > 0 before MPI_ALLREDUCE call (forkel)
     
    18811884             sums(k,116)           = sums(k,116)           / ngp_2dh_s_inner(k,sr)
    18821885             sums(k,118:pr_palm-2) = sums(k,118:pr_palm-2) / ngp_2dh_s_inner(k,sr)
     1886             sums(k,123)           = sums(k,123) * ngp_2dh_s_inner(k,sr)  / ngp_2dh(sr)
    18831887          ENDIF
    18841888       ENDDO
Note: See TracChangeset for help on using the changeset viewer.