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

Timestamp:

Sep 1, 2010 2:09:06 PM (13 years ago)

Author:

weinreis

Message:

several parameters for masked output are replaced by arrays

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! masks is calculated and removed from inipar
 !
 ! Former revisions:
@@ -2680 +2680 @@
 !
 !-- Check mask conditions
+    DO mid = 1, max_masks
+       IF ( data_output_masks(mid,1) /= ' ') THEN
+          masks = masks + 1
+       ENDIF
+    ENDDO
+    
     IF ( masks < 0 .OR. masks > max_masks )  THEN
        WRITE( message_string, * )  'illegal value: masks must be >= 0 and ', &