Changeset 15016
- Timestamp:
- 2021-06-17T22:59:55+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/IOM/iom.F90
r11715 r15016 916 916 CHARACTER(LEN=1) :: cldmspc ! 917 917 LOGICAL :: llxios 918 REAL(wp) , DIMENSION(1) :: pvartmp 918 919 ! 919 920 llxios = .FALSE. … … 943 944 IF(lwp) WRITE(numout,*) 'XIOS RST READ (0D): ', trim(cdvar) 944 945 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) 946 948 CALL iom_swap( TRIM(cxios_context) ) 947 949 #else
Note: See TracChangeset
for help on using the changeset viewer.