- Timestamp:
- 2017-11-28T15:45:20+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8600_xios_read_write_v2/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r8831 r8836 258 258 CALL iom_get( numror, 'frc_t', frc_t, ldxios = lrxios ) 259 259 CALL iom_get( numror, 'frc_s', frc_s, ldxios = lrxios ) 260 IF( ln_linssh ) THEN261 CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lrxios )262 CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios )263 ENDIF264 260 CALL iom_get( numror, jpdom_autoglo, 'surf_ini', surf_ini, ldxios = lrxios ) ! ice sheet coupling 265 261 CALL iom_get( numror, jpdom_autoglo, 'ssh_ini', ssh_ini(:,:), ldxios = lrxios ) … … 270 266 CALL iom_get( numror, jpdom_autoglo, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lrxios ) 271 267 CALL iom_get( numror, jpdom_autoglo, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lrxios ) 268 CALL iom_get( numror, 'frc_wn_t', frc_wn_t, ldxios = lrxios ) 269 CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios ) 272 270 ENDIF 273 271 ELSE … … 312 310 CALL iom_rstput( kt, nitrst, numrow, 'frc_t' , frc_t, ldxios = lwxios) 313 311 CALL iom_rstput( kt, nitrst, numrow, 'frc_s' , frc_s, ldxios = lwxios) 314 IF( ln_linssh ) THEN315 CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, ldxios = lwxios)316 CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, ldxios = lwxios )317 ENDIF318 312 CALL iom_rstput( kt, nitrst, numrow, 'surf_ini', surf_ini, ldxios = lwxios ) ! ice sheet coupling 319 313 CALL iom_rstput( kt, nitrst, numrow, 'ssh_ini', ssh_ini(:,:), ldxios = lwxios ) … … 324 318 CALL iom_rstput( kt, nitrst, numrow, 'ssh_hc_loc_ini', ssh_hc_loc_ini(:,:), ldxios = lwxios ) 325 319 CALL iom_rstput( kt, nitrst, numrow, 'ssh_sc_loc_ini', ssh_sc_loc_ini(:,:), ldxios = lwxios ) 320 CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_t', frc_wn_t, ldxios = lwxios) 321 CALL iom_rstput( kt, nitrst, numrow, 'frc_wn_s', frc_wn_s, ldxios = lwxios ) 326 322 ENDIF 327 323 ! … … 373 369 CALL iom_set_rstw_var_active('frc_t') 374 370 CALL iom_set_rstw_var_active('frc_s') 375 IF( ln_linssh ) THEN376 CALL iom_set_rstw_var_active('frc_wn_t')377 CALL iom_set_rstw_var_active('frc_wn_s')378 ENDIF379 371 CALL iom_set_rstw_var_active('surf_ini') 380 372 CALL iom_set_rstw_var_active('ssh_ini') … … 385 377 CALL iom_set_rstw_var_active('ssh_hc_loc_ini') 386 378 CALL iom_set_rstw_var_active('ssh_sc_loc_ini') 379 CALL iom_set_rstw_var_active('frc_wn_t') 380 CALL iom_set_rstw_var_active('frc_wn_s') 387 381 ENDIF 388 382 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.