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

palm/trunk/SOURCE/user_data_output_3d.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! kind-parameters added to all INTEGER and REAL declaration statements,
+! kinds are defined in new module kinds,
+! revision history before 2012 removed,
+! comment fields (!:) to be used for variable explanations added to
+! all variable declaration statements 
 !
 ! Former revisions:
@@ -32 +36 @@
 ! code put under GPL (PALM 3.9)
 !
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
-!
 ! 211 2008-11-11 04:46:24Z raasch
 ! Former file user_interface.f90 split into one file per subroutine
@@ -45 +46 @@
 
     USE indices
-    USE precision_kind
+
+    USE kinds
+
     USE user
 
     IMPLICIT NONE
 
-    CHARACTER (LEN=*) ::  variable
+    CHARACTER (LEN=*) ::  variable !: 
 
-    INTEGER ::  av, i, j, k, nz_do
+    INTEGER(iwp) ::  av    !: 
+    INTEGER(iwp) ::  i     !: 
+    INTEGER(iwp) ::  j     !: 
+    INTEGER(iwp) ::  k     !: 
+    INTEGER(iwp) ::  nz_do !: 
 
-    LOGICAL ::  found
+    LOGICAL      ::  found !: 
 
-   REAL(spk), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nz_do) ::  local_pf
+   REAL(sp), DIMENSION(nxlg:nxrg,nysg:nyng,nzb:nz_do) ::  local_pf !: