- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90
r10248 r10251 131 131 !> 132 132 !> @author J.Paul 133 !> @date November, 2013- Initial Version133 !> - November, 2013- Initial Version 134 134 ! 135 135 !> @param[inout] td_file file structure … … 284 284 !> 285 285 !> @author J.Paul 286 !> @date November, 2013- Initial Version286 !> - November, 2013- Initial Version 287 287 ! 288 288 !> @param[inout] td_file file structure … … 328 328 !> 329 329 !> @author J.Paul 330 !> @date November, 2013- Initial Version330 !> - November, 2013- Initial Version 331 331 ! 332 332 !> @param[inout] td_file file structure … … 394 394 !> 395 395 !> @author J.Paul 396 !> @date November, 2013- Initial Version396 !> - November, 2013- Initial Version 397 397 ! 398 398 !> @param[inout] td_file file structure … … 544 544 ! 545 545 !> @author J.Paul 546 !> @date November, 2013- Initial Version546 !> - November, 2013- Initial Version 547 547 ! 548 548 !> @param[inout] td_file file structure … … 636 636 ! 637 637 !> @author J.Paul 638 !> @date November, 2013- Initial Version638 !> - November, 2013- Initial Version 639 639 ! 640 640 !> @param[inout] td_file file structure … … 688 688 ! 689 689 !> @author J.Paul 690 !> @date November, 2013- Initial Version690 !> - November, 2013- Initial Version 691 691 ! 692 692 !> @param[inout] td_file file structure … … 733 733 ! 734 734 !> @author J.Paul 735 !> @date November, 2013- Initial Version735 !> - November, 2013- Initial Version 736 736 ! 737 737 !> @param[inout] td_file file structure … … 778 778 ! 779 779 !> @author J.Paul 780 !> @date November, 2013- Initial Version780 !> - November, 2013- Initial Version 781 781 ! 782 782 !> @param[inout] td_file file structure … … 820 820 ! 821 821 !> @author J.Paul 822 !> @date November, 2013- Initial Version822 !> - Nov, 2013- Initial Version 823 823 ! 824 824 !> @param[in] td_file file structure … … 863 863 ! 864 864 !> @author J.Paul 865 !> @date November, 2013- Initial Version865 !> - Nov, 2013- Initial Version 866 866 ! 867 867 !> @param[in] td_file file structure … … 907 907 ! 908 908 !> @author J.Paul 909 !> @date November, 2013- Initial Version909 !> - November, 2013- Initial Version 910 910 ! 911 911 !> @param[in] td_file file structure … … 972 972 ! 973 973 !> @author J.Paul 974 !> @date November, 2013- Initial Version974 !> - November, 2013- Initial Version 975 975 ! 976 976 !> @param[in] td_file file structure … … 1037 1037 !> 1038 1038 !> @author J.Paul 1039 !> @date November, 2013- Initial Version1039 !> - 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 1061 1060 REAL(dp), DIMENSION(:,:,:,:), ALLOCATABLE :: dl_value 1062 1061 … … 1205 1204 ENDIF 1206 1205 1207 ! force to change _FillValue to avoid mistake1208 ! with dummy zero _FillValue1209 IF( td_var%d_fill == 0._dp )THEN1210 CALL var_chg_FillValue(td_var)1211 ENDIF1212 1213 ! use scale factor and offset1214 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_ofs1217 END WHERE1218 1219 1206 END SUBROUTINE iom_rstdimg__read_var_value 1220 1207 !------------------------------------------------------------------- … … 1225 1212 !> 1226 1213 !> @author J.Paul 1227 !> @date November, 2013- Initial Version1214 !> - November, 2013- Initial Version 1228 1215 !> @date September, 2014 1229 1216 !> - use iom_rstdimg__get_rec … … 1321 1308 !> 1322 1309 !> @author J.Paul 1323 !> @date September, 2014- Initial Version1310 !> - September, 2014- Initial Version 1324 1311 ! 1325 1312 !> @param[inout] td_file file structure … … 1426 1413 ! 1427 1414 !> @author J.Paul 1428 !> @date November, 2013- Initial Version1415 !> - November, 2013- Initial Version 1429 1416 ! 1430 1417 !> @param[inout] td_file file structure … … 1643 1630 !> 1644 1631 !> @author J.Paul 1645 !> @date November, 2013 - Initial Version 1646 !> @date July, 2015 1647 !> - bug fix: do not use scale factor an offset for case no0d, no1d... 1632 !> - November, 2013- Initial Version 1648 1633 !> 1649 !> @param[in] td_file file structure1634 !> @param[in] id_fileid file id 1650 1635 !------------------------------------------------------------------- 1651 1636 SUBROUTINE iom_rstdimg__write_var(td_file) … … 1682 1667 CASE('no0d','no1d','no2d','no3d') 1683 1668 CASE DEFAULT 1684 1685 ! use scale factor and offset1686 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_scf1692 END WHERE1693 1694 1669 DO jk=1,td_file%t_var(ji)%t_dim(3)%i_len 1695 1670 SELECT CASE (td_file%t_var(ji)%i_ndim)
Note: See TracChangeset
for help on using the changeset viewer.