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_rstdimg.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_rstdimg.f90

    r5037 r6487  
    131131   !> 
    132132   !> @author J.Paul 
    133    !> - November, 2013- Initial Version 
     133   !> @date November, 2013 - Initial Version 
    134134   ! 
    135135   !> @param[inout] td_file   file structure 
     
    284284   !> 
    285285   !> @author J.Paul 
    286    !> - November, 2013- Initial Version 
     286   !> @date November, 2013 - Initial Version 
    287287   ! 
    288288   !> @param[inout] td_file   file structure 
     
    328328   !> 
    329329   !> @author J.Paul 
    330    !> - November, 2013- Initial Version 
     330   !> @date November, 2013 - Initial Version 
    331331   ! 
    332332   !> @param[inout] td_file   file structure 
     
    394394   !> 
    395395   !> @author J.Paul 
    396    !> - November, 2013- Initial Version 
     396   !> @date November, 2013 - Initial Version 
    397397   ! 
    398398   !> @param[inout] td_file   file structure 
     
    544544   ! 
    545545   !> @author J.Paul 
    546    !> - November, 2013- Initial Version 
     546   !> @date November, 2013 - Initial Version 
    547547   ! 
    548548   !> @param[inout] td_file   file structure 
     
    636636   ! 
    637637   !> @author J.Paul 
    638    !> - November, 2013- Initial Version 
     638   !> @date November, 2013 - Initial Version 
    639639   ! 
    640640   !> @param[inout] td_file   file structure 
     
    688688   ! 
    689689   !> @author J.Paul 
    690    !> - November, 2013- Initial Version 
     690   !> @date November, 2013 - Initial Version 
    691691   ! 
    692692   !> @param[inout] td_file   file structure 
     
    733733   ! 
    734734   !> @author J.Paul 
    735    !> - November, 2013- Initial Version 
     735   !> @date November, 2013 - Initial Version 
    736736   ! 
    737737   !> @param[inout] td_file   file structure 
     
    778778   ! 
    779779   !> @author J.Paul 
    780    !> - November, 2013- Initial Version 
     780   !> @date November, 2013 - Initial Version 
    781781   ! 
    782782   !> @param[inout] td_file   file structure 
     
    820820   ! 
    821821   !> @author J.Paul 
    822    !> - Nov, 2013- Initial Version 
     822   !> @date November, 2013 - Initial Version 
    823823   ! 
    824824   !> @param[in] td_file   file structure 
     
    863863   ! 
    864864   !> @author J.Paul 
    865    !> - Nov, 2013- Initial Version 
     865   !> @date November, 2013 - Initial Version 
    866866   ! 
    867867   !> @param[in] td_file   file structure 
     
    907907   ! 
    908908   !> @author J.Paul 
    909    !> - November, 2013- Initial Version 
     909   !> @date November, 2013 - Initial Version 
    910910   ! 
    911911   !> @param[in] td_file   file structure 
     
    972972   ! 
    973973   !> @author J.Paul 
    974    !> - November, 2013- Initial Version 
     974   !> @date November, 2013 - Initial Version 
    975975   ! 
    976976   !> @param[in] td_file   file structure 
     
    10371037   !> 
    10381038   !> @author J.Paul 
    1039    !> - November, 2013- Initial Version 
     1039   !> @date November, 2013 - Initial Version 
    10401040   ! 
    10411041   !> @param[in] td_file   file structure 
     
    10581058      INTEGER(i4), DIMENSION(ip_maxdim)            :: il_start 
    10591059      INTEGER(i4), DIMENSION(ip_maxdim)            :: il_count 
     1060 
    10601061      REAL(dp),    DIMENSION(:,:,:,:), ALLOCATABLE :: dl_value 
    10611062 
     
    12041205      ENDIF 
    12051206 
     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 
    12061219   END SUBROUTINE iom_rstdimg__read_var_value 
    12071220   !------------------------------------------------------------------- 
     
    12121225   !> 
    12131226   !> @author J.Paul 
    1214    !> - November, 2013- Initial Version 
     1227   !> @date November, 2013 - Initial Version 
    12151228   !> @date September, 2014 
    12161229   !> - use iom_rstdimg__get_rec 
     
    13081321   !> 
    13091322   !> @author J.Paul 
    1310    !> - September, 2014- Initial Version 
     1323   !> @date September, 2014 - Initial Version 
    13111324   ! 
    13121325   !> @param[inout] td_file   file structure 
     
    14131426   ! 
    14141427   !> @author J.Paul 
    1415    !> - November, 2013- Initial Version 
     1428   !> @date November, 2013 - Initial Version 
    14161429   ! 
    14171430   !> @param[inout] td_file   file structure 
     
    16301643   !> 
    16311644   !> @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... 
    16331648   !> 
    1634    !> @param[in] id_fileid file id 
     1649   !> @param[in] td_file file structure 
    16351650   !------------------------------------------------------------------- 
    16361651   SUBROUTINE iom_rstdimg__write_var(td_file) 
     
    16671682            CASE('no0d','no1d','no2d','no3d') 
    16681683            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 
    16691694               DO jk=1,td_file%t_var(ji)%t_dim(3)%i_len 
    16701695                  SELECT CASE (td_file%t_var(ji)%i_ndim) 
Note: See TracChangeset for help on using the changeset viewer.