- Timestamp:
- 2016-11-28T17:04:10+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_INGV_UKMO_2016/NEMOGCM/TOOLS/SIREN/src/file.f90
r5617 r7351 694 694 !> @date November, 2013 - Initial Version 695 695 !> @date September, 2014 696 !> - add dimension tofile if need be696 !> - add dimension in file if need be 697 697 !> - do not reorder dimension from variable, before put in file 698 !> @date September, 2015 699 !> - check variable dimension expected 698 700 ! 699 701 !> @param[inout] td_file file structure … … 705 707 ! Argument 706 708 TYPE(TFILE), INTENT(INOUT) :: td_file 707 TYPE(TVAR) , INTENT(IN 709 TYPE(TVAR) , INTENT(INOUT) :: td_var 708 710 709 711 ! local variable … … 761 763 IF( file_check_var_dim(td_file, td_var) )THEN 762 764 765 ! check variable dimension expected 766 CALL var_check_dim(td_var) 767 763 768 ! update dimension if need be 764 769 DO ji=1,ip_maxdim … … 1050 1055 ! new number of variable in file 1051 1056 td_file%i_nvar=td_file%i_nvar-1 1052 1053 1057 SELECT CASE(td_var%i_ndim) 1054 1058 CASE(0)
Note: See TracChangeset
for help on using the changeset viewer.