Changeset 8002 for branches/UKMO

Timestamp:

2017-05-08T17:51:45+02:00 (7 years ago)

Author:

andmirek

Message:

remove unnecessary print from iom.F90

File:

• branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1088 +1088 @@
                 IF(     PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN
                    CALL lbc_lnk( pv_r2d,'Z',-999.,'no0' )
-                   if(lwp) write(numout,*) trim(cdvar),'UPDATE'
                 ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown ) THEN
                    ! this if could be simplified with the new lbc_lnk that works with any size of the 3rd dimension
                    IF( icnt(3) == jpk ) THEN
                       CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' )
-                      if(lwp) write(numout,*) trim(cdvar),'UPDATE'
                    ELSE   ! put some arbitrary value (a call to lbc_lnk will be done later...)
                       DO jj = nlcj+1, jpj   ;   pv_r3d(1:nlci, jj, :) = pv_r3d(1:nlci, nlej, :)   ;   END DO
                       DO ji = nlci+1, jpi   ;   pv_r3d(ji    , : , :) = pv_r3d(nlei  , :   , :)   ;   END DO
-                      if(lwp) write(numout,*) trim(cdvar),' NO UPDATE'
                    ENDIF
                 ENDIF