Changeset 709 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Mar 30, 2011 9:31:40 AM (13 years ago)

Author:

raasch

Message:

formatting adjustments

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! formatting adjustments
 !
 ! Former revisions:
@@ -152 +153 @@
     IF ( ocean    )  CALL calc_mean_profile( rho, 64 )
     IF ( humidity )  CALL calc_mean_profile( vpt, 44 )
-    IF ( ( ws_scheme_mom .OR. ws_scheme_sca ) .AND. &
-       intermediate_timestep_count == 1 )  CALL ws_statistics
+    IF ( ( ws_scheme_mom .OR. ws_scheme_sca )  .AND.  &
+         intermediate_timestep_count == 1 )  CALL ws_statistics
 
 !
@@ -927 +928 @@
     IF ( humidity )  CALL calc_mean_profile( vpt, 44 )
     IF ( .NOT. constant_diffusion )  CALL production_e_init
-    IF ( ( ws_scheme_mom .OR. ws_scheme_sca ) .AND. &
-       intermediate_timestep_count == 1 )  CALL ws_statistics
+    IF ( ( ws_scheme_mom .OR. ws_scheme_sca )  .AND.  &
+         intermediate_timestep_count == 1 )  CALL ws_statistics
 
 
@@ -1459 +1460 @@
     IF ( ocean    )  CALL calc_mean_profile( rho, 64 )
     IF ( humidity )  CALL calc_mean_profile( vpt, 44 )
-    IF ( ( ws_scheme_mom .OR. ws_scheme_sca ) .AND. &
-       intermediate_timestep_count == 1 )  CALL ws_statistics
+    IF ( ( ws_scheme_mom .OR. ws_scheme_sca )  .AND.  &
+         intermediate_timestep_count == 1 )  CALL ws_statistics
 
 !