Ignore:
Timestamp:
2017-08-29T16:18:37+02:00 (4 years ago)
Author:
jpalmier
Message:

JPALM — 29-08-2017 — trends bug fix TOT, ZDF, ZDP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r8453 r8470  
    130130         ztrdt(:,:,jpk,:) = 0._wp 
    131131         IF( ln_trcldf_iso ) THEN                       ! diagnose the "pure" Kz diffusive trend  
    132             CALL trd_tra( kt, 'TRC', jn, jptra_zdfp, ztrdt ) 
     132            DO jn = 1, jptra 
     133               CALL trd_tra( kt, 'TRC', jn, jptra_zdfp, ztrdt(:,:,:,jn) ) 
     134            ENDDO 
    133135         ENDIF 
    134136         ! total trend for the non-time-filtered variables. 
     
    151153            END DO 
    152154         END IF 
    153          CALL trd_tra( kt, 'TRC', jn, jptra_tot, ztrdt ) 
     155         DO jn = 1, jptra 
     156            CALL trd_tra( kt, 'TRC', jn, jptra_tot, ztrdt(:,:,:,jn) ) 
     157         ENDDO 
    154158         IF( .NOT.lk_vvl )  THEN 
    155159            ! Store now fields before applying the Asselin filter  
     
    172176                                            ! this time step 
    173177            ztrdt(:,:,:,:) = 0._wp 
    174             CALL trd_tra( kt, 'TRC', jn, jptra_atf, ztrdt ) 
     178            DO jn = 1, jptra 
     179               CALL trd_tra( kt, 'TRC', jn, jptra_atf, ztrdt(:,:,:,jn) ) 
     180            ENDDO 
    175181         END IF 
    176182 
     
    191197               ztrdt(:,:,jk,jn) = ( trb(:,:,jk,jn) - ztrdt(:,:,jk,jn) ) * zfact  
    192198            END DO 
    193             CALL trd_tra( kt, 'TRC', jn, jptra_atf, ztrdt ) 
     199            CALL trd_tra( kt, 'TRC', jn, jptra_atf, ztrdt(:,:,:,jn) ) 
    194200         END DO 
    195201      END IF 
Note: See TracChangeset for help on using the changeset viewer.