Changeset 10425 for NEMO/trunk/src/TOP/trcini.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/trcini.F90
r10375 r10425 72 72 CALL trc_ice_ini ! Tracers in sea ice 73 73 ! 74 IF(lw p) CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp , narea )74 IF(lwm) CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp , narea ) 75 75 ! 76 76 CALL trc_ini_state ! passive tracers initialisation : from a restart or from clim … … 119 119 END DO 120 120 ! ! total volume of the ocean 121 areatot = glob_sum( cvol(:,:,:) )121 areatot = glob_sum( 'trcini', cvol(:,:,:) ) 122 122 ! 123 123 trai(:) = 0._wp ! initial content of all tracers 124 124 DO jn = 1, jptra 125 trai(jn) = trai(jn) + glob_sum( trn(:,:,:,jn) * cvol(:,:,:) )125 trai(jn) = trai(jn) + glob_sum( 'trcini', trn(:,:,:,jn) * cvol(:,:,:) ) 126 126 END DO 127 127 … … 292 292 #endif 293 293 ! 294 IF( lk_mpp ) CALL mpp_sum(ierr )294 CALL mpp_sum( 'trcini', ierr ) 295 295 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'top_alloc : unable to allocate standard ocean arrays' ) 296 296 !
Note: See TracChangeset
for help on using the changeset viewer.