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

Timestamp:

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

Author:

schwenkel

Message:

Bugfix for profiles output

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for profiles output
+! 
+! 3448 2018-10-29 18:14:31Z kanani
 ! Add biometeorology
 ! 
@@ -2914 +2917 @@
 
           CASE DEFAULT
-
+             unit = 'illegal'
 !
 !--          Check for other modules
-             IF ( unit == 'illegal'  .AND.  bulk_cloud_model  )  THEN
+             IF ( unit == 'illegal' .AND.  bulk_cloud_model )  THEN
                 CALL bcm_check_data_output_pr( data_output_pr(i), i, unit,     &
                                                dopr_unit(i) )
@@ -2937 +2940 @@
              ENDIF
 
-             CALL lsm_check_data_output_pr( data_output_pr(i), i, unit,        &
+             IF ( unit == 'illegal' )  THEN
+                CALL lsm_check_data_output_pr( data_output_pr(i), i, unit,        &
                                             dopr_unit(i) )
-
+             ENDIF
              IF ( unit == 'illegal' )  THEN
                 CALL ocean_check_data_output_pr( data_output_pr(i), i, unit,   &