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

Timestamp:

Sep 30, 2010 1:18:59 PM (14 years ago)

Author:

helmke

Message:

several changes for an unlimited output of mask data and message IDs changed

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! palm message identifiers of masked output changed, 20 replaced by max_masks 
 !
 ! Former revisions:
@@ -1505 +1505 @@
        IF ( dt_do3d           == 9999999.9 )  dt_do3d           = dt_data_output
        IF ( dt_data_output_av == 9999999.9 )  dt_data_output_av = dt_data_output
-       DO  mid = 1, 20
+       DO  mid = 1, max_masks
           IF ( dt_domask(mid) == 9999999.9 )  dt_domask(mid)    = dt_data_output
        ENDDO
@@ -1526 +1526 @@
     IF ( skip_time_data_output_av == 9999999.9 ) &
                                 skip_time_data_output_av = skip_time_data_output
-    DO  mid = 1, 20
+    DO  mid = 1, max_masks
        IF ( skip_time_domask(mid) == 9999999.9 ) &
                                 skip_time_domask(mid)    = skip_time_data_output
@@ -2692 +2692 @@
        WRITE( message_string, * )  'illegal value: masks must be >= 0 and ', &
             '<= ', max_masks, ' (=max_masks)'
-       CALL message( 'check_parameters', 'PA9998', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0325', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( masks > 0 )  THEN
@@ -2702 +2702 @@
                'illegal value: mask_scale_x, mask_scale_y and mask_scale_z', &
                'must be > 0.0'
-          CALL message( 'check_parameters', 'PA9998', 1, 2, 0, 6, 0 )
+          CALL message( 'check_parameters', 'PA0326', 1, 2, 0, 6, 0 )
        ENDIF
 !