New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15016 for NEMO/branches/UKMO/r12083_coupling_sequence – NEMO

Ignore:
Timestamp:
2021-06-17T22:59:55+02:00 (3 years ago)
Author:
jcastill
Message:

Small change to make the code work with XIOS 2.0

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/IOM/iom.F90

    r11715 r15016  
    916916      CHARACTER(LEN=1)                                ::   cldmspc   ! 
    917917      LOGICAL                                         ::   llxios 
     918      REAL(wp)        , DIMENSION(1)                  ::   pvartmp 
    918919      ! 
    919920      llxios = .FALSE. 
    … …  
    943944         IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 
    944945         CALL iom_swap( TRIM(crxios_context) ) 
    945          CALL xios_recv_field( trim(cdvar), pvar) 
     946         pvartmp(:) = pvar 
     947         CALL xios_recv_field( trim(cdvar), pvartmp) 
    946948         CALL iom_swap( TRIM(cxios_context) ) 
    947949#else 
Note: See TracChangeset for help on using the changeset viewer.