Changeset 1327 for palm/trunk/SOURCE/lpm_release_set.f90

Timestamp:

Mar 21, 2014 11:00:16 AM (11 years ago)

Author:

raasch

Message:

Changed:

---

-s real64 removed (.mrun.config.hlrnIII)
-r8 removed (.mrun.config.imuk)
deleted: .mrun.config.imuk_ice2_netcdf4 .mrun.config.imuk_hlrn

REAL constants defined as wp-kind in modules

"baroclinicity" renamed "baroclinity", "ocean version" replaced by
"ocean mode"

code parts concerning old output formats "iso2d" and "avs" removed.
netCDF is the only remaining output format.

Errors:

---

bugfix: duplicate error message 56 removed

File:

• palm/trunk/SOURCE/lpm_release_set.f90 (modified) (4 diffs)

palm/trunk/SOURCE/lpm_release_set.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! -netcdf output queries
 !
 ! Former revisions:
@@ -48 +48 @@
 
     USE control_parameters,                                                    &
-        ONLY:  iran, message_string, netcdf_data_format, netcdf_output
+        ONLY:  iran, message_string, netcdf_data_format
 
     USE grid_variables,                                                        &
@@ -81 +81 @@
     IF ( number_of_particles + number_of_initial_particles > &
          maximum_number_of_particles  )  THEN
-       IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
+       IF ( netcdf_data_format < 3 )  THEN
           message_string = 'maximum_number_of_particles needs to be increa' // &
                            'sed &but this is not allowed with netcdf_data_' // &
@@ -96 +96 @@
        IF ( number_of_tails + number_of_initial_tails > &
             maximum_number_of_tails  )  THEN
-          IF ( netcdf_output  .AND.  netcdf_data_format < 3 )  THEN
+          IF ( netcdf_data_format < 3 )  THEN
              message_string = 'maximum_number_of_tails needs to be increas' // &
                               'ed &but this is not allowed with netcdf_dat' // &