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

Bugfix for profiles output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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,   &
Note: See TracChangeset for help on using the changeset viewer.