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

palm/trunk/SOURCE/prandtl_fluxes.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:
@@ -40 +46 @@
 ! 978 2012-08-09 08:28:32Z fricke
 ! roughness length for scalar quantities z0h added
-!
-! 759 2011-09-15 13:58:31Z raasch
-! Bugfix for ts limitation
-!
-! 709 2011-03-30 09:31:40Z raasch
-! formatting adjustments
-!
-! 667 2010-12-23 12:06:00Z suehring/gryschka
-! Changed surface boundary conditions for u and v from mirror to Dirichlet.
-! Therefore u(uzb,:,:) and v(nzb,:,:) are now representative for height z0.
-! nxl-1, nxr+1, nys-1, nyn+1 replaced by nxlg, nxrg, nysg, nyng
-!
-! 315 2009-05-13 10:57:59Z raasch
-! Saturation condition at (sea) surface is not used in precursor runs (only
-! in the following coupled runs)
-! Bugfix: qsws was calculated in case of constant heatflux = .FALSE.
-!
-! 187 2008-08-06 16:25:09Z letzel
-! Bugfix: modification of the calculation of the vertical turbulent momentum
-! fluxes u'w' and v'w'
-! Bugfix: change definition of us_wall from 1D to 2D
-! Change: modification of the integrated version of the profile function for 
-! momentum for unstable stratification (does not effect results)
-!
-! 108 2007-08-24 15:10:38Z letzel
-! assume saturation at k=nzb_s_inner(j,i) for atmosphere coupled to ocean
-!
-! 75 2007-03-22 09:54:05Z raasch
-! moisture renamed humidity
-!
-! RCS Log replace by Id keyword, revision history cleaned up
-!
-! Revision 1.19  2006/04/26 12:24:35  raasch
-! +OpenMP directives and optimization (array assignments replaced by DO loops)
 !
 ! Revision 1.1  1998/01/23 10:06:06  raasch
@@ -85 +57 @@
 !------------------------------------------------------------------------------!
 
-    USE arrays_3d
-    USE control_parameters
-    USE grid_variables
-    USE indices
+    USE arrays_3d,                                                             &
+        ONLY:  e, pt, q, qs, qsws, rif, shf, ts, u, us, usws, v, vpt, vsws,    &
+               zu, zw, z0, z0h
+
+    USE control_parameters,                                                    &
+        ONLY:  constant_heatflux, constant_waterflux, coupling_mode, g,        &
+               humidity, ibc_e_b, kappa, large_scale_forcing, lsf_surf,        &
+               passive_scalar, pt_surface, q_surface, rif_max, rif_min,        &
+               run_coupled, surface_pressure
+
+    USE indices,                                                               &
+        ONLY:  nxl, nxlg, nxr, nxrg, nys, nysg, nyn, nyng, nzb_s_inner,        &
+               nzb_u_inner, nzb_v_inner
+
+    USE kinds
 
     IMPLICIT NONE
 
-    INTEGER ::  i, j, k
-    LOGICAL ::  coupled_run
-    REAL    ::  a, b, e_q, rifm, uv_total, z_p
+    INTEGER(iwp) ::  i            !:
+    INTEGER(iwp) ::  j            !:
+    INTEGER(iwp) ::  k            !:
+
+    LOGICAL      ::  coupled_run  !:
+
+    REAL(wp)     ::  a            !:
+    REAL(wp)     ::  b            !:
+    REAL(wp)     ::  e_q          !:
+    REAL(wp)     ::  rifm         !:
+    REAL(wp)     ::  uv_total     !:
+    REAL(wp)     ::  z_p          !:
 
 !