Changeset 2301 for palm

Timestamp:

Jun 29, 2017 4:41:21 PM (7 years ago)

Author:

gronemeier

Message:

bigfix: adjust length of variable name

File:

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

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: set variable name length to global value
+! 
+! 
 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
 ! includes two more prognostic equations for cloud drop concentration (nc)  
@@ -121 +124 @@
                mask_z_loop, max_masks,  message_string, mid,                   &
                microphysics_morrison, microphysics_seifert, passive_scalar,    &
-               ocean
+               ocean, varnamelength
 
     USE grid_variables,                                                        &
@@ -141 +144 @@
     IMPLICIT NONE
 
-    CHARACTER (LEN=6) ::  var  !<
+    CHARACTER (LEN=varnamelength) ::  var  !<
     CHARACTER (LEN=7) ::  unit !<
     
-    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask      !<
-    CHARACTER (LEN=10), DIMENSION(max_masks,100) ::  do_mask_user !<
+    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  do_mask      !<
+    CHARACTER (LEN=varnamelength), DIMENSION(max_masks,100) ::  do_mask_user !<
 
     INTEGER(iwp) ::  i            !<