- Timestamp:
- 2020-05-12T15:59:32+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart/src/OCE/IOM/iom.F90
r12649 r12914 119 119 INTEGER :: nldi_save, nlei_save !: and close boundaries in output files 120 120 INTEGER :: nldj_save, nlej_save !: 121 LOGICAL :: ll_closedef = .TRUE.121 LOGICAL :: ll_closedef 122 122 !!---------------------------------------------------------------------- 123 123 ! … … 134 134 IF( njmpp + jpj - 1 == jpjglo ) nlej = jpj 135 135 ENDIF 136 ! 137 ll_closedef = .TRUE. 136 138 IF ( PRESENT(ld_closedef) ) ll_closedef = ld_closedef 137 139 ! … … 363 365 rst_file = TRIM(clpath)//TRIM(cn_ocerst_in) 364 366 ELSE 365 rst_file = TRIM(clpath)// '1_'//TRIM(cn_ocerst_in)367 rst_file = TRIM(clpath)//TRIM(Agrif_CFixed())//'_'//TRIM(cn_ocerst_in) 366 368 ENDIF 367 369 !set name of the restart file and enable available fields 368 if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ', rst_file370 if(lwp) WRITE(numout,*) 'Setting restart filename (for XIOS) to: ', TRIM(rst_file) 369 371 CALL xios_get_handle("file_definition", filegroup_hdl ) 370 372 CALL xios_add_child(filegroup_hdl, file_hdl, 'rrestart') … … 409 411 IF(cdmdl == "OPA") THEN 410 412 !from restart.F90 411 CALL iom_set_rstw_var_active("r n_Dt")413 CALL iom_set_rstw_var_active("rdt") 412 414 IF ( .NOT. ln_diurnal_only ) THEN 413 415 CALL iom_set_rstw_var_active('ub' ) … … 447 449 448 450 i = 0 449 i = i + 1; fields(i)%vname="r n_Dt"; fields(i)%grid="grid_scalar"451 i = i + 1; fields(i)%vname="rdt"; fields(i)%grid="grid_scalar" 450 452 i = i + 1; fields(i)%vname="un"; fields(i)%grid="grid_N_3D" 451 453 i = i + 1; fields(i)%vname="ub"; fields(i)%grid="grid_N_3D" … … 475 477 i = i + 1; fields(i)%vname="qsr_hc_b"; fields(i)%grid="grid_N_3D" 476 478 i = i + 1; fields(i)%vname="fraqsr_1lev"; fields(i)%grid="grid_N" 477 i = i + 1; fields(i)%vname="greenland_icesheet_mass"478 fields(i)%grid="grid_scalar"479 i = i + 1; fields(i)%vname="greenland_icesheet_timelapsed"480 fields(i)%grid="grid_scalar"481 i = i + 1; fields(i)%vname="greenland_icesheet_mass_roc"482 fields(i)%grid="grid_scalar"483 i = i + 1; fields(i)%vname="antarctica_icesheet_mass"484 fields(i)%grid="grid_scalar"485 i = i + 1; fields(i)%vname="antarctica_icesheet_timelapsed"486 fields(i)%grid="grid_scalar"487 i = i + 1; fields(i)%vname="antarctica_icesheet_mass_roc"488 fields(i)%grid="grid_scalar"489 479 i = i + 1; fields(i)%vname="frc_v"; fields(i)%grid="grid_scalar" 490 480 i = i + 1; fields(i)%vname="frc_t"; fields(i)%grid="grid_scalar" … … 546 536 i = i + 1; fields(i)%vname="hbli"; fields(i)%grid="grid_N" 547 537 i = i + 1; fields(i)%vname="wn"; fields(i)%grid="grid_N_3D" 538 i = i + 1; fields(i)%vname="fwfisf_cav_b"; fields(i)%grid="grid_N" 539 i = i + 1; fields(i)%vname="isf_hc_cav_b"; fields(i)%grid="grid_N" 540 i = i + 1; fields(i)%vname="isf_sc_cav_b"; fields(i)%grid="grid_N" 548 541 549 542 IF( i-1 > max_rst_fields) THEN
Note: See TracChangeset
for help on using the changeset viewer.