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 6245 for branches/NERC – NEMO

Changeset 6245 for branches/NERC


Ignore:
Timestamp:
2016-01-13T17:40:57+01:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 13-01-2016 -- MEDUSA debugg

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r6234 r6245  
    578578      INTEGER  :: jk, jn 
    579579      REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 
    580       REAL(wp), DIMENSION(jpi,jpj,jpk) :: zvol 
     580      REAL(wp), DIMENSION(jpi,jpj) :: zvol 
    581581      !!---------------------------------------------------------------------- 
    582582 
     
    587587      ENDIF 
    588588      ! 
    589       DO jk = 1, jpk 
    590          zvol(:,:,jk) = e1e2t(:,:) * fse3t_a(:,:,jk) * tmask(:,:,jk) 
    591       END DO 
    592       ! 
     589         zvol(:,:) = e1e2t(:,:) * fse3t_a(:,:,1) * tmask(:,:,1) 
    593590      DO jn = 1, jptra 
    594          ztraf = glob_sum( tra(:,:,1,jn) * zvol(:,:,:) ) 
     591         ztraf = glob_sum( tra(:,:,1,jn) * zvol(:,:) ) 
    595592         zmin  = MINVAL( tra(:,:,1,jn), mask= ((tmask(:,:,1).NE.0.)) ) 
    596593         zmax  = MAXVAL( tra(:,:,1,jn), mask= ((tmask(:,:,1).NE.0.)) ) 
Note: See TracChangeset for help on using the changeset viewer.