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

Timestamp:

Aug 23, 2019 4:06:14 PM (5 years ago)

Author:

suehring

Message:

Enable limitation of Obukhov length so that it does not become zero; to read input data from netcdf in init_3d_model use provided module variables instead of defining local ones; tests updated because changes in Obukhov lengths causes small differences during the initial phase of the run

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor formatting adjustments
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -5057 +5060 @@
 
 #if defined( __netcdf4_parallel )
-!      if __netcdf4_parallel is defined, parrallel NetCDF will be used unconditionally
+!
+!--    If __netcdf4_parallel is defined, parrallel NetCDF will be used
+!--    unconditionally
        nc_stat = NF90_OPEN( filename, IOR( NF90_WRITE, NF90_MPIIO ), id,  &
                             COMM = comm2d, INFO = MPI_INFO_NULL )
-       IF(nc_stat /= NF90_NOERR )  THEN                                       !possible NetCDF 3 file
-           nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
-           collective_read = .FALSE.
+!
+!--    Check for possible Netcdf 3 file. 
+       IF( nc_stat /= NF90_NOERR )  THEN
+          nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
+          collective_read = .FALSE.
        ELSE
-           collective_read = .TRUE.
-       END IF
+          collective_read = .TRUE.
+       ENDIF
 #else
 !      All MPI processes open und read