- Timestamp:
- 2016-04-20T11:33:10+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90
r5037 r6487 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 … … 1058 1058 INTEGER(i4), DIMENSION(ip_maxdim) :: il_start 1059 1059 INTEGER(i4), DIMENSION(ip_maxdim) :: il_count 1060 1060 1061 REAL(dp), DIMENSION(:,:,:,:), ALLOCATABLE :: dl_value 1061 1062 … … 1204 1205 ENDIF 1205 1206 1207 ! force to change _FillValue to avoid mistake 1208 ! with dummy zero _FillValue 1209 IF( td_var%d_fill == 0._dp )THEN 1210 CALL var_chg_FillValue(td_var) 1211 ENDIF 1212 1213 ! use scale factor and offset 1214 WHERE( td_var%d_value(:,:,:,:) /= td_var%d_fill ) 1215 td_var%d_value(:,:,:,:) = & 1216 & td_var%d_value(:,:,:,:)*td_var%d_scf + td_var%d_ofs 1217 END WHERE 1218 1206 1219 END SUBROUTINE iom_rstdimg__read_var_value 1207 1220 !------------------------------------------------------------------- … … 1212 1225 !> 1213 1226 !> @author J.Paul 1214 !> - November, 2013- Initial Version1227 !> @date November, 2013 - Initial Version 1215 1228 !> @date September, 2014 1216 1229 !> - use iom_rstdimg__get_rec … … 1308 1321 !> 1309 1322 !> @author J.Paul 1310 !> - September, 2014- Initial Version1323 !> @date September, 2014 - Initial Version 1311 1324 ! 1312 1325 !> @param[inout] td_file file structure … … 1413 1426 ! 1414 1427 !> @author J.Paul 1415 !> - November, 2013- Initial Version1428 !> @date November, 2013 - Initial Version 1416 1429 ! 1417 1430 !> @param[inout] td_file file structure … … 1630 1643 !> 1631 1644 !> @author J.Paul 1632 !> - 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... 1633 1648 !> 1634 !> @param[in] id_fileid file id1649 !> @param[in] td_file file structure 1635 1650 !------------------------------------------------------------------- 1636 1651 SUBROUTINE iom_rstdimg__write_var(td_file) … … 1667 1682 CASE('no0d','no1d','no2d','no3d') 1668 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 1669 1694 DO jk=1,td_file%t_var(ji)%t_dim(3)%i_len 1670 1695 SELECT CASE (td_file%t_var(ji)%i_ndim)
Note: See TracChangeset
for help on using the changeset viewer.