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

Timestamp:

Nov 22, 2018 2:11:57 PM (5 years ago)

Author:

suehring

Message:

restart mechanism for surface elements commented, some formatting

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Some formatting adjustment
 ! 
 ! Former revisions:
@@ -946 +946 @@
                            input_file_atts%rotation_angle, .TRUE. )
 
-       CALL get_attribute( id_mod, input_file_atts%author_char,         input_file_atts%author,         .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%contact_person_char, input_file_atts%contact_person, .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%institution_char,    input_file_atts%institution,    .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%acronym_char,        input_file_atts%acronym,        .TRUE., no_abort=.FALSE. )
-
-       CALL get_attribute( id_mod, input_file_atts%campaign_char, input_file_atts%campaign, .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%location_char, input_file_atts%location, .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%site_char,     input_file_atts%site,     .TRUE., no_abort=.FALSE. )
-
-       CALL get_attribute( id_mod, input_file_atts%source_char,     input_file_atts%source,     .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%references_char, input_file_atts%references, .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%keywords_char,   input_file_atts%keywords,   .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%licence_char,    input_file_atts%licence,    .TRUE., no_abort=.FALSE. )
-       CALL get_attribute( id_mod, input_file_atts%comment_char,    input_file_atts%comment,    .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%author_char,                &
+                           input_file_atts%author, .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%contact_person_char,        &
+                           input_file_atts%contact_person, .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%institution_char,           &
+                           input_file_atts%institution,    .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%acronym_char,               &
+                           input_file_atts%acronym,        .TRUE., no_abort=.FALSE. )
+
+       CALL get_attribute( id_mod, input_file_atts%campaign_char,              &
+                           input_file_atts%campaign, .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%location_char,              &
+                           input_file_atts%location, .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%site_char,                  &
+                           input_file_atts%site,     .TRUE., no_abort=.FALSE. )
+
+       CALL get_attribute( id_mod, input_file_atts%source_char,                &
+                           input_file_atts%source,     .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%references_char,            &
+                           input_file_atts%references, .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%keywords_char,              &
+                           input_file_atts%keywords,   .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%licence_char,               &
+                           input_file_atts%licence,    .TRUE., no_abort=.FALSE. )
+       CALL get_attribute( id_mod, input_file_atts%comment_char,               &
+                           input_file_atts%comment,    .TRUE., no_abort=.FALSE. )
 !
 !--    Read coordinate reference system if available