Ignore:
Timestamp:
Nov 21, 2019 3:59:16 PM (23 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4280 r4298  
    2525! -----------------
    2626! $Id$
     27! Open input files with read-only attribute instead of write attribute.
     28!
     29! 4280 2019-10-29 14:34:15Z monakurppa
    2730! Remove id_emis flags from get_variable_4d_to_3d_real and
    2831! get_variable_5d_to_4d_real
     
    41544157#if defined( __netcdf4_parallel )
    41554158!
    4156 !--    If __netcdf4_parallel is defined, parrallel NetCDF will be used
    4157 !--    unconditionally
    4158        nc_stat = NF90_OPEN( filename, IOR( NF90_WRITE, NF90_MPIIO ), id,  &
     4159!--    If __netcdf4_parallel is defined, parrallel NetCDF will be used.
     4160       nc_stat = NF90_OPEN( filename, IOR( NF90_NOWRITE, NF90_MPIIO ), id,     &
    41594161                            COMM = comm2d, INFO = MPI_INFO_NULL )
    41604162!
    4161 !--    Check for possible Netcdf 3 file.
     4163!--    In case the previous open call fails, check for possible Netcdf 3 file,
     4164!--    and open it. However, this case, disable parallel access.
    41624165       IF( nc_stat /= NF90_NOERR )  THEN
    41634166          nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
     
    41674170       ENDIF
    41684171#else
    4169 !      All MPI processes open und read
     4172!
     4173!--    All MPI processes open the file and read it (but not in parallel).
    41704174       nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
    41714175#endif
Note: See TracChangeset for help on using the changeset viewer.