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

palm/trunk/SOURCE/sor.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! 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
 !
 ! Former revisions:
@@ -28 +34 @@
 ! 1036 2012-10-22 13:43:42Z raasch
 ! code put under GPL (PALM 3.9)
-!
-! 707 2011-03-29 11:39:40Z raasch
-! bc_lr/ns replaced by bc_lr/ns_cyc
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng.
-! Call of exchange_horiz are modified.
-! bug removed in declaration of ddzw(), nz replaced by nzt+1
-!
-! 75 2007-03-22 09:54:05Z raasch
-! 2nd+3rd argument removed from exchange horiz
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.9  2005/03/26 21:02:23  raasch
-! Implementation of non-cyclic (Neumann) horizontal boundary conditions,
-! dx2,dy2 replaced by ddx2,ddy2
 !
 ! Revision 1.1  1997/08/11 06:25:56  raasch
@@ -55 +44 @@
 !------------------------------------------------------------------------------!
 
-    USE grid_variables
-    USE indices
-    USE pegrid
-    USE control_parameters
+    USE grid_variables,                                                        &
+        ONLY:  ddx2, ddy2
+
+    USE indices,                                                               &
+        ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nz, nzb, nzt
+
+    USE kinds
+
+    USE control_parameters,                                                    &
+        ONLY:  bc_lr_cyc, bc_ns_cyc, ibc_p_b, ibc_p_t, inflow_l, inflow_n,     &
+               inflow_r, inflow_s, n_sor, omega_sor, outflow_l, outflow_n,     &
+               outflow_r, outflow_s
 
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k, n, nxl1, nxl2, nys1, nys2
-    REAL    ::  ddzu(1:nz+1), ddzw(1:nzt+1)
-    REAL    ::  d(nzb+1:nzt,nys:nyn,nxl:nxr),         &
-                p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)
-    REAL, DIMENSION(:), ALLOCATABLE ::  f1, f2, f3
+    INTEGER(iwp) ::  i              !:
+    INTEGER(iwp) ::  j              !:
+    INTEGER(iwp) ::  k              !:
+    INTEGER(iwp) ::  n              !:
+    INTEGER(iwp) ::  nxl1           !:
+    INTEGER(iwp) ::  nxl2           !:
+    INTEGER(iwp) ::  nys1           !:
+    INTEGER(iwp) ::  nys2           !:
+
+    REAL(wp)     ::  ddzu(1:nz+1)   !:
+    REAL(wp)     ::  ddzw(1:nzt+1)  !:
+
+    REAL(wp)     ::  d(nzb+1:nzt,nys:nyn,nxl:nxr)      !:
+    REAL(wp)     ::  p(nzb:nzt+1,nysg:nyng,nxlg:nxrg)  !:
+
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f1         !:
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f2         !:
+    REAL(wp), DIMENSION(:), ALLOCATABLE ::  f3         !:
 
     ALLOCATE( f1(1:nz), f2(1:nz), f3(1:nz) )