Changeset 4029 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Jun 14, 2019 2:04:35 PM (5 years ago)

Author:

raasch

Message:

bugfix: decycling of chemistry species after nesting data transfer, exchange of ghost points and boundary conditions separated for chemical species and SALSA module, nest_chemistry option removed, netcdf variable NF90_NOFILL is used as argument instead of 1 in calls to NF90_DEF_VAR_FILL

File:

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

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! netcdf variable NF90_NOFILL is used as argument instead of "1" in calls to NF90_DEF_VAR_FILL
+! 
+! 3995 2019-05-22 18:59:54Z suehring
 ! output of turbulence intensity added
 ! 
@@ -2016 +2019 @@
                 nc_stat = NF90_DEF_VAR_FILL( id_set_3d(av),     &
                                              id_var_do3d(av,i), &
-                                             1, 0 )
+                                             NF90_NOFILL, 0 )
                 CALL netcdf_handle_error( 'netcdf_define_header', 532 )
 !
@@ -3000 +3003 @@
                    nc_stat = NF90_DEF_VAR_FILL( id_set_xy(av),     &
                                                 id_var_do2d(av,i), &
-                                                1, 0 )
+                                                NF90_NOFILL, 0 )
                    CALL netcdf_handle_error( 'netcdf_define_header', 533 )
 !
@@ -3888 +3891 @@
                    nc_stat = NF90_DEF_VAR_FILL( id_set_xz(av),     &
                                                 id_var_do2d(av,i), &
-                                                1, 0 )
+                                                NF90_NOFILL, 0 )
                    CALL netcdf_handle_error( 'netcdf_define_header', 534 )
 !
@@ -4744 +4747 @@
                    nc_stat = NF90_DEF_VAR_FILL( id_set_yz(av),     &
                                                 id_var_do2d(av,i), &
-                                                1, 0 )
+                                                NF90_NOFILL, 0 )
                    CALL netcdf_handle_error( 'netcdf_define_header', 535 )
 !