Changeset 5609 for trunk/NEMOGCM/TOOLS/SIREN/src/iom.f90
- Timestamp:
- 2015-07-17T17:42:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/SIREN/src/iom.f90
r5037 r5609 564 564 !------------------------------------------------------------------- 565 565 !> @brief This subroutine write file structure in an opened file. 566 ! 567 !> @author J.Paul 568 !> - November, 2013- Initial Version 566 !> 567 !> @details 568 !> optionally, you could specify dimension order (default 'xyzt') 569 !> 570 !> @author J.Paul 571 !> - November, 2013- Initial Version 572 !> @date July, 2015 - add dimension order option 569 573 ! 570 574 !> @param[in] td_file file structure 571 575 !------------------------------------------------------------------- 572 SUBROUTINE iom_write_file(td_file) 573 IMPLICIT NONE 574 ! Argument 575 TYPE(TFILE), INTENT(INOUT) :: td_file 576 !---------------------------------------------------------------- 577 578 ! open file 579 SELECT CASE(TRIM(td_file%c_type)) 580 CASE('cdf') 581 CALL iom_cdf_write_file(td_file) 582 CASE('dimg') 576 SUBROUTINE iom_write_file(td_file, cd_dimorder) 577 IMPLICIT NONE 578 ! Argument 579 TYPE(TFILE) , INTENT(INOUT) :: td_file 580 CHARACTER(LEN=*), INTENT(IN ), OPTIONAL :: cd_dimorder 581 !---------------------------------------------------------------- 582 583 ! open file 584 SELECT CASE(TRIM(td_file%c_type)) 585 CASE('cdf') 586 CALL iom_cdf_write_file(td_file, cd_dimorder) 587 CASE('dimg') 588 ! note: can not change dimension order in restart dimg file 583 589 CALL iom_rstdimg_write_file(td_file) 584 590 CASE DEFAULT
Note: See TracChangeset
for help on using the changeset viewer.