- Timestamp:
- 2017-02-20T11:07:50+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r7694 r7701 55 55 !! Update the passive tracers 56 56 !!------------------------------------------------------------------- 57 58 USE dom_oce, ONLY: narea 59 57 60 INTEGER, INTENT( in ) :: kt ! ocean time-step index 58 61 INTEGER :: jk, jn ! dummy loop indices … … 136 139 ! Hence we restrict its use by protecting it with the ln_ctl RTL 137 140 ! which should normally only be used under debugging conditions 138 ! and not in operational runs. 139 ztrai = 0._wp ! content of all tracers 141 ! and not in operational runs. We also need to restrict output 142 ! to the master PE since there's no point duplicating the same results 143 ! on all processors. 144 ztrai = 0._wp ! content of all tracers 140 145 DO jn = 1, jptra 141 146 ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:) ) 142 147 END DO 143 IF ( lwp) WRITE(numstr,9300) kt, ztrai / areatot148 IF (narea == 1) WRITE(numstr,9300) kt, ztrai / areatot 144 149 9300 FORMAT(i10,e18.10) 145 150 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.