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

Timestamp:

Mar 9, 2007 12:05:41 PM (17 years ago)

Author:

raasch

Message:

preliminary update of further changes, advec_particles is not running!

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! z0 removed from arguments in calls of diffusion_u/v/w
 !
 ! Former revisions:
@@ -130 +130 @@
           IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
              CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend, u_m,   &
-                               usws_m, v_m, w_m, z0 )
+                               usws_m, v_m, w_m )
           ELSE
              CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, usws, &
-                               v, w, z0 )
+                               v, w )
           ENDIF
           CALL coriolis( i, j, 1 )
@@ -198 +198 @@
           IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
              CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend, u_m, &
-                               v_m, vsws_m, w_m, z0 )
+                               v_m, vsws_m, w_m )
           ELSE
              CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v,  &
-                               vsws, w, z0 )
+                               vsws, w )
           ENDIF
           CALL coriolis( i, j, 2 )
@@ -265 +265 @@
           IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
              CALL diffusion_w( i, j, ddzu, ddzw, km_m, km_damp_x, km_damp_y,  &
-                               tend, u_m, v_m, w_m, z0 )
+                               tend, u_m, v_m, w_m )
           ELSE
              CALL diffusion_w( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y,    &
-                               tend, u, v, w, z0 )
+                               tend, u, v, w )
           ENDIF
           CALL coriolis( i, j, 3 )
@@ -668 +668 @@
              THEN
                 CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend,  &
-                                  u_m, usws_m, v_m, w_m, z0 )
+                                  u_m, usws_m, v_m, w_m )
              ELSE
                 CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, &
-                                  usws, v, w, z0 )
+                                  usws, v, w )
              ENDIF
              CALL coriolis( i, j, 1 )
@@ -718 +718 @@
              THEN
                 CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend,     &
-                                  u_m, v_m, vsws_m, w_m, z0 )
+                                  u_m, v_m, vsws_m, w_m )
              ELSE
                 CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v, &
-                                  vsws, w, z0 )
+                                  vsws, w )
              ENDIF
              CALL coriolis( i, j, 2 )
@@ -767 +767 @@
              THEN
                 CALL diffusion_w( i, j, ddzu, ddzw, km_m, km_damp_x,          &
-                                  km_damp_y, tend, u_m, v_m, w_m, z0 )
+                                  km_damp_y, tend, u_m, v_m, w_m )
              ELSE
                 CALL diffusion_w( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y, &
-                                  tend, u, v, w, z0 )
+                                  tend, u, v, w )
              ENDIF
              CALL coriolis( i, j, 3 )
@@ -1041 +1041 @@
     IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
        CALL diffusion_u( ddzu, ddzw, km_m, km_damp_y, tend, u_m, usws_m, v_m, &
-                         w_m, z0 )
+                         w_m )
     ELSE
-       CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w, z0 )
+       CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w )
     ENDIF
     CALL coriolis( 1 )
@@ -1113 +1113 @@
     IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
        CALL diffusion_v( ddzu, ddzw, km_m, km_damp_x, tend, u_m, v_m, vsws_m, &
-                         w_m, z0 )
+                         w_m )
     ELSE
-       CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w, z0 )
+       CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w )
     ENDIF
     CALL coriolis( 2 )
@@ -1184 +1184 @@
     IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
        CALL diffusion_w( ddzu, ddzw, km_m, km_damp_x, km_damp_y, tend, u_m, &
-                         v_m, w_m, z0 )
+                         v_m, w_m )
     ELSE
-       CALL diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, w, &
-                         z0 )
+       CALL diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, w )
     ENDIF
     CALL coriolis( 3 )