Changeset 3442

Timestamp:

2012-08-07T13:15:44+02:00 (12 years ago)

Author:

beppe

Message:

Removed emp correction check print out

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

@@ -193 +193 @@
       COMPLEX(wp)         ::   ctmp 
       REAL(wp), DIMENSION(jpncs) ::   zfwf   ! 1D workspace
-      REAL(wp) :: zdum
       !!----------------------------------------------------------------------
       !
@@ -244 +243 @@
       ENDIF
       !                                                   !--------------------!
-      zdum = glob_sum(emp(:,:)*e1e2t(:,:))
-      WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum
       !                                                   !  update emp, emps  !
       zfwf = 0.e0_wp                                      !--------------------!
@@ -346 +343 @@
       CALL lbc_lnk( emps, 'T', 1._wp )
       !
-      zdum = glob_sum(emp(:,:)*e1e2t(:,:))
-      WRITE(numout,*) 'kt=', kt, ' EMP BEFORE=', zdum
       IF( nn_timing == 1 )  CALL timing_stop('sbc_clo')
       !