Changeset 992 for palm

Timestamp:

Sep 5, 2012 3:08:26 PM (12 years ago)

Author:

hoffmann

Message:

removal of two informative messages in netcdf.f90

File:

• palm/trunk/SOURCE/netcdf.f90 (modified) (8 diffs)

palm/trunk/SOURCE/netcdf.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-!
+! Removal of the informative messages PA0352 and PA0353.
 !
 ! Former revisions:
@@ -131 +131 @@
                                        var_list, var_list_old
 
-    CHARACTER (LEN=100), DIMENSION(1:crmax) :: cross_profiles_adj,   &
-                                               cross_profiles_char
+    CHARACTER (LEN=100), DIMENSION(1:crmax) ::  cross_profiles_adj,   &
+                                                cross_profiles_char
 
     INTEGER ::  av, cross_profiles_count, cross_profiles_maxi, delim, &
@@ -143 +143 @@
                               id_dim_zu_mask_old
 
-    INTEGER, DIMENSION(1:crmax) :: cross_profiles_numb
-
-    LOGICAL ::  cross_profiles_log, found
+    INTEGER, DIMENSION(1:crmax) ::  cross_profiles_numb
+
+    LOGICAL ::  found
 
     LOGICAL, INTENT (INOUT) ::  extend
@@ -3200 +3200 @@
 !--       Check if all profiles defined in cross_profiles are defined in 
 !--       data_output_pr. If not, they will be skipped.
-          cross_profiles_log = .FALSE.
-          message_string = ''
 
           DO  i = 1, cross_profiles_count
@@ -3213 +3211 @@
                 IF ( j == dopr_n )  THEN
                    cross_profiles_numb(i) = 999999
-                   cross_profiles_log = .TRUE.
-                   message_string = TRIM( message_string ) // ', ' // &
-                                    TRIM( cross_profiles_char(i) )
                 ENDIF
 
              ENDDO
           ENDDO
-
-          IF ( cross_profiles_log )  THEN
-             message_string = TRIM( message_string ) // ' is/are not' // &
-                              ' defined in data_output_pr.'
-             CALL message( 'define_netcdf_header', 'PA0352', 0, 0, 0, 6, 0 )
-          ENDIF
 
           DO i = 1, crmax
@@ -3249 +3238 @@
 !--       Check if all profiles defined in data_output_pr are defined in 
 !--       cross_profiles. If not, they will be added to cross_profiles.
-          cross_profiles_log = .FALSE.
-          message_string = ' '
 
           DO  i = 1, dopr_n
@@ -3268 +3255 @@
                    cross_profiles_numb(MIN( crmax, cross_profiles_count )) =  &
                                                       cross_profiles_maxi
-                   cross_profiles_log   = .TRUE.
-                   message_string = TRIM( message_string ) // ', ' // &
-                                    TRIM( data_output_pr(i) )
                 ENDIF
 
@@ -3276 +3260 @@
           ENDDO
 
-          IF ( cross_profiles_log )  THEN
-             message_string = TRIM(message_string(2:)) // ' has/have been' //  &
-                              ' added to cross_profiles.'
-             CALL message( 'define_netcdf_header', 'PA0353', 0, 0, 0, 6, 0 )
-          ENDIF
-
           IF ( cross_profiles_count >= crmax )  THEN
-             message_string = 'It is not allowed to arrange more than '&
-                              // '100 profiles with cross_profiles. Apart '&
-                              // 'from that, all profiles are saved to the '&
-                              // 'netCDF file.'
+             message_string = 'It is not allowed to arrange more than '     &
+                              // '100 profiles with & cross_profiles. Apart'&
+                              // ' from that, all profiles are saved & to ' &
+                              // 'the netCDF file.'
              CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 )
           ENDIF