Changeset 4298 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Nov 21, 2019 3:59:16 PM (5 years ago)

Author:

suehring

Message:

Bugfixes: Calculation of 2-m temperature adjusted to the case the 2-m level is above the first grid level; salsa: close netcdf input files after reading; open netcdf input files with read-only attribute instead of write attribute

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Open input files with read-only attribute instead of write attribute.
+! 
+! 4280 2019-10-29 14:34:15Z monakurppa
 ! Remove id_emis flags from get_variable_4d_to_3d_real and
 ! get_variable_5d_to_4d_real
@@ -4154 +4157 @@
 #if defined( __netcdf4_parallel )
 !
-!--    If __netcdf4_parallel is defined, parrallel NetCDF will be used
-!--    unconditionally
-       nc_stat = NF90_OPEN( filename, IOR( NF90_WRITE, NF90_MPIIO ), id,  &
+!--    If __netcdf4_parallel is defined, parrallel NetCDF will be used.
+       nc_stat = NF90_OPEN( filename, IOR( NF90_NOWRITE, NF90_MPIIO ), id,     &
                             COMM = comm2d, INFO = MPI_INFO_NULL )
 !
-!--    Check for possible Netcdf 3 file. 
+!--    In case the previous open call fails, check for possible Netcdf 3 file,
+!--    and open it. However, this case, disable parallel access. 
        IF( nc_stat /= NF90_NOERR )  THEN
           nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
@@ -4167 +4170 @@
        ENDIF
 #else
-!      All MPI processes open und read
+!
+!--    All MPI processes open the file and read it (but not in parallel).
        nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
 #endif