Ignore:
Timestamp:
Jul 27, 2007 9:09:17 AM (14 years ago)
Author:
raasch
Message:

preliminary version for coupled runs

File:
1 edited

Legend:

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

    r98 r102  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +uswst, vswst as arguments in calls of diffusion_u|v
    77!
    88! Former revisions:
     
    148148          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    149149             CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend, u_m,   &
    150                                usws_m, v_m, w_m )
     150                               usws_m, uswst_m, v_m, w_m )
    151151          ELSE
    152152             CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, usws, &
    153                                v, w )
     153                               uswst, v, w )
    154154          ENDIF
    155155          CALL coriolis( i, j, 1 )
     
    216216          IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    217217             CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend, u_m, &
    218                                v_m, vsws_m, w_m )
     218                               v_m, vsws_m, vswst_m, w_m )
    219219          ELSE
    220220             CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v,  &
    221                                vsws, w )
     221                               vsws, vswst, w )
    222222          ENDIF
    223223          CALL coriolis( i, j, 2 )
     
    817817             THEN
    818818                CALL diffusion_u( i, j, ddzu, ddzw, km_m, km_damp_y, tend,  &
    819                                   u_m, usws_m, v_m, w_m )
     819                                  u_m, usws_m, uswst_m, v_m, w_m )
    820820             ELSE
    821821                CALL diffusion_u( i, j, ddzu, ddzw, km, km_damp_y, tend, u, &
    822                                   usws, v, w )
     822                                  usws, uswst, v, w )
    823823             ENDIF
    824824             CALL coriolis( i, j, 1 )
     
    868868             THEN
    869869                CALL diffusion_v( i, j, ddzu, ddzw, km_m, km_damp_x, tend,     &
    870                                   u_m, v_m, vsws_m, w_m )
     870                                  u_m, v_m, vsws_m, vswst_m, w_m )
    871871             ELSE
    872872                CALL diffusion_v( i, j, ddzu, ddzw, km, km_damp_x, tend, u, v, &
    873                                   vsws, w )
     873                                  vsws, vswst, w )
    874874             ENDIF
    875875             CALL coriolis( i, j, 2 )
     
    12571257    ENDIF
    12581258    IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    1259        CALL diffusion_u( ddzu, ddzw, km_m, km_damp_y, tend, u_m, usws_m, v_m, &
    1260                          w_m )
     1259       CALL diffusion_u( ddzu, ddzw, km_m, km_damp_y, tend, u_m, usws_m, &
     1260                         uswst_m, v_m, w_m )
    12611261    ELSE
    1262        CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, v, w )
     1262       CALL diffusion_u( ddzu, ddzw, km, km_damp_y, tend, u, usws, uswst, v, w )
    12631263    ENDIF
    12641264    CALL coriolis( 1 )
     
    13301330    IF ( tsc(2) == 2.0  .AND.  timestep_scheme(1:8) == 'leapfrog' )  THEN
    13311331       CALL diffusion_v( ddzu, ddzw, km_m, km_damp_x, tend, u_m, v_m, vsws_m, &
    1332                          w_m )
     1332                         vswst_m, w_m )
    13331333    ELSE
    1334        CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, w )
     1334       CALL diffusion_v( ddzu, ddzw, km, km_damp_x, tend, u, v, vsws, vswst, w )
    13351335    ENDIF
    13361336    CALL coriolis( 2 )
Note: See TracChangeset for help on using the changeset viewer.