- Timestamp:
- 2017-10-23T13:07:22+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r8650 r8651 245 245 IF(lwxios) THEN 246 246 ! define variables in restart file when writing with XIOS 247 CALL set_rstw_var_active('e3t_b')248 CALL set_rstw_var_active('e3t_n')247 CALL iom_set_rstw_var_active('e3t_b') 248 CALL iom_set_rstw_var_active('e3t_n') 249 249 ! ! ----------------------- ! 250 250 IF( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN ! z_tilde and layer cases ! 251 251 ! ! ----------------------- ! 252 CALL set_rstw_var_active('tilde_e3t_b')253 CALL set_rstw_var_active('tilde_e3t_n')252 CALL iom_set_rstw_var_active('tilde_e3t_b') 253 CALL iom_set_rstw_var_active('tilde_e3t_n') 254 254 END IF 255 255 ! ! -------------! 256 256 IF( ln_vvl_ztilde ) THEN ! z_tilde case ! 257 257 ! ! ------------ ! 258 CALL set_rstw_var_active('hdiv_lf')258 CALL iom_set_rstw_var_active('hdiv_lf') 259 259 ENDIF 260 260 !
Note: See TracChangeset
for help on using the changeset viewer.