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 5345 for branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 – NEMO

Ignore:
Timestamp:
2015-06-04T12:29:22+02:00 (9 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy : set the right passive tracer time-step in TOP routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r4990 r5345  
    265265      INTEGER  :: jk, jn 
    266266      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 
     267      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol 
    267268      !!---------------------------------------------------------------------- 
    268269 
     
    273274      ENDIF 
    274275      ! 
    275       DO jn = 1, jptra 
    276          ztraf = glob_sum( trn(:,:,:,jn) * cvol(:,:,:) ) 
     276      DO jk = 1, jpk 
     277         zvol(:,:,jk) = e1e2t(:,:) * fse3t_a(:,:,jk) * tmask(:,:,jk) 
     278      END DO 
     279      ! 
     280      DO jn = 1, jptra 
     281         ztraf = glob_sum( trn(:,:,:,jn) * zvol(:,:,:) ) 
    277282         zmin  = MINVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 
    278283         zmax  = MAXVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 
Note: See TracChangeset for help on using the changeset viewer.