Changeset 1320 for palm/trunk/SOURCE/user_module.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_module.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_module.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 
 ! 
 !
@@ -28 +34 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 220 2008-12-18 07:00:36Z raasch
-! Former file user_interface.f90 split into one file per subroutine,
-! revision history cleaned up
-!
-! 159 2008-04-09 08:06:03Z raasch
-! bugfix in user_read_restart_data
-! small bugfixes for sample code (comments):
-! - initialize ustvst with 0.0 as it is now computed only until nxr and nyn
-! - two ALLOCATE statements moved from user_read_restart_data back to user_init
-! - remove 'READ (13) u2_av' statement in user_read_restart_data
-! +routines user_read_restart_data, user_spectra
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.18  2006/06/02 15:25:00  raasch
-! +change of grid-defining arguments in routine user_define_netcdf_grid,
-! new argument "found" in user_data_output_2d and user_data_output_3d
 !
 ! Revision 1.1  1998/03/24 15:29:04  raasch
@@ -57 +45 @@
 !------------------------------------------------------------------------------!
 
-    INTEGER ::  dots_num_palm, user_idummy
-    LOGICAL ::  user_defined_namelist_found = .FALSE.
-    REAL    ::  user_rdummy
+    USE kinds
+
+    IMPLICIT NONE
+
+    INTEGER(iwp) ::  dots_num_palm   !: 
+    INTEGER(iwp) ::  user_idummy     !: 
+    
+    LOGICAL ::  user_defined_namelist_found = .FALSE.   !: 
+    
+    REAL(wp) ::  user_rdummy   !: 
 
 !
 !-- Sample for user-defined output
-!    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  u2, u2_av
-!    REAL, DIMENSION(:,:,:), ALLOCATABLE ::  ustvst
+!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  u2       !: user defined array
+!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  u2_av    !: user defined array
+!    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ustvst   !: user defined array
 
     SAVE