Changeset 564 for palm/trunk/SOURCE/check_open.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_open.f90 (modified) (7 diffs)

palm/trunk/SOURCE/check_open.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! start number of mask output files changed to 201, netcdf message identifiers
+! of masked output changed
 !
 ! Former revisions:
@@ -139 +140 @@
           ENDIF
 
-       CASE ( 101:103, 106, 111:113, 116, 121:160 )
+       CASE ( 101:103, 106, 111:113, 116, 201:200+2*max_masks )
 
           IF ( netcdf_data_format < 3 )  THEN
@@ -1366 +1367 @@
           ENDIF
 
-       CASE ( 121:160 )
+       CASE ( 201:200+2*max_masks )
 !
 !--       Set filename depending on unit number
-          IF ( file_id <= 140 )  THEN
-             mid = file_id - 120
+          IF ( file_id <= 200+max_masks )  THEN
+             mid = file_id - 200
              WRITE ( mask_char,'(I2.2)')  mid
              filename = 'DATA_MASK_' // mask_char // '_NETCDF' // coupling_char
              av = 0
           ELSE
-             mid = file_id - 140
+             mid = file_id - (200+max_masks)
              WRITE ( mask_char,'(I2.2)')  mid
              filename = 'DATA_MASK_' // mask_char // '_AV_NETCDF' // &
@@ -1396 +1397 @@
              nc_stat = NF90_OPEN( filename, NF90_WRITE, id_set_mask(mid,av) )
 #endif
-             CALL handle_netcdf_error( 'check_open', 9998 )
+             CALL handle_netcdf_error( 'check_open', 456 )
 !
 !--          Read header information and set all ids. If there is a mismatch
@@ -1407 +1408 @@
              IF ( .NOT. netcdf_extend )  THEN
                 nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
-                CALL handle_netcdf_error( 'check_open', 9998 )
+                CALL handle_netcdf_error( 'check_open', 457 )
                 CALL local_system('rm ' // TRIM( filename ) )
              ENDIF
@@ -1450 +1451 @@
              ENDIF
 
-             CALL handle_netcdf_error( 'check_open', 9998 )
+             CALL handle_netcdf_error( 'check_open', 458 )
 !
 !--          Define the header
@@ -1460 +1461 @@
 #else
 
-       CASE ( 101:109, 111:113, 116, 121:160 )
+       CASE ( 101:109, 111:113, 116, 201:200+2*max_masks )
 
 !