New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1104 for trunk/NEMO/OPA_SRC/DYN/dynvor.F90 – NEMO

Ignore:
Timestamp:
2008-06-10T16:01:46+02:00 (16 years ago)
Author:
ctlod
Message:

trunk: change the second ztrdu(:,:,:) field into ztrdv(:,:,:) when calling trd_mod subroutine for the planetary vorticity trend in dynvor.F90, see ticket: #20

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DYN/dynvor.F90

    r789 r1104  
    106106            ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    107107            ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    108             CALL trd_mod( ztrdu, ztrdu, jpdyn_trd_pvo, 'DYN', kt ) 
     108            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_pvo, 'DYN', kt ) 
    109109            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_dat, 'DYN', kt ) 
    110110         ELSE 
    … …  
    125125            ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    126126            ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    127             CALL trd_mod( ztrdu, ztrdu, jpdyn_trd_pvo, 'DYN', kt ) 
     127            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_pvo, 'DYN', kt ) 
    128128            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_dat, 'DYN', kt ) 
    129129         ELSE 
    … …  
    144144            ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    145145            ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    146             CALL trd_mod( ztrdu, ztrdu, jpdyn_trd_pvo, 'DYN', kt ) 
     146            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_pvo, 'DYN', kt ) 
    147147            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_dat, 'DYN', kt ) 
    148148         ELSE 
    … …  
    163163            ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 
    164164            ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 
    165             CALL trd_mod( ztrdu, ztrdu, jpdyn_trd_pvo, 'DYN', kt ) 
     165            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_pvo, 'DYN', kt ) 
    166166            CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_dat, 'DYN', kt ) 
    167167         ELSE 
Note: See TracChangeset for help on using the changeset viewer.