Changeset 3441 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
- Timestamp:
- 2012-08-07T13:12:15+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
r3421 r3441 193 193 COMPLEX(wp) :: ctmp 194 194 REAL(wp), DIMENSION(jpncs) :: zfwf ! 1D workspace 195 REAL(wp) :: zdum 195 196 !!---------------------------------------------------------------------- 196 197 ! … … 228 229 END DO 229 230 END DO 230 IF( lk_mpp ) CALL mpp_sum ( surf, jpncs +1) ! mpp: sum over all the global domain231 IF( lk_mpp ) CALL mpp_sum ( surf, jpncs ) ! mpp: sum over all the global domain 231 232 ENDIF 232 233 … … 243 244 ENDIF 244 245 ! !--------------------! 246 zdum = glob_sum(emp(:,:)*e1e2t(:,:)) 247 WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum 245 248 ! ! update emp, emps ! 246 249 zfwf = 0.e0_wp !--------------------! … … 343 346 CALL lbc_lnk( emps, 'T', 1._wp ) 344 347 ! 348 zdum = glob_sum(emp(:,:)*e1e2t(:,:)) 349 WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum 345 350 IF( nn_timing == 1 ) CALL timing_stop('sbc_clo') 346 351 !
Note: See TracChangeset
for help on using the changeset viewer.