New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6487 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/TOOLS/SIREN/src/iom.f90 – NEMO

Ignore:
Timestamp:
2016-04-20T11:33:10+02:00 (8 years ago)
Author:
davestorkey
Message:

Changes from nemo_v3_6_STABLE_copy branch.
Custom merge into /branches/UKMO/dev_r5518_GO6_package/NEMOGCM: r6237 cf. r5781 of /branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM@6486

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/TOOLS/SIREN/src/iom.f90

    r5037 r6487  
    156156   !> 
    157157   !> @author J.Paul 
    158    !> - November, 2013- Initial Version 
     158   !> @date November, 2013 - Initial Version 
    159159   ! 
    160160   !> @param[inout] td_file file structure 
     
    186186   !>  
    187187   !> @author J.Paul 
    188    !> - November, 2013- Initial Version 
     188   !> @date November, 2013 - Initial Version 
    189189   ! 
    190190   !> @param[inout] td_file file structure 
     
    223223   !> 
    224224   !> @author J.Paul 
    225    !> - November, 2013- Initial Version 
     225   !> @date November, 2013 - Initial Version 
    226226   ! 
    227227   !> @param[inout] td_file file structure 
     
    252252   ! 
    253253   !> @author J.Paul 
    254    !> - November, 2013- Initial Version 
     254   !> @date November, 2013 - Initial Version 
    255255   ! 
    256256   !> @param[in] td_file      file structure 
     
    300300   !> 
    301301   !> @author J.Paul 
    302    !> - November, 2013- Initial Version 
     302   !> @date November, 2013 - Initial Version 
    303303   ! 
    304304   !> @param[in] td_file   file structure 
     
    338338   ! 
    339339   !> @author J.Paul 
    340    !> - November, 2013- Initial Version 
     340   !> @date November, 2013 - Initial Version 
    341341   ! 
    342342   !> @param[in] td_file      file structure 
     
    386386   ! 
    387387   !> @author J.Paul 
    388    !> - November, 2013- Initial Version 
     388   !> @date November, 2013 - Initial Version 
    389389   ! 
    390390   !> @param[in] td_file      file structure 
     
    422422   ! 
    423423   !> @author J.Paul 
    424    !> - November, 2013- Initial Version 
     424   !> @date November, 2013 - Initial Version 
    425425   ! 
    426426   !> @param[in] td_file   file structure 
     
    452452   ! 
    453453   !> @author J.Paul 
    454    !> - November, 2013- Initial Version 
     454   !> @date November, 2013 - Initial Version 
    455455   ! 
    456456   !> @param[in] td_file   file structure 
     
    485485   ! 
    486486   !> @author J.Paul 
    487    !> - November, 2013- Initial Version 
     487   !> @date November, 2013 - Initial Version 
    488488   ! 
    489489   !> @param[in] td_file   file structure 
     
    529529   ! 
    530530   !> @author J.Paul 
    531    !> - November, 2013- Initial Version 
     531   !> @date November, 2013 - Initial Version 
    532532   ! 
    533533   !> @param[in] td_file   file structure 
     
    564564   !------------------------------------------------------------------- 
    565565   !> @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 
    569573   ! 
    570574   !> @param[in] td_file   file structure 
    571575   !------------------------------------------------------------------- 
    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 
    583589            CALL iom_rstdimg_write_file(td_file) 
    584590         CASE DEFAULT 
Note: See TracChangeset for help on using the changeset viewer.