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

Timestamp:

Jan 26, 2019 5:03:42 PM (6 years ago)

Author:

knoop

Message:

Moved user_define_netdf_grid into user_module.f90
Added module interface for the definition of additional timeseries

File:

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

palm/trunk/SOURCE/bulk_cloud_model_mod.f90

@@ -881 +881 @@
 !> Initialization of the bulk cloud module
 !------------------------------------------------------------------------------!
-    SUBROUTINE bcm_init !( dots_label, dots_unit, dots_num, dots_max )
+    SUBROUTINE bcm_init
 
        IMPLICIT NONE
@@ -888 +888 @@
        INTEGER(iwp) ::  j !<
        INTEGER(iwp) ::  k !<
-
-!        INTEGER(iwp) ::  dots_num
-!        INTEGER(iwp) ::  dots_max
-!        CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_unit
-!        CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label
 
        CALL location_message( 'initializing bulk cloud module', .FALSE. )