Ignore:
Timestamp:
Jun 1, 2007 3:25:22 PM (14 years ago)
Author:
raasch
Message:

preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r77 r94  
    44! Actual revisions:
    55! -----------------
    6 !
     6! new argument zw in calls of diffusion_e
    77!
    88! Former revisions:
     
    557557                IF ( .NOT. humidity )  THEN
    558558                   CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    559                                      l_grid, pt, rif, tend, zu )
     559                                     l_grid, pt, rif, tend, zu, zw )
    560560                ELSE
    561561                   CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    562                                      l_grid, vpt, rif, tend, zu )
     562                                     l_grid, vpt, rif, tend, zu, zw )
    563563                ENDIF
    564564             ELSE
     
    582582                   IF ( .NOT. humidity )  THEN
    583583                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, &
    584                                         km_m, l_grid, pt_m, rif_m, tend, zu )
     584                                        km_m, l_grid, pt_m, rif_m, tend, zu, &
     585                                        zw )
    585586                   ELSE
    586587                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, &
    587                                         km_m, l_grid, vpt_m, rif_m, tend, zu )
     588                                        km_m, l_grid, vpt_m, rif_m, tend, zu, &
     589                                        zw )
    588590                   ENDIF
    589591                ELSE
    590592                   IF ( .NOT. humidity )  THEN
    591593                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    592                                         l_grid, pt, rif, tend, zu )
     594                                        l_grid, pt, rif, tend, zu, zw )
    593595                   ELSE
    594596                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    595                                         l_grid, vpt, rif, tend, zu )
     597                                        l_grid, vpt, rif, tend, zu, zw )
    596598                   ENDIF
    597599                ENDIF
     
    961963                   IF ( .NOT. humidity )  THEN
    962964                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, &
    963                                         km_m, l_grid, pt_m, rif_m, tend, zu )
     965                                        km_m, l_grid, pt_m, rif_m, tend, zu, &
     966                                        zw )
    964967                   ELSE
    965968                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e_m, &
    966                                         km_m, l_grid, vpt_m, rif_m, tend, zu )
     969                                        km_m, l_grid, vpt_m, rif_m, tend, zu, &
     970                                        zw )
    967971                   ENDIF
    968972                ELSE
    969973                   IF ( .NOT. humidity )  THEN
    970974                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    971                                         l_grid, pt, rif, tend, zu )
     975                                        l_grid, pt, rif, tend, zu, zw )
    972976                   ELSE
    973977                      CALL diffusion_e( i, j, ddzu, dd2zu, ddzw, diss, e, km, &
    974                                         l_grid, vpt, rif, tend, zu )
     978                                        l_grid, vpt, rif, tend, zu, zw )
    975979                   ENDIF
    976980                ENDIF
     
    15001504          IF ( .NOT. humidity )  THEN
    15011505             CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, pt, &
    1502                                rif, tend, zu )
     1506                               rif, tend, zu, zw )
    15031507          ELSE
    15041508             CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, vpt, &
    1505                                rif, tend, zu )
     1509                               rif, tend, zu, zw )
    15061510          ENDIF
    15071511       ELSE
     
    15231527             IF ( .NOT. humidity )  THEN
    15241528                CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e_m, km_m, l_grid, &
    1525                                   pt_m, rif_m, tend, zu )
     1529                                  pt_m, rif_m, tend, zu, zw )
    15261530             ELSE
    15271531                CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e_m, km_m, l_grid, &
    1528                                   vpt_m, rif_m, tend, zu )
     1532                                  vpt_m, rif_m, tend, zu, zw )
    15291533             ENDIF
    15301534          ELSE
    15311535             IF ( .NOT. humidity )  THEN
    15321536                CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, pt, &
    1533                                   rif, tend, zu )
     1537                                  rif, tend, zu, zw )
    15341538             ELSE
    15351539                CALL diffusion_e( ddzu, dd2zu, ddzw, diss, e, km, l_grid, vpt, &
    1536                                   rif, tend, zu )
     1540                                  rif, tend, zu, zw )
    15371541             ENDIF
    15381542          ENDIF
Note: See TracChangeset for help on using the changeset viewer.