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 4606 – NEMO

Changeset 4606


Ignore:
Timestamp:
2014-03-28T11:47:14+01:00 (10 years ago)
Author:
gm
Message:

#1238 - v3.4_STABLE: correct the volume calculation for tendency diagnostics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90

    r3294 r4606  
    213213      tvolt = 0._wp 
    214214      DO jk = 1, jpkm1 
    215          tvolt = SUM( e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 
     215         tvolt = tvolt + SUM( e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 
    216216      END DO 
    217217      IF( lk_mpp )   CALL mpp_sum( tvolt )   ! sum over the global domain 
     
    226226      tvolu = 0._wp 
    227227      tvolv = 0._wp 
    228  
    229228      DO jk = 1, jpk 
    230229         DO jj = 2, jpjm1 
Note: See TracChangeset for help on using the changeset viewer.