Changeset 1320 for palm/trunk/SOURCE/user_parin.f90

Timestamp:

Mar 20, 2014 8:40:49 AM (10 years ago)

Author:

raasch

Message:

ONLY-attribute added to USE-statements,
kind-parameters added to all INTEGER and REAL declaration statements,
kinds are defined in new module kinds,
old module precision_kind is removed,
revision history before 2012 removed,
comment fields (!:) to be used for variable explanations added to all variable declaration statements

File:

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

palm/trunk/SOURCE/user_parin.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
+! kind-parameters added to all INTEGER and REAL declaration statements, 
+! kinds are defined in new module kinds, 
+! old module precision_kind is removed,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 !
 !
@@ -35 +41 @@
 ! Bugfix: disable max_pr_user check during prior namelist file check
 !
-! 553 2010-09-01 14:09:06Z weinreis
-! data_output_mask_user_* replaced by array data_output_masks_user
-!
-! 410 2009-12-04 17:05:40Z letzel
-! masked data output
-!
-! 274 2009-03-26 15:11:21Z heinze
-! Output of messages replaced by message handling routine.
-! topography_grid_convention moved to inipar
-!
 ! 217 2008-12-09 18:00:48Z letzel
 ! +topography_grid_convention
@@ -55 +51 @@
 
     USE control_parameters
+    
+    USE kinds
+    
     USE pegrid
+    
     USE statistics
+    
     USE user
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=80) ::  zeile
+    CHARACTER (LEN=80) ::  zeile   !: 
 
-    INTEGER ::  i, j, max_pr_user_tmp
+    INTEGER(iwp) ::  i                 !: 
+    INTEGER(iwp) ::  j                 !: 
+    INTEGER(iwp) ::  max_pr_user_tmp   !: 
 
 
-    NAMELIST /userpar/  data_output_pr_user, data_output_user, region,  &
+    NAMELIST /userpar/  data_output_pr_user, data_output_user, region,         &
                         data_output_masks_user
 
@@ -110 +113 @@
     IF ( TRIM( initializing_actions ) == 'read_restart_data' )  THEN
        IF ( max_pr_user /= max_pr_user_tmp )  THEN
-          WRITE( message_string, * ) 'the number of user-defined profiles ', &
-                     'given in &data_output_pr (', max_pr_user_tmp, ') doe', &
-                     'snot match the one ',                                  &
-                     '&found in the restart file (', max_pr_user,            &
+          WRITE( message_string, * ) 'the number of user-defined profiles ',   &
+                     'given in &data_output_pr (', max_pr_user_tmp, ') doe',   &
+                     'snot match the one ',                                    &
+                     '&found in the restart file (', max_pr_user,              &
                                      ')'
           CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 )