Changeset 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/IOM
- Timestamp:
- 2018-07-29T11:23:51+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/IOM/iom.F90
r9939 r10009 408 408 409 409 i = 0 410 i = i + 1; fields(i)%vname="rdt"; fields(i)%grid="grid_scalar" 411 i = i + 1; fields(i)%vname="un"; fields(i)%grid="grid_N_3D" 412 i = i + 1; fields(i)%vname="ub"; fields(i)%grid="grid_N_3D" 413 i = i + 1; fields(i)%vname="vn"; fields(i)%grid="grid_N_3D" 414 i = i + 1; fields(i)%vname="vb"; fields(i)%grid="grid_N_3D" 415 i = i + 1; fields(i)%vname="tn"; fields(i)%grid="grid_N_3D" 416 i = i + 1; fields(i)%vname="tb"; fields(i)%grid="grid_N_3D" 417 i = i + 1; fields(i)%vname="sn"; fields(i)%grid="grid_N_3D" 418 i = i + 1; fields(i)%vname="sb"; fields(i)%grid="grid_N_3D" 419 i = i + 1; fields(i)%vname="sshn"; fields(i)%grid="grid_N" 420 i = i + 1; fields(i)%vname="sshb"; fields(i)%grid="grid_N" 421 i = i + 1; fields(i)%vname="rhop"; fields(i)%grid="grid_N_3D" 422 i = i + 1; fields(i)%vname="kt"; fields(i)%grid="grid_scalar" 423 i = i + 1; fields(i)%vname="ndastp"; fields(i)%grid="grid_scalar" 424 i = i + 1; fields(i)%vname="adatrj"; fields(i)%grid="grid_scalar" 425 i = i + 1; fields(i)%vname="utau_b"; fields(i)%grid="grid_N" 426 i = i + 1; fields(i)%vname="vtau_b"; fields(i)%grid="grid_N" 427 i = i + 1; fields(i)%vname="qns_b"; fields(i)%grid="grid_N" 428 i = i + 1; fields(i)%vname="emp_b"; fields(i)%grid="grid_N" 429 i = i + 1; fields(i)%vname="sfx_b"; fields(i)%grid="grid_N" 430 i = i + 1; fields(i)%vname="en" ; fields(i)%grid="grid_N_3D" 431 i = i + 1; fields(i)%vname="avt_k"; fields(i)%grid="grid_N_3D" 432 i = i + 1; fields(i)%vname="avm_k"; fields(i)%grid="grid_N_3D" 433 i = i + 1; fields(i)%vname="dissl"; fields(i)%grid="grid_N_3D" 434 i = i + 1; fields(i)%vname="sbc_hc_b"; fields(i)%grid="grid_N" 435 i = i + 1; fields(i)%vname="sbc_sc_b"; fields(i)%grid="grid_N" 436 i = i + 1; fields(i)%vname="qsr_hc_b"; fields(i)%grid="grid_N_3D" 437 i = i + 1; fields(i)%vname="fraqsr_1lev"; fields(i)%grid="grid_N" 438 i = i + 1; fields(i)%vname="greenland_icesheet_mass" 439 fields(i)%grid="grid_scalar" 440 i = i + 1; fields(i)%vname="greenland_icesheet_timelapsed" 441 fields(i)%grid="grid_scalar" 442 i = i + 1; fields(i)%vname="greenland_icesheet_mass_roc" 443 fields(i)%grid="grid_scalar" 444 i = i + 1; fields(i)%vname="antarctica_icesheet_mass" 445 fields(i)%grid="grid_scalar" 446 i = i + 1; fields(i)%vname="antarctica_icesheet_timelapsed" 447 fields(i)%grid="grid_scalar" 448 i = i + 1; fields(i)%vname="antarctica_icesheet_mass_roc" 449 fields(i)%grid="grid_scalar" 450 i = i + 1; fields(i)%vname="frc_v"; fields(i)%grid="grid_scalar" 451 i = i + 1; fields(i)%vname="frc_t"; fields(i)%grid="grid_scalar" 452 i = i + 1; fields(i)%vname="frc_s"; fields(i)%grid="grid_scalar" 453 i = i + 1; fields(i)%vname="frc_wn_t"; fields(i)%grid="grid_scalar" 454 i = i + 1; fields(i)%vname="frc_wn_s"; fields(i)%grid="grid_scalar" 455 i = i + 1; fields(i)%vname="ssh_ini"; fields(i)%grid="grid_N" 456 i = i + 1; fields(i)%vname="e3t_ini"; fields(i)%grid="grid_N_3D" 457 i = i + 1; fields(i)%vname="hc_loc_ini"; fields(i)%grid="grid_N_3D" 458 i = i + 1; fields(i)%vname="sc_loc_ini"; fields(i)%grid="grid_N_3D" 459 i = i + 1; fields(i)%vname="ssh_hc_loc_ini"; fields(i)%grid="grid_N" 460 i = i + 1; fields(i)%vname="ssh_sc_loc_ini"; fields(i)%grid="grid_N" 461 i = i + 1; fields(i)%vname="tilde_e3t_b"; fields(i)%grid="grid_N" 462 i = i + 1; fields(i)%vname="tilde_e3t_n"; fields(i)%grid="grid_N" 463 i = i + 1; fields(i)%vname="hdiv_lf"; fields(i)%grid="grid_N" 464 i = i + 1; fields(i)%vname="ub2_b"; fields(i)%grid="grid_N" 465 i = i + 1; fields(i)%vname="vb2_b"; fields(i)%grid="grid_N" 466 i = i + 1; fields(i)%vname="sshbb_e"; fields(i)%grid="grid_N" 467 i = i + 1; fields(i)%vname="ubb_e"; fields(i)%grid="grid_N" 468 i = i + 1; fields(i)%vname="vbb_e"; fields(i)%grid="grid_N" 469 i = i + 1; fields(i)%vname="sshb_e"; fields(i)%grid="grid_N" 470 i = i + 1; fields(i)%vname="ub_e"; fields(i)%grid="grid_N" 471 i = i + 1; fields(i)%vname="vb_e"; fields(i)%grid="grid_N" 472 i = i + 1; fields(i)%vname="fwf_isf_b"; fields(i)%grid="grid_N" 473 i = i + 1; fields(i)%vname="isf_sc_b"; fields(i)%grid="grid_N" 474 i = i + 1; fields(i)%vname="isf_hc_b"; fields(i)%grid="grid_N" 475 i = i + 1; fields(i)%vname="ssh_ibb"; fields(i)%grid="grid_N" 476 i = i + 1; fields(i)%vname="rnf_b"; fields(i)%grid="grid_N" 477 i = i + 1; fields(i)%vname="rnf_hc_b"; fields(i)%grid="grid_N" 478 i = i + 1; fields(i)%vname="rnf_sc_b"; fields(i)%grid="grid_N" 479 i = i + 1; fields(i)%vname="nn_fsbc"; fields(i)%grid="grid_scalar" 480 i = i + 1; fields(i)%vname="ssu_m"; fields(i)%grid="grid_N" 481 i = i + 1; fields(i)%vname="ssv_m"; fields(i)%grid="grid_N" 482 i = i + 1; fields(i)%vname="sst_m"; fields(i)%grid="grid_N" 483 i = i + 1; fields(i)%vname="sss_m"; fields(i)%grid="grid_N" 484 i = i + 1; fields(i)%vname="ssh_m"; fields(i)%grid="grid_N" 485 i = i + 1; fields(i)%vname="e3t_m"; fields(i)%grid="grid_N" 486 i = i + 1; fields(i)%vname="frq_m"; fields(i)%grid="grid_N" 487 i = i + 1; fields(i)%vname="avmb"; fields(i)%grid="grid_vector" 488 i = i + 1; fields(i)%vname="avtb"; fields(i)%grid="grid_vector" 489 i = i + 1; fields(i)%vname="ub2_i_b"; fields(i)%grid="grid_N" 490 i = i + 1; fields(i)%vname="vb2_i_b"; fields(i)%grid="grid_N" 491 i = i + 1; fields(i)%vname="ntime"; fields(i)%grid="grid_scalar" 492 i = i + 1; fields(i)%vname="Dsst"; fields(i)%grid="grid_scalar" 493 i = i + 1; fields(i)%vname="tmask"; fields(i)%grid="grid_N_3D" 494 i = i + 1; fields(i)%vname="umask"; fields(i)%grid="grid_N_3D" 495 i = i + 1; fields(i)%vname="vmask"; fields(i)%grid="grid_N_3D" 496 i = i + 1; fields(i)%vname="smask"; fields(i)%grid="grid_N_3D" 497 i = i + 1; fields(i)%vname="gdepw_n"; fields(i)%grid="grid_N_3D" 498 i = i + 1; fields(i)%vname="e3t_n"; fields(i)%grid="grid_N_3D" 499 i = i + 1; fields(i)%vname="e3u_n"; fields(i)%grid="grid_N_3D" 500 i = i + 1; fields(i)%vname="e3v_n"; fields(i)%grid="grid_N_3D" 501 i = i + 1; fields(i)%vname="surf_ini"; fields(i)%grid="grid_N" 502 i = i + 1; fields(i)%vname="e3t_b"; fields(i)%grid="grid_N_3D" 503 i = i + 1; fields(i)%vname="hmxl_n"; fields(i)%grid="grid_N_3D" 504 i = i + 1; fields(i)%vname="un_bf"; fields(i)%grid="grid_N" 505 i = i + 1; fields(i)%vname="vn_bf"; fields(i)%grid="grid_N" 506 i = i + 1; fields(i)%vname="hbl"; fields(i)%grid="grid_N" 507 i = i + 1; fields(i)%vname="hbli"; fields(i)%grid="grid_N" 508 i = i + 1; fields(i)%vname="wn"; fields(i)%grid="grid_N_3D" 410 i = i + 1; fields(i)%vname="rdt" ; fields(i)%grid="grid_scalar" 411 i = i + 1; fields(i)%vname="un" ; fields(i)%grid="grid_N_3D" 412 i = i + 1; fields(i)%vname="ub" ; fields(i)%grid="grid_N_3D" 413 i = i + 1; fields(i)%vname="vn" ; fields(i)%grid="grid_N_3D" 414 i = i + 1; fields(i)%vname="vb" ; fields(i)%grid="grid_N_3D" 415 i = i + 1; fields(i)%vname="tn" ; fields(i)%grid="grid_N_3D" 416 i = i + 1; fields(i)%vname="tb" ; fields(i)%grid="grid_N_3D" 417 i = i + 1; fields(i)%vname="sn" ; fields(i)%grid="grid_N_3D" 418 i = i + 1; fields(i)%vname="sb" ; fields(i)%grid="grid_N_3D" 419 i = i + 1; fields(i)%vname='sshn' ; fields(i)%grid="grid_N" 420 i = i + 1; fields(i)%vname='sshb' ; fields(i)%grid="grid_N" 421 i = i + 1; fields(i)%vname="rhop" ; fields(i)%grid="grid_N_3D" 422 i = i + 1; fields(i)%vname="kt" ; fields(i)%grid="grid_scalar" 423 i = i + 1; fields(i)%vname="ndastp" ; fields(i)%grid="grid_scalar" 424 i = i + 1; fields(i)%vname="adatrj" ; fields(i)%grid="grid_scalar" 425 i = i + 1; fields(i)%vname="utau_b" ; fields(i)%grid="grid_N" 426 i = i + 1; fields(i)%vname="vtau_b" ; fields(i)%grid="grid_N" 427 i = i + 1; fields(i)%vname="qns_b" ; fields(i)%grid="grid_N" 428 i = i + 1; fields(i)%vname="emp_b" ; fields(i)%grid="grid_N" 429 i = i + 1; fields(i)%vname="sfx_b" ; fields(i)%grid="grid_N" 430 i = i + 1; fields(i)%vname="en" ; fields(i)%grid="grid_N_3D" 431 i = i + 1; fields(i)%vname="avt_k" ; fields(i)%grid="grid_N_3D" 432 i = i + 1; fields(i)%vname="avm_k" ; fields(i)%grid="grid_N_3D" 433 i = i + 1; fields(i)%vname="dissl" ; fields(i)%grid="grid_N_3D" 434 i = i + 1; fields(i)%vname="sbc_hc_b" ; fields(i)%grid="grid_N" 435 i = i + 1; fields(i)%vname="sbc_sc_b" ; fields(i)%grid="grid_N" 436 i = i + 1; fields(i)%vname="qsr_hc_b" ; fields(i)%grid="grid_N_3D" 437 i = i + 1; fields(i)%vname="fraqsr_1lev" ; fields(i)%grid="grid_N" 438 i = i + 1; fields(i)%vname="greenland_icesheet_mass" ; fields(i)%grid="grid_scalar" 439 i = i + 1; fields(i)%vname="greenland_icesheet_timelapsed" ; fields(i)%grid="grid_scalar" 440 i = i + 1; fields(i)%vname="greenland_icesheet_mass_roc" ; fields(i)%grid="grid_scalar" 441 i = i + 1; fields(i)%vname="antarctica_icesheet_mass" ; fields(i)%grid="grid_scalar" 442 i = i + 1; fields(i)%vname="antarctica_icesheet_timelapsed" ; fields(i)%grid="grid_scalar" 443 i = i + 1; fields(i)%vname="antarctica_icesheet_mass_roc" ; fields(i)%grid="grid_scalar" 444 i = i + 1; fields(i)%vname="frc_v" ; fields(i)%grid="grid_scalar" 445 i = i + 1; fields(i)%vname="frc_t" ; fields(i)%grid="grid_scalar" 446 i = i + 1; fields(i)%vname="frc_s" ; fields(i)%grid="grid_scalar" 447 i = i + 1; fields(i)%vname="frc_wn_t" ; fields(i)%grid="grid_scalar" 448 i = i + 1; fields(i)%vname="frc_wn_s" ; fields(i)%grid="grid_scalar" 449 i = i + 1; fields(i)%vname="ssh_ini" ; fields(i)%grid="grid_N" 450 i = i + 1; fields(i)%vname="e3t_ini" ; fields(i)%grid="grid_N_3D" 451 i = i + 1; fields(i)%vname="hc_loc_ini" ; fields(i)%grid="grid_N_3D" 452 i = i + 1; fields(i)%vname="sc_loc_ini" ; fields(i)%grid="grid_N_3D" 453 i = i + 1; fields(i)%vname="ssh_hc_loc_ini" ; fields(i)%grid="grid_N" 454 i = i + 1; fields(i)%vname="ssh_sc_loc_ini" ; fields(i)%grid="grid_N" 455 i = i + 1; fields(i)%vname="tilde_e3t_b" ; fields(i)%grid="grid_N" 456 i = i + 1; fields(i)%vname="tilde_e3t_n" ; fields(i)%grid="grid_N" 457 i = i + 1; fields(i)%vname="hdiv_lf" ; fields(i)%grid="grid_N" 458 i = i + 1; fields(i)%vname="ub2_b" ; fields(i)%grid="grid_N" 459 i = i + 1; fields(i)%vname="vb2_b" ; fields(i)%grid="grid_N" 460 i = i + 1; fields(i)%vname="sshbb_e" ; fields(i)%grid="grid_N" 461 i = i + 1; fields(i)%vname="ubb_e" ; fields(i)%grid="grid_N" 462 i = i + 1; fields(i)%vname="vbb_e" ; fields(i)%grid="grid_N" 463 i = i + 1; fields(i)%vname="sshb_e" ; fields(i)%grid="grid_N" 464 i = i + 1; fields(i)%vname="ub_e" ; fields(i)%grid="grid_N" 465 i = i + 1; fields(i)%vname="vb_e" ; fields(i)%grid="grid_N" 466 i = i + 1; fields(i)%vname="fwf_isf_b" ; fields(i)%grid="grid_N" 467 i = i + 1; fields(i)%vname="isf_sc_b" ; fields(i)%grid="grid_N" 468 i = i + 1; fields(i)%vname="isf_hc_b" ; fields(i)%grid="grid_N" 469 i = i + 1; fields(i)%vname="ssh_ibb" ; fields(i)%grid="grid_N" 470 i = i + 1; fields(i)%vname="rnf_b" ; fields(i)%grid="grid_N" 471 i = i + 1; fields(i)%vname="rnf_hc_b" ; fields(i)%grid="grid_N" 472 i = i + 1; fields(i)%vname="rnf_sc_b" ; fields(i)%grid="grid_N" 473 i = i + 1; fields(i)%vname="nn_fsbc" ; fields(i)%grid="grid_scalar" 474 i = i + 1; fields(i)%vname="ssu_m" ; fields(i)%grid="grid_N" 475 i = i + 1; fields(i)%vname="ssv_m" ; fields(i)%grid="grid_N" 476 i = i + 1; fields(i)%vname="sst_m" ; fields(i)%grid="grid_N" 477 i = i + 1; fields(i)%vname="sss_m" ; fields(i)%grid="grid_N" 478 i = i + 1; fields(i)%vname="ssh_m" ; fields(i)%grid="grid_N" 479 i = i + 1; fields(i)%vname="e3t_m" ; fields(i)%grid="grid_N" 480 i = i + 1; fields(i)%vname="frq_m" ; fields(i)%grid="grid_N" 481 i = i + 1; fields(i)%vname="avmb" ; fields(i)%grid="grid_vector" 482 i = i + 1; fields(i)%vname="avtb" ; fields(i)%grid="grid_vector" 483 i = i + 1; fields(i)%vname="ub2_i_b" ; fields(i)%grid="grid_N" 484 i = i + 1; fields(i)%vname="vb2_i_b" ; fields(i)%grid="grid_N" 485 i = i + 1; fields(i)%vname="ntime" ; fields(i)%grid="grid_scalar" 486 i = i + 1; fields(i)%vname="Dsst" ; fields(i)%grid="grid_scalar" 487 i = i + 1; fields(i)%vname="tmask" ; fields(i)%grid="grid_N_3D" 488 i = i + 1; fields(i)%vname="umask" ; fields(i)%grid="grid_N_3D" 489 i = i + 1; fields(i)%vname="vmask" ; fields(i)%grid="grid_N_3D" 490 i = i + 1; fields(i)%vname="smask" ; fields(i)%grid="grid_N_3D" 491 i = i + 1; fields(i)%vname="gdepw_n" ; fields(i)%grid="grid_N_3D" 492 i = i + 1; fields(i)%vname="e3t_n" ; fields(i)%grid="grid_N_3D" 493 i = i + 1; fields(i)%vname="e3u_n" ; fields(i)%grid="grid_N_3D" 494 i = i + 1; fields(i)%vname="e3v_n" ; fields(i)%grid="grid_N_3D" 495 i = i + 1; fields(i)%vname="surf_ini" ; fields(i)%grid="grid_N" 496 i = i + 1; fields(i)%vname="e3t_b" ; fields(i)%grid="grid_N_3D" 497 i = i + 1; fields(i)%vname="hmxl_n" ; fields(i)%grid="grid_N_3D" 498 i = i + 1; fields(i)%vname="un_bf" ; fields(i)%grid="grid_N" 499 i = i + 1; fields(i)%vname="vn_bf" ; fields(i)%grid="grid_N" 500 i = i + 1; fields(i)%vname="hbl" ; fields(i)%grid="grid_N" 501 i = i + 1; fields(i)%vname="hbli" ; fields(i)%grid="grid_N" 502 i = i + 1; fields(i)%vname="wn" ; fields(i)%grid="grid_N_3D" 509 503 510 504 IF( i-1 > max_rst_fields) THEN … … 523 517 !!--------------------------------------------------------------------- 524 518 !sets enabled = .TRUE. for each field in restart file 525 CHARACTER(len=*) :: cdrst_file519 CHARACTER(len=*) :: cdrst_file 526 520 #if defined key_iomput 527 TYPE(xios_field) :: field_hdl 528 TYPE(xios_file) :: file_hdl 529 TYPE(xios_filegroup) :: filegroup_hdl 530 INTEGER :: i 531 CHARACTER(lc) :: clpath 521 TYPE(xios_field) :: field_hdl 522 TYPE(xios_file) :: file_hdl 523 TYPE(xios_filegroup) :: filegroup_hdl 524 INTEGER :: i 525 CHARACTER(lc) :: clpath 526 !!--------------------------------------------------------------------- 532 527 533 528 !set name of the restart file and enable available fields … … 567 562 #endif 568 563 END SUBROUTINE iom_set_rstw_active 564 569 565 570 566 SUBROUTINE iom_set_rst_context( )
Note: See TracChangeset
for help on using the changeset viewer.