- Timestamp:
- 2017-10-20T10:04:07+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_write/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r8630 r8644 369 369 IF( .NOT. ln_diahsb ) RETURN 370 370 371 IF(lwxios) THEN 372 ! define variables in restart file when writing with XIOS 373 CALL set_rstw_var_active('frc_v') 374 CALL set_rstw_var_active('frc_t') 375 CALL set_rstw_var_active('frc_s') 376 IF( ln_linssh ) THEN 377 CALL set_rstw_var_active('frc_wn_t') 378 CALL set_rstw_var_active('frc_wn_s') 379 ENDIF 380 CALL set_rstw_var_active('surf_ini') 381 CALL set_rstw_var_active('ssh_ini') 382 CALL set_rstw_var_active('e3t_ini') 383 CALL set_rstw_var_active('hc_loc_ini') 384 CALL set_rstw_var_active('sc_loc_ini') 385 IF( ln_linssh ) THEN 386 CALL set_rstw_var_active('ssh_hc_loc_ini') 387 CALL set_rstw_var_active('ssh_sc_loc_ini') 388 ENDIF 389 ENDIF 371 390 ! ------------------- ! 372 391 ! 1 - Allocate memory !
Note: See TracChangeset
for help on using the changeset viewer.