- Timestamp:
- 2017-10-17T14:31:49+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r7753 r8630 931 931 ! ! all cases ! 932 932 ! ! --------- ! 933 CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t_b(:,:,:) )934 CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:) )933 CALL iom_rstput( kt, nitrst, numrow, 'e3t_b', e3t_b(:,:,:), lxios = lwxios ) 934 CALL iom_rstput( kt, nitrst, numrow, 'e3t_n', e3t_n(:,:,:), lxios = lwxios ) 935 935 ! ! ----------------------- ! 936 936 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN ! z_tilde and layer cases ! 937 937 ! ! ----------------------- ! 938 CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:) 939 CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:) 938 CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_b', tilde_e3t_b(:,:,:), lxios = lwxios) 939 CALL iom_rstput( kt, nitrst, numrow, 'tilde_e3t_n', tilde_e3t_n(:,:,:), lxios = lwxios) 940 940 END IF 941 941 ! ! -------------! 942 942 IF( ln_vvl_ztilde ) THEN ! z_tilde case ! 943 943 ! ! ------------ ! 944 CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:) 944 CALL iom_rstput( kt, nitrst, numrow, 'hdiv_lf', hdiv_lf(:,:,:), lxios = lwxios) 945 945 ENDIF 946 946 ! 947 IF( lwxios ) CALL iom_swap( cxios_context ) 947 948 ENDIF 948 949 !
Note: See TracChangeset
for help on using the changeset viewer.