Changeset 1104


Ignore:
Timestamp:
2008-06-10T16:01:46+02:00 (12 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.