Context Navigation

Changeset 10402 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP

Timestamp:

2018-12-17T17:07:54+01:00 (5 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: no more need of lk_mpp for mpp_sum/max/min, see #2133

Location:

Files:

r10368	r10402
118	118	ierr = ierr + p4z_rem_alloc()
119	119	!
120		~~IF( lk_mpp )~~ CALL mpp_sum( 'trcini_pisces', ierr )
	120	CALL mpp_sum( 'trcini_pisces', ierr )
121	121	IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'pisces_alloc: unable to allocate PISCES arrays' )
122	122	!
…	…
313	313	ierr = ierr + p2z_exp_alloc()
314	314	!
315		~~IF( lk_mpp )~~ CALL mpp_sum( 'trcini_pisces', ierr )
	315	CALL mpp_sum( 'trcini_pisces', ierr )
316	316	IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'p2z_ini: unable to allocate LOBSTER arrays' )
317	317

r10297	r10402
64	64	& ndextrd1(jpi*jpj), nidtrd(jptra), nh_t(jptra), STAT=trd_mxl_trc_alloc)
65	65	!
66		~~IF( lk_mpp )~~ CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc )
	66	CALL mpp_sum ( 'trdmxl_trc', trd_mxl_trc_alloc )
67	67	IF( trd_mxl_trc_alloc /=0 ) CALL ctl_warn('trd_mxl_trc_alloc: failed to allocate arrays')
68	68	!

r10377	r10402
292	292	#endif
293	293	!
294		~~IF( lk_mpp )~~ CALL mpp_sum( 'trcini', 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	!

r10297	r10402
308	308
309	309	ierr = trc_sub_alloc ()
310		~~IF( lk_mpp )~~ CALL mpp_sum( 'trcsub', ierr )
	310	CALL mpp_sum( 'trcsub', ierr )
311	311	IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'top_sub_alloc : unable to allocate standard ocean arrays' )
312	312

Note: See TracChangeset for help on using the changeset viewer.