Ignore:
Timestamp:
2018-11-21T11:42:41+01:00 (3 years ago)
Author:
andmirek
Message:

iom for intel compiler

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/2018_NEMO4_beta_mirror_10037_Benchmark/src/OCE/IOM/iom.F90

    r10032 r10346  
    10981098      idvar = iom_varid( kiomid, cdvar )  
    10991099      idom = kdom 
     1100      ! set output to 0 
     1101      IF( PRESENT(pv_r3d) ) pv_r3d(:, :, :) = 0. 
     1102      IF( PRESENT(pv_r2d) ) pv_r2d(:, :)    = 0. 
     1103      IF( PRESENT(pv_r1d) ) pv_r1d(:)       = 0. 
    11001104      ! 
    11011105      IF(.NOT.llxios) THEN 
     
    13321336         CALL iom_swap( TRIM(crxios_context) )  
    13331337         IF( PRESENT(pv_r3d) ) THEN 
    1334             pv_r3d(:, :, :) = 0. 
    13351338            if(lwp) write(numout,*) 'XIOS RST READ (3D): ',trim(cdvar) 
    13361339            CALL xios_recv_field( trim(cdvar), pv_r3d) 
     
    13391342            ENDIF 
    13401343         ELSEIF( PRESENT(pv_r2d) ) THEN 
    1341             pv_r2d(:, :) = 0. 
    13421344            if(lwp) write(numout,*) 'XIOS RST READ (2D): ', trim(cdvar) 
    13431345            CALL xios_recv_field( trim(cdvar), pv_r2d) 
     
    13461348            ENDIF 
    13471349         ELSEIF( PRESENT(pv_r1d) ) THEN 
    1348             pv_r1d(:) = 0. 
    13491350            if(lwp) write(numout,*) 'XIOS RST READ (1D): ', trim(cdvar) 
    13501351            CALL xios_recv_field( trim(cdvar), pv_r1d) 
Note: See TracChangeset for help on using the changeset viewer.