Changeset 2007 for palm/trunk/SOURCE/modules.f90

Timestamp:

Aug 24, 2016 3:47:17 PM (8 years ago)

Author:

kanani

Message:

changes in the course of urban surface model implementation

File:

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

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Increased DIMENSION of data_output, data_output_user, do2d, do3d
 ! 
 ! Former revisions:
@@ -631 +631 @@
     CHARACTER (LEN=1000) ::  message_string = ' '
 
-    CHARACTER (LEN=20), DIMENSION(100) ::  data_output = ' ',    &
+    CHARACTER (LEN=20), DIMENSION(500) ::  data_output = ' ',    &
                                            data_output_user = ' ', doav = ' '
     CHARACTER (LEN=20), DIMENSION(max_masks,100) ::  &
@@ -639 +639 @@
     CHARACTER (LEN=20), DIMENSION(200) ::  data_output_pr_user = ' '
     CHARACTER (LEN=20), DIMENSION(max_masks,0:1,100) ::  domask = ' '
-    CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
+    CHARACTER (LEN=20), DIMENSION(0:1,500) ::  do2d = ' ', do3d = ' '
 
     INTEGER(iwp), PARAMETER :: fl_max = 100, var_fl_max = 20