Ignore:
Timestamp:
Mar 9, 2007 12:05:41 PM (15 years ago)
Author:
raasch
Message:

preliminary update of further changes, advec_particles is not running!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/prognostic_equations.f90

    r39 r57  
    44! Actual revisions:
    55! -----------------
    6 !
     6! z0 removed from arguments in calls of diffusion_u/v/w
    77!
    88! Former revisions:
     
    130130          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    131131             CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend, u_m,   &
    132                                usws_m, v_m, w_m, z0 )
     132                               usws_m, v_m, w_m )
    133133          ELSE
    134134             CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, usws, &
    135                                v, w, z0 )
     135                               v, w )
    136136          ENDIF
    137137          CALL coriolis( i, j, 1 )
     
    198198          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    199199             CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend, u_m, &
    200                                v_m, vsws_m, w_m, z0 )
     200                               v_m, vsws_m, w_m )
    201201          ELSE
    202202             CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v,  &
    203                                vsws, w, z0 )
     203                               vsws, w )
    204204          ENDIF
    205205          CALL coriolis( i, j, 2 )
     
    265265          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    266266             CALL diffusion_w( i, j, ddzu, ddzw, km_m, km_damp_x, km_damp_y,  &
    267                                tend, u_m, v_m, w_m, z0 )
     267                               tend, u_m, v_m, w_m )
    268268          ELSE
    269269             CALL diffusion_w( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y,    &
    270                                tend, u, v, w, z0 )
     270                               tend, u, v, w )
    271271          ENDIF
    272272          CALL coriolis( i, j, 3 )
     
    668668             THEN
    669669                CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend,  &
    670                                   u_m, usws_m, v_m, w_m, z0 )
     670                                  u_m, usws_m, v_m, w_m )
    671671             ELSE
    672672                CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, &
    673                                   usws, v, w, z0 )
     673                                  usws, v, w )
    674674             ENDIF
    675675             CALL coriolis( i, j, 1 )
     
    718718             THEN
    719719                CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend,     &
    720                                   u_m, v_m, vsws_m, w_m, z0 )
     720                                  u_m, v_m, vsws_m, w_m )
    721721             ELSE
    722722                CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v, &
    723                                   vsws, w, z0 )
     723                                  vsws, w )
    724724             ENDIF
    725725             CALL coriolis( i, j, 2 )
     
    767767             THEN
    768768                CALL diffusion_w( i, j, ddzu, ddzw, km_m, km_damp_x,          &
    769                                   km_damp_y, tend, u_m, v_m, w_m, z0 )
     769                                  km_damp_y, tend, u_m, v_m, w_m )
    770770             ELSE
    771771                CALL diffusion_w( i, j, ddzu, ddzw, km, km_damp_x, km_damp_y, &
    772                                   tend, u, v, w, z0 )
     772                                  tend, u, v, w )
    773773             ENDIF
    774774             CALL coriolis( i, j, 3 )
     
    10411041    IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    10421042       CALL diffusion_u( ddzu, ddzw, km_m, km_damp_y, tend, u_m, usws_m, v_m, &
    1043                          w_m, z0 )
     1043                         w_m )
    10441044    ELSE
    1045        CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w, z0 )
     1045       CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w )
    10461046    ENDIF
    10471047    CALL coriolis( 1 )
     
    11131113    IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    11141114       CALL diffusion_v( ddzu, ddzw, km_m, km_damp_x, tend, u_m, v_m, vsws_m, &
    1115                          w_m, z0 )
     1115                         w_m )
    11161116    ELSE
    1117        CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w, z0 )
     1117       CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w )
    11181118    ENDIF
    11191119    CALL coriolis( 2 )
     
    11841184    IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    11851185       CALL diffusion_w( ddzu, ddzw, km_m, km_damp_x, km_damp_y, tend, u_m, &
    1186                          v_m, w_m, z0 )
     1186                         v_m, w_m )
    11871187    ELSE
    1188        CALL diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, w, &
    1189                          z0 )
     1188       CALL diffusion_w( ddzu, ddzw, km, km_damp_x, km_damp_y, tend, u, v, w )
    11901189    ENDIF
    11911190    CALL coriolis( 3 )
Note: See TracChangeset for help on using the changeset viewer.