Changeset 5617 for trunk/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90
- Timestamp:
- 2015-07-20T12:10:49+02:00 (9 years ago)
- File:
-
- 1 edited
-
trunk/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90 (modified) (20 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90
r5609 r5617 131 131 !> 132 132 !> @author J.Paul 133 !> - November, 2013- Initial Version133 !> @date November, 2013 - Initial Version 134 134 ! 135 135 !> @param[inout] td_file file structure … … 284 284 !> 285 285 !> @author J.Paul 286 !> - November, 2013- Initial Version286 !> @date November, 2013 - Initial Version 287 287 ! 288 288 !> @param[inout] td_file file structure … … 328 328 !> 329 329 !> @author J.Paul 330 !> - November, 2013- Initial Version330 !> @date November, 2013 - Initial Version 331 331 ! 332 332 !> @param[inout] td_file file structure … … 394 394 !> 395 395 !> @author J.Paul 396 !> - November, 2013- Initial Version396 !> @date November, 2013 - Initial Version 397 397 ! 398 398 !> @param[inout] td_file file structure … … 544 544 ! 545 545 !> @author J.Paul 546 !> - November, 2013- Initial Version546 !> @date November, 2013 - Initial Version 547 547 ! 548 548 !> @param[inout] td_file file structure … … 636 636 ! 637 637 !> @author J.Paul 638 !> - November, 2013- Initial Version638 !> @date November, 2013 - Initial Version 639 639 ! 640 640 !> @param[inout] td_file file structure … … 688 688 ! 689 689 !> @author J.Paul 690 !> - November, 2013- Initial Version690 !> @date November, 2013 - Initial Version 691 691 ! 692 692 !> @param[inout] td_file file structure … … 733 733 ! 734 734 !> @author J.Paul 735 !> - November, 2013- Initial Version735 !> @date November, 2013 - Initial Version 736 736 ! 737 737 !> @param[inout] td_file file structure … … 778 778 ! 779 779 !> @author J.Paul 780 !> - November, 2013- Initial Version780 !> @date November, 2013 - Initial Version 781 781 ! 782 782 !> @param[inout] td_file file structure … … 820 820 ! 821 821 !> @author J.Paul 822 !> - Nov, 2013- Initial Version822 !> @date November, 2013 - Initial Version 823 823 ! 824 824 !> @param[in] td_file file structure … … 863 863 ! 864 864 !> @author J.Paul 865 !> - Nov, 2013- Initial Version865 !> @date November, 2013 - Initial Version 866 866 ! 867 867 !> @param[in] td_file file structure … … 907 907 ! 908 908 !> @author J.Paul 909 !> - November, 2013- Initial Version909 !> @date November, 2013 - Initial Version 910 910 ! 911 911 !> @param[in] td_file file structure … … 972 972 ! 973 973 !> @author J.Paul 974 !> - November, 2013- Initial Version974 !> @date November, 2013 - Initial Version 975 975 ! 976 976 !> @param[in] td_file file structure … … 1037 1037 !> 1038 1038 !> @author J.Paul 1039 !> - November, 2013- Initial Version1039 !> @date November, 2013 - Initial Version 1040 1040 ! 1041 1041 !> @param[in] td_file file structure … … 1225 1225 !> 1226 1226 !> @author J.Paul 1227 !> - November, 2013- Initial Version1227 !> @date November, 2013 - Initial Version 1228 1228 !> @date September, 2014 1229 1229 !> - use iom_rstdimg__get_rec … … 1321 1321 !> 1322 1322 !> @author J.Paul 1323 !> - September, 2014- Initial Version1323 !> @date September, 2014 - Initial Version 1324 1324 ! 1325 1325 !> @param[inout] td_file file structure … … 1426 1426 ! 1427 1427 !> @author J.Paul 1428 !> - November, 2013- Initial Version1428 !> @date November, 2013 - Initial Version 1429 1429 ! 1430 1430 !> @param[inout] td_file file structure … … 1643 1643 !> 1644 1644 !> @author J.Paul 1645 !> - November, 2013- Initial Version 1645 !> @date November, 2013 - Initial Version 1646 !> @date July, 2015 1647 !> - bug fix: do not use scale factor an offset for case no0d, no1d... 1646 1648 !> 1647 !> @param[in] id_fileid file id1649 !> @param[in] td_file file structure 1648 1650 !------------------------------------------------------------------- 1649 1651 SUBROUTINE iom_rstdimg__write_var(td_file) … … 1673 1675 ! change FillValue to 0. 1674 1676 CALL var_chg_FillValue(td_file%t_var(ji),0._dp) 1675 1676 ! use scale factor and offset1677 WHERE( td_file%t_var(ji)%d_value(:,:,:,:) /= &1678 & td_file%t_var(ji)%d_fill )1679 td_file%t_var(ji)%d_value(:,:,:,:) = &1680 & (td_file%t_var(ji)%d_value(:,:,:,:)-td_file%t_var(ji)%d_ofs) /&1681 & td_file%t_var(ji)%d_scf1682 END WHERE1683 1677 1684 1678 cl_name(ji) = TRIM(td_file%t_var(ji)%c_name) … … 1688 1682 CASE('no0d','no1d','no2d','no3d') 1689 1683 CASE DEFAULT 1684 1685 ! use scale factor and offset 1686 WHERE( td_file%t_var(ji)%d_value(:,:,:,:) /= & 1687 & td_file%t_var(ji)%d_fill ) 1688 td_file%t_var(ji)%d_value(:,:,:,:) = & 1689 & ( td_file%t_var(ji)%d_value(:,:,:,:) - & 1690 & td_file%t_var(ji)%d_ofs ) / & 1691 & td_file%t_var(ji)%d_scf 1692 END WHERE 1693 1690 1694 DO jk=1,td_file%t_var(ji)%t_dim(3)%i_len 1691 1695 SELECT CASE (td_file%t_var(ji)%i_ndim)
Note: See TracChangeset
for help on using the changeset viewer.
