Changeset 1783 for palm/trunk/SOURCE/close_file.f90

Timestamp:

Mar 6, 2016 6:36:17 PM (8 years ago)

Author:

raasch

Message:

NetCDF routines modularized; new parameter netcdf_deflate; further changes in the pmc

File:

• palm/trunk/SOURCE/close_file.f90 (modified) (16 diffs)

palm/trunk/SOURCE/close_file.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! name change of netcdf routines and module + related changes
 ! 
 ! Former revisions:
@@ -65 +65 @@
 
     USE control_parameters,                                                    &
-        ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n,                    &
-               host, max_masks, mid, netcdf_data_format,                       &
-               nz_do3d, openfile, run_description_header,       &
-               z_max_do2d
+        ONLY:  do2d_xz_n, do2d_xy_n, do2d_yz_n, do3d_avs_n, host, max_masks,   &
+               mid, nz_do3d, openfile, run_description_header, z_max_do2d
                 
     USE grid_variables,                                                        &
@@ -78 +76 @@
     USE kinds
     
-    USE netcdf_control
+#if defined( __netcdf )
+    USE NETCDF
+#endif
+
+    USE netcdf_interface,                                                      &
+        ONLY:  id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp,      &
+               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d, nc_stat, &
+               netcdf_data_format, netcdf_handle_error
                 
     USE pegrid                                           
@@ -132 +137 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_xy(0) )
-                   CALL handle_netcdf_error( 'close_file', 44 )
+                   CALL netcdf_handle_error( 'close_file', 44 )
                 ENDIF
 
@@ -139 +144 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_xz(0) )
-                   CALL handle_netcdf_error( 'close_file', 45 )
+                   CALL netcdf_handle_error( 'close_file', 45 )
                 ENDIF
 
@@ -146 +151 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_yz(0) )
-                   CALL handle_netcdf_error( 'close_file', 46 )
+                   CALL netcdf_handle_error( 'close_file', 46 )
                 ENDIF
 
@@ -153 +158 @@
                 IF ( myid == 0 )  THEN
                    nc_stat = NF90_CLOSE( id_set_pr )
-                   CALL handle_netcdf_error( 'close_file', 47 )
+                   CALL netcdf_handle_error( 'close_file', 47 )
                 ENDIF
 
@@ -160 +165 @@
                 IF ( myid == 0 )  THEN
                    nc_stat = NF90_CLOSE( id_set_ts )
-                   CALL handle_netcdf_error( 'close_file', 48 )
+                   CALL netcdf_handle_error( 'close_file', 48 )
                 ENDIF
 
@@ -167 +172 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_3d(0) )
-                   CALL handle_netcdf_error( 'close_file', 49 )
+                   CALL netcdf_handle_error( 'close_file', 49 )
                 ENDIF
 
@@ -174 +179 @@
                 IF ( myid == 0 )  THEN
                    nc_stat = NF90_CLOSE( id_set_sp )
-                   CALL handle_netcdf_error( 'close_file', 50 )
+                   CALL netcdf_handle_error( 'close_file', 50 )
                 ENDIF
 
@@ -180 +185 @@
 
                 nc_stat = NF90_CLOSE( id_set_prt )
-                CALL handle_netcdf_error( 'close_file', 51 )
+                CALL netcdf_handle_error( 'close_file', 51 )
 
              CASE ( 109 ) 
 
                 nc_stat = NF90_CLOSE( id_set_pts )
-                CALL handle_netcdf_error( 'close_file', 412 )
+                CALL netcdf_handle_error( 'close_file', 412 )
 
              CASE ( 111 )
@@ -191 +196 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_xy(1) )
-                   CALL handle_netcdf_error( 'close_file', 52 )
+                   CALL netcdf_handle_error( 'close_file', 52 )
                 ENDIF
 
@@ -198 +203 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_xz(1) )
-                   CALL handle_netcdf_error( 'close_file', 352 )
+                   CALL netcdf_handle_error( 'close_file', 352 )
                 ENDIF
 
@@ -205 +210 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_yz(1) )
-                   CALL handle_netcdf_error( 'close_file', 353 )
+                   CALL netcdf_handle_error( 'close_file', 353 )
                 ENDIF
 
@@ -212 +217 @@
                 IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
                    nc_stat = NF90_CLOSE( id_set_3d(1) )
-                   CALL handle_netcdf_error( 'close_file', 353 )
+                   CALL netcdf_handle_error( 'close_file', 353 )
                 ENDIF
 
@@ -228 +233 @@
                    ENDIF
                    nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
-                   CALL handle_netcdf_error( 'close_file', 459 )
+                   CALL netcdf_handle_error( 'close_file', 459 )
                 
                 ENDIF