Changeset 8002


Ignore:
Timestamp:
2017-05-08T17:51:45+02:00 (3 years ago)
Author:
andmirek
Message:

remove unnecessary print from iom.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_XIOS_read/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8001 r8002  
    10881088                IF(     PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN 
    10891089                   CALL lbc_lnk( pv_r2d,'Z',-999.,'no0' ) 
    1090                    if(lwp) write(numout,*) trim(cdvar),'UPDATE' 
    10911090                ELSEIF( PRESENT(pv_r3d) .AND. idom /= jpdom_unknown ) THEN 
    10921091                   ! this if could be simplified with the new lbc_lnk that works with any size of the 3rd dimension 
    10931092                   IF( icnt(3) == jpk ) THEN 
    10941093                      CALL lbc_lnk( pv_r3d,'Z',-999.,'no0' ) 
    1095                       if(lwp) write(numout,*) trim(cdvar),'UPDATE' 
    10961094                   ELSE   ! put some arbitrary value (a call to lbc_lnk will be done later...) 
    10971095                      DO jj = nlcj+1, jpj   ;   pv_r3d(1:nlci, jj, :) = pv_r3d(1:nlci, nlej, :)   ;   END DO 
    10981096                      DO ji = nlci+1, jpi   ;   pv_r3d(ji    , : , :) = pv_r3d(nlei  , :   , :)   ;   END DO 
    1099                       if(lwp) write(numout,*) trim(cdvar),' NO UPDATE' 
    11001097                   ENDIF 
    11011098                ENDIF 
Note: See TracChangeset for help on using the changeset viewer.