- Timestamp:
- 2015-11-30T11:47:24+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/TOOLS/SIREN/src/iom.f90
r5947 r5948 156 156 !> 157 157 !> @author J.Paul 158 !> - November, 2013- Initial Version158 !> @date November, 2013 - Initial Version 159 159 ! 160 160 !> @param[inout] td_file file structure … … 186 186 !> 187 187 !> @author J.Paul 188 !> - November, 2013- Initial Version188 !> @date November, 2013 - Initial Version 189 189 ! 190 190 !> @param[inout] td_file file structure … … 223 223 !> 224 224 !> @author J.Paul 225 !> - November, 2013- Initial Version225 !> @date November, 2013 - Initial Version 226 226 ! 227 227 !> @param[inout] td_file file structure … … 252 252 ! 253 253 !> @author J.Paul 254 !> - November, 2013- Initial Version254 !> @date November, 2013 - Initial Version 255 255 ! 256 256 !> @param[in] td_file file structure … … 300 300 !> 301 301 !> @author J.Paul 302 !> - November, 2013- Initial Version302 !> @date November, 2013 - Initial Version 303 303 ! 304 304 !> @param[in] td_file file structure … … 338 338 ! 339 339 !> @author J.Paul 340 !> - November, 2013- Initial Version340 !> @date November, 2013 - Initial Version 341 341 ! 342 342 !> @param[in] td_file file structure … … 386 386 ! 387 387 !> @author J.Paul 388 !> - November, 2013- Initial Version388 !> @date November, 2013 - Initial Version 389 389 ! 390 390 !> @param[in] td_file file structure … … 422 422 ! 423 423 !> @author J.Paul 424 !> - November, 2013- Initial Version424 !> @date November, 2013 - Initial Version 425 425 ! 426 426 !> @param[in] td_file file structure … … 452 452 ! 453 453 !> @author J.Paul 454 !> - November, 2013- Initial Version454 !> @date November, 2013 - Initial Version 455 455 ! 456 456 !> @param[in] td_file file structure … … 485 485 ! 486 486 !> @author J.Paul 487 !> - November, 2013- Initial Version487 !> @date November, 2013 - Initial Version 488 488 ! 489 489 !> @param[in] td_file file structure … … 529 529 ! 530 530 !> @author J.Paul 531 !> - November, 2013- Initial Version531 !> @date November, 2013 - Initial Version 532 532 ! 533 533 !> @param[in] td_file file structure … … 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 !> @date 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.