- Timestamp:
- 2012-08-07T13:15:44+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
r3441 r3442 193 193 COMPLEX(wp) :: ctmp 194 194 REAL(wp), DIMENSION(jpncs) :: zfwf ! 1D workspace 195 REAL(wp) :: zdum196 195 !!---------------------------------------------------------------------- 197 196 ! … … 244 243 ENDIF 245 244 ! !--------------------! 246 zdum = glob_sum(emp(:,:)*e1e2t(:,:))247 WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum248 245 ! ! update emp, emps ! 249 246 zfwf = 0.e0_wp !--------------------! … … 346 343 CALL lbc_lnk( emps, 'T', 1._wp ) 347 344 ! 348 zdum = glob_sum(emp(:,:)*e1e2t(:,:))349 WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum350 345 IF( nn_timing == 1 ) CALL timing_stop('sbc_clo') 351 346 !
Note: See TracChangeset
for help on using the changeset viewer.