Changeset 2271 for palm/trunk/SOURCE/user_define_netcdf_grid.f90

Timestamp:

Jun 9, 2017 12:34:55 PM (7 years ago)

Author:

sward

Message:

error messages and numbers updated

File:

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

palm/trunk/SOURCE/user_define_netcdf_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! found = .TRUE. added to grid definition in examples to avoid warning message
+! 
+! 2101 2017-01-05 16:42:31Z suehring
 !
 ! 2000 2016-08-20 18:09:15Z knoop
@@ -70 +73 @@
 !--    Uncomment and extend the following lines, if necessary
 !       CASE ( 'u2', 'u2_xy', 'u2_xz', 'u2_yz' )
+!          found  = .TRUE.
 !          grid_x = 'xu'
 !          grid_y = 'y'
@@ -75 +79 @@
 
 !       CASE ( 'u*v*', 'u*v*_xy', 'u*v*_xz', 'u*v*_yz' )
+!          found  = .TRUE.
 !          grid_x = 'x'
 !          grid_y = 'y'