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 8049 for branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 – NEMO

Ignore:
Timestamp:
2017-05-19T15:32:50+02:00 (7 years ago)
Author:
dford
Message:

Add FABM-related code changes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/CO6_KD490_amm7_oper_fabm/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r6332 r8049  
    110110      ! 
    111111      ztrai = 0._wp                                                   !  content of all tracers 
    112       DO jn = 1, jptra 
    113          ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:)   ) 
    114       END DO 
    115       IF( lwp ) WRITE(numstr,9300) kt,  ztrai / areatot 
     112      !DO jn = 1, jptra 
     113      !   ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:)   ) 
     114      !END DO 
     115      !IF( lwp ) WRITE(numstr,9300) kt,  ztrai / areatot 
    1161169300  FORMAT(i10,e18.10) 
    117117      ! 
Note: See TracChangeset for help on using the changeset viewer.