Changeset 5616 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS
- Timestamp:
- 2015-07-20T12:09:04+02:00 (9 years ago)
- Location:
- branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN
- Files:
-
- 25 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/cfg/variable.cfg
r5037 r5616 1 # name | units | axis | point | standard name | long name | interpolation 2 X | 1 | X | | projection_x_coordinate | | 3 Y | 1 | Y | | projection_y_coordinate | | 4 Z | 1 | Z | | projection_z_coordinate | | 5 T | 1 | T | | projection_t_coordinate | | 6 nav_lon | degrees_east | XY | T | longitude | Longitude | cubic 7 nav_lat | degrees_north | XY | T | latitude | Latitude | cubic 8 nav_lev | model_levels | Z | T | | Model levels | cubic 9 deptht | m | Z | T | depth | Vertical T levels | 10 time_counter | | T | | time | Time axis | 11 Bathymetry | m | XY | T | bathymetry | Bathymetry | cubic 12 votemper | degree_Celsius | XYZT | T | sea_water_potential_temperature | Temperature | cubic 13 vozocrtx | m s-1 | XYZT | U | | Zonal velocity | cubic 14 vomecrty | m s-1 | XYZT | V | | Meridional velocity| cubic 15 vosaline | PSU | XYZT | T | sea_water_salinity | Salinity | cubic 16 sossheig | m | XYT | T | sea_surface_height | Sea Surface Height | cubic 17 glamt | degrees_east | XY | T | | Longitude_T | cubic 18 glamu | degrees_east | XY | U | | Longitude_U | cubic 19 glamv | degrees_east | XY | V | | Longitude_V | cubic 20 glamf | degrees_east | XY | F | | Longitude_F | cubic 21 gphit | degrees_north | XY | T | | Latitude_T | cubic 22 gphiu | degrees_north | XY | U | | Latitude_U | cubic 23 gphiv | degrees_north | XY | V | | Latitude_V | cubic 24 gphif | degrees_north | XY | F | | Latitude_F | cubic 25 e1t | m | XY | T | | | cubic/rhoi 26 e1u | m | XY | U | | | cubic/rhoi 27 e1v | m | XY | V | | | cubic/rhoi 28 e1f | m | XY | F | | | cubic/rhoi 29 e2t | m | XY | T | | | cubic/rhoj 30 e2u | m | XY | U | | | cubic/rhoj 31 e2v | m | XY | V | | | cubic/rhoj 32 e2f | m | XY | F | | | cubic/rhoj 33 tmask | | XYZ | T | | | nearest 34 umask | | XYZ | U | | | nearest 35 vmask | | XYZ | V | | | nearest 36 fmask | | XYZ | F | | | nearest 37 weight | | XY | T | | | 38 kt | | | | | | 39 ndastp | | | | | | 40 adatrj | | | | | | 41 kt | | | | | | 42 rdt | | | | | | 43 rdttra1 | | | | | | 44 utau_b | | XYT | U |surface_downward_eastward_stress | | 45 vtau_b | | XYT | V |surface_downward_northward_stress | | 46 qns_b | | XYT | T | | | 47 emp_b | | XYT | T | | | 48 sfx_b | | XYT | T | | | 49 en | | XYZT | T | | | 50 avt | | XYZT | T | | | 51 avm | | XYZT | T | | | 52 avmu | | XYZT | T | | | 53 avmv | | XYZT | T | | | 54 dissl | | XYZT | T | | | 55 sbc_hc_b | | XYT | T | | | 56 sbc_sc_b | | XYT | T | | | 57 gcx | | XYT | T | | | 58 gcxb | | XYT | T | | | 59 ub | | XYZT | U | | | 60 vb | | XYZT | V | | | 61 tb | | XYZT | T | | | 62 sb | | XYZT | T | | | 63 rotb | | XYZT | T | | | 64 hdivb | | XYZT | T | | | 65 sshb | | XYT | T | | | 66 un | | XYZT | U | | | 67 vn | | XYZT | V | | | 68 tn | | XYZT | T | | | 69 sn | | XYZT | T | | | 70 rotn | | XYZT | T | | | 71 hdivn | | XYZT | T | | | 72 sshn | | XYT | T | | | 73 rhop | | XYZT | T | | | 1 # name | units | axis | pt| interpolation | long name | standard name 2 X | 1 | X | | | | projection_x_coordinate 3 Y | 1 | Y | | | | projection_y_coordinate 4 Z | 1 | Z | | | | projection_z_coordinate 5 T | 1 | T | | | | projection_t_coordinate 6 nav_lon | degrees_east | XY | T | cubic | Longitude | longitude 7 nav_lat | degrees_north | XY | T | cubic | Latitude | latitude 8 nav_lev | model_levels | Z | T | cubic | Model levels | 9 deptht | m | Z | T | | Vertical T levels | depth 10 time_counter | | T | | | Time axis | time 11 Bathymetry | m | XY | T | cubic | Bathymetry | bathymetry 12 votemper | degree_Celsius | XYZT | T | cubic | Temperature | sea_water_potential_temperature 13 vozocrtx | m s-1 | XYZT | U | cubic | Zonal velocity | 14 vomecrty | m s-1 | XYZT | V | cubic | Meridional velocity | 15 vosaline | PSU | XYZT | T | cubic | Salinity | sea_water_salinity 16 sossheig | m | XYT | T | cubic | Sea Surface Height | sea_surface_height 17 sotemper | m | XYT | T | cubic | | 18 sossheig | m | XYT | T | cubic | | 19 glamt | degrees_east | XY | T | cubic | Longitude_T | 20 glamu | degrees_east | XY | U | cubic | Longitude_U | 21 glamv | degrees_east | XY | V | cubic | Longitude_V | 22 glamf | degrees_east | XY | F | cubic | Longitude_F | 23 gphit | degrees_north | XY | T | cubic | Latitude_T | 24 gphiu | degrees_north | XY | U | cubic | Latitude_U | 25 gphiv | degrees_north | XY | V | cubic | Latitude_V | 26 gphif | degrees_north | XY | F | cubic | Latitude_F | 27 e1t | m | XY | T | cubic/rhoi | | 28 e1u | m | XY | U | cubic/rhoi | | 29 e1v | m | XY | V | cubic/rhoi | | 30 e1f | m | XY | F | cubic/rhoi | | 31 e2t | m | XY | T | cubic/rhoj | | 32 e2u | m | XY | U | cubic/rhoj | | 33 e2v | m | XY | V | cubic/rhoj | | 34 e2f | m | XY | F | cubic/rhoj | | 35 tmask | | XYZ | T | nearest | | 36 umask | | XYZ | U | nearest | | 37 vmask | | XYZ | V | nearest | | 38 fmask | | XYZ | F | nearest | | 39 weight | | XY | T | | | 40 kt | | | | | | 41 ndastp | | | | | | 42 adatrj | | | | | | 43 kt | | | | | | 44 rdt | | | | | | 45 rdttra1 | | | | | | 46 utau_b | | XY | U | | |surface_downward_eastward_stress 47 vtau_b | | XY | V | | |surface_downward_northward_stress 48 qns_b | | XY | T | | | 49 emp_b | | XY | T | | | 50 sfx_b | | XY | T | | | 51 en | | XYZ | T | | | 52 avt | | XYZ | T | | vertical eddy diffusivity | 53 avm | | XYZ | T | | vertical eddy viscosity | 54 avmu | | XYZ | T | | | 55 avmv | | XYZ | T | | | 56 dissl | | XYZ | T | | | 57 sbc_hc_b | | XY | T | | | 58 sbc_sc_b | | XY | T | | | 59 gcx | | XY | T | | | 60 gcxb | | XY | T | | | 61 ub | | XYZ | U | | | 62 vb | | XYZ | V | | | 63 tb | | XYZ | T | | | 64 sb | | XYZ | T | | | 65 rotb | | XYZ | T | | | 66 hdivb | | XYZ | T | | | 67 sshb | | XY | T | | | 68 un | | XYZ | U | | | 69 vn | | XYZ | V | | | 70 tn | | XYZ | T | | | 71 sn | | XYZ | T | | | 72 rotn | | XYZ | T | | | 73 hdivn | | XYZ | T | | | 74 sshn | | XYT | T | | | 75 rhop | | XYZ | T | | | 76 dic | | XYZT | T | | Dissolved Inorganic Carbon | mole_concentration_of_dissolved_inorganic_caron_in_sea_water 77 alkalini | | XYZT | T | | Total Alkalinity | sea_water_alkalinity_expressed_as_mole_equivalent 78 o2 | | XYZT | T | | Dissolved Oxygen | mole_concentration_of_dissolved_molecular_oxygen_in_sea_water 79 caco3 | | XYZT | T | | Calcite | 80 po4 | | XYZT | T | | Phosphate | mole_concentration_of_phosphate_in_sea_water 81 poc | | XYZT | T | | Small Particulate Organic Carbon | 82 si | | XYZT | T | | Dissolved Silicate | mole_concentration_of_silicate_in_sea_water 83 phy | | XYZT | T | | Nanophytoplankton | 84 zoo | | XYZT | T | | Microzooplankton | mole_concentration_of_microzooplankton_expressed_as_carbon_in_sea_water 85 doc | | XYZT | T | | Dissolved Organic Carbon | 86 phy2 | | XYZT | T | | Diatoms | 87 zoo2 | | XYZT | T | | Mesozooplankton | mole_concentration_of_mesozooplankton_expressed_as_carbon_in_sea_water 88 gsi | | XYZT | T | | Sinking biogenic Silica | 89 fer | | XYZT | T | | Dissolved Iron | mole_concentration_of_dissolved_iron_in_sea_water 90 bfe | | XYZT | T | | Iron in the big particles | 91 goc | | XYZT | T | | Big Particulate Organic Carbon | 92 sfe | | XYZT | T | | Iron in the small particles | 93 dfe | | XYZT | T | | Iron content of the Diatoms | 94 dsi | | XYZT | T | | Silicon content of the Diatoms | 95 nfe | | XYZT | T | | Iron content of the Nanophytoplankton | 96 nchl | | XYZT | T | | Chlorophyll of the Nanophytoplankton | 97 dchl | | XYZT | T | | Chlorophyll of the Diatoms | 98 no3 | | XYZT | T | | Nitrate | mole_concentration_of_nitrate_in_sea_water 99 nh4 | | XYZT | T | | Ammonium | mole_concentration_of_ammonium_in_sea_water 100 ppd | | XYZT | T | | | 101 ppn | | XYZT | T | | | 102 ph | | XYZT | T | | | 103 cflx | | XYZT | T | | | 104 oflx | | XYZT | T | | | 105 kg | | XYZT | T | | | 106 dpco2 | | XYZT | T | | | 107 heup | | XYZT | T | | | 108 kz | | XYZT | T | | | 109 irondep | | XYZT | T | | | 110 kt_ice | | | | | | 111 hicif | | | | | | 112 hsnif | | | | | | 113 frld | | | | | | 114 sist | | | | | | 115 tbif1 | | | | | | 116 tbif2 | | | | | | 117 tbif3 | | | | | | 118 ui_ice | | | | | | 119 vi_ice | | | | | | 120 qstoif | | | | | | 121 fsbbq | | | | | | 122 stress1_i | | | | | | 123 stress2_i | | | | | | 124 stress12_i | | | | | | 125 sxice | | | | | | 126 syice | | | | | | 127 sxxice | | | | | | 128 syyice | | | | | | 129 sxyice | | | | | | 130 sxsn | | | | | | 131 sysn | | | | | | 132 sxxsn | | | | | | 133 syysn | | | | | | 134 sxysn | | | | | | 135 sxa | | | | | | 136 sya | | | | | | 137 sxxa | | | | | | 138 syya | | | | | | 139 sxya | | | | | | 140 sxc0 | | | | | | 141 syc0 | | | | | | 142 sxxc0 | | | | | | 143 syyc0 | | | | | | 144 sxyc0 | | | | | | 145 sxc1 | | | | | | 146 syc1 | | | | | | 147 sxxc1 | | | | | | 148 syyc1 | | | | | | 149 sxyc1 | | | | | | 150 sxc2 | | | | | | 151 syc2 | | | | | | 152 sxxc2 | | | | | | 153 syyc2 | | | | | | 154 sxyc2 | | | | | | 155 sxst | | | | | | 156 syst | | | | | | 157 sxxst | | | | | | 158 syyst | | | | | | 159 sxyst | | | | | | -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/attribute.f90
r5608 r5616 370 370 !> 371 371 !> @author J.Paul 372 !> @d tae November, 2013 - Initial Version372 !> @date November, 2013 - Initial Version 373 373 ! 374 374 !> @param[in] cd_name attribute name -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90
r5608 r5616 641 641 !> 642 642 !> @author J.Paul 643 !> - November, 2013- Initial Version643 !> @date November, 2013 - Initial Version 644 644 !> 645 645 !> @param[in] td_var variable structure … … 777 777 !> 778 778 !> @author J.Paul 779 !> - November, 2013- Initial Version779 !> @date November, 2013 - Initial Version 780 780 !> 781 781 !> @param[in] td_var variable structure … … 896 896 !> 897 897 !> @author J.Paul 898 !> - November, 2013- Initial Version898 !> @date November, 2013 - Initial Version 899 899 !> 900 900 !> @param[in] td_var variable structure … … 1007 1007 !> 1008 1008 !> @author J.Paul 1009 !> - November, 2013- Initial Version1009 !> @date November, 2013 - Initial Version 1010 1010 !> 1011 1011 !> @param[inout] td_var variable structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_boundary.f90
r5608 r5616 1170 1170 !> 1171 1171 !> @author J.Paul 1172 !> @date November, 2013 - Initial Version1172 !> @date November, 2013 - Initial Version 1173 1173 !> @date September, 2014 1174 1174 !> - take into account grid point to compute boundary indices … … 1277 1277 !> 1278 1278 !> @author J.Paul 1279 !> @date November, 2013 - Initial Version1279 !> @date November, 2013 - Initial Version 1280 1280 !> @date September, 2014 1281 1281 !> - take into account grid point … … 1331 1331 !> 1332 1332 !> @author J.Paul 1333 !> - Nov, 2013- Initial Version1333 !> @date November, 2013 - Initial Version 1334 1334 !> 1335 1335 !> @param[inout] td_var variable structure … … 1407 1407 !> 1408 1408 !> @author J.Paul 1409 !> - November, 2013- Initial Version1409 !> @date November, 2013 - Initial Version 1410 1410 !> 1411 1411 !> @param[in] td_var variable structure … … 1512 1512 !> 1513 1513 !> @author J.Paul 1514 !> - November, 2013- Initial Version1514 !> @date November, 2013 - Initial Version 1515 1515 !> 1516 1516 !> @param[inout] td_var variable structure … … 1565 1565 !> 1566 1566 !> @author J.Paul 1567 !> - November, 2013- Initial Version1567 !> @date November, 2013 - Initial Version 1568 1568 !> 1569 1569 !> @param[in] td_level array of level variable structure … … 1627 1627 !> 1628 1628 !> @author J.Paul 1629 !> - November, 2014- Initial Version1629 !> @date November, 2014 - Initial Version 1630 1630 !> 1631 1631 !> @param[in] td_mpp mpp structure … … 1678 1678 !> 1679 1679 !> @author J.Paul 1680 !> - November, 2014- Initial Version1680 !> @date November, 2014 - Initial Version 1681 1681 !> 1682 1682 !> @param[in] td_mpp mpp structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_restart.f90
r5608 r5616 882 882 !> 883 883 !> @author J.Paul 884 !> @date November, 2013 - Initial Version884 !> @date November, 2013 - Initial Version 885 885 !> @date June, 2015 886 886 !> - do not use level anymore … … 1007 1007 !> 1008 1008 !> @author J.Paul 1009 !> - November, 2013- Initial Version1009 !> @date November, 2013 - Initial Version 1010 1010 !> 1011 1011 !> @param[inout] td_var variable structure … … 1069 1069 !> 1070 1070 !> @author J.Paul 1071 !> @date November, 2013 - Initial Version1071 !> @date November, 2013 - Initial Version 1072 1072 !> @date June, 2015 1073 1073 !> - do not use level anymore (for extrapolation) … … 1140 1140 !> 1141 1141 !> @author J.Paul 1142 !> - November, 2014- Initial Version1142 !> @date November, 2014 - Initial Version 1143 1143 !> 1144 1144 !> @param[in] td_mpp mpp structure … … 1191 1191 !> 1192 1192 !> @author J.Paul 1193 !> - November, 2014- Initial Version1193 !> @date November, 2014 - Initial Version 1194 1194 !> 1195 1195 !> @param[in] td_mpp mpp structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/dimension.f90
r5608 r5616 1184 1184 ! 1185 1185 !> @author J.Paul 1186 !> @date Nov , 2013 - Initial Version1186 !> @date November, 2013 - Initial Version 1187 1187 ! 1188 1188 !> @param[in] td_dim array of dimension structure … … 1317 1317 ! 1318 1318 !> @author J.Paul 1319 !> @date Nov , 2013 - Initial Version1319 !> @date November, 2013 - Initial Version 1320 1320 ! 1321 1321 !> @param[in] td_dim array of dimension structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/docsrc/1_install.md
r5608 r5616 13 13 # Fortran Compiler 14 14 SIREN codes were succesfully tested with : 15 - ifort (version 1 2.0.4)16 <!-- - gfortran (version 4.7.2 20121109) --> 15 - ifort (version 15.0.1) 16 - gfortran (version 4.8.2 20140120) 17 17 <!-- - pgf95 (version 13.9-0) --> 18 18 -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/domain.f90
r5608 r5616 246 246 ! 247 247 !> @author J.Paul 248 !> - Nov, 2013- Initial Version248 !> @date November, 2013 - Initial Version 249 249 ! 250 250 !> @param[inout] td_dom dom structure … … 294 294 ! 295 295 !> @author J.Paul 296 !> @date June, 2013 - Initial Version296 !> @date June, 2013 - Initial Version 297 297 !> @date September, 2014 298 298 !> - add boundary index … … 425 425 ! 426 426 !> @author J.Paul 427 !> @date June, 2013 - Initial Version427 !> @date June, 2013 - Initial Version 428 428 !> @date September, 2014 429 429 !> - add boundary index … … 550 550 !> 551 551 !> @author J.Paul 552 !> - November, 2013- Subroutine written552 !> @date November, 2013 - Initial version 553 553 ! 554 554 !> @param[inout] td_dom domain structure … … 723 723 !> 724 724 !> @author J.Paul 725 !> - November, 2013- Subroutine written725 !> @date November, 2013 - Initial verison 726 726 ! 727 727 !> @param[inout] td_dom domain strcuture … … 757 757 !> 758 758 !> @author J.Paul 759 !> - November, 2013- Subroutine written759 !> @date November, 2013 - Initial version 760 760 ! 761 761 !> @param[inout] td_dom domain strcuture … … 776 776 !> 777 777 !> @author J.Paul 778 !> - November, 2013- Subroutine written778 !> @date November, 2013 - Initial version 779 779 ! 780 780 !> @param[inout] td_dom domain strcuture … … 808 808 !> 809 809 !> @author J.Paul 810 !> - November, 2013- Subroutine written810 !> @date November, 2013 - Initial version 811 811 ! 812 812 !> @param[inout] td_dom domain strcuture … … 826 826 !> 827 827 !> @author J.Paul 828 !> - November, 2013- Subroutine written828 !> @date November, 2013 - Initial version 829 829 ! 830 830 !> @param[inout] td_dom domain strcuture … … 864 864 !> 865 865 !> @author J.Paul 866 !> - November, 2013- Subroutine written866 !> @date November, 2013 - Initial version 867 867 ! 868 868 !> @param[inout] td_dom domain strcuture … … 914 914 !> 915 915 !> @author J.Paul 916 !> - November, 2013- Subroutine written916 !> @date November, 2013 - Initial version 917 917 ! 918 918 !> @param[inout] td_dom domain strcuture … … 953 953 !> 954 954 !> @author J.Paul 955 !> - April, 2013- Subroutine written955 !> @date April, 2013 - Initial version 956 956 ! 957 957 !> @param[inout] td_dom domain strcuture … … 981 981 !> 982 982 !> @author J.Paul 983 !> - November, 2013- Subroutine written983 !> @date November, 2013 - Initial version 984 984 ! 985 985 !> @param[inout] td_dom domain strcuture … … 1043 1043 !> 1044 1044 !> @author J.Paul 1045 !> - November, 2013- Subroutine written1045 !> @date November, 2013 - Initial version 1046 1046 ! 1047 1047 !> @param[inout] td_dom domain strcuture … … 1084 1084 !> 1085 1085 !> @author J.Paul 1086 !> - November, 2013- Subroutine written1086 !> @date November, 2013 - Initial version 1087 1087 ! 1088 1088 !> @param[inout] td_dom domain strcuture … … 1182 1182 !> 1183 1183 !> @author J.Paul 1184 !> - November, 2013- Subroutine written1184 !> @date November, 2013 - Initial version 1185 1185 ! 1186 1186 !> @param[inout] td_dom domain strcuture … … 1294 1294 !> 1295 1295 !> @author J.Paul 1296 !> @date November, 2013 1296 !> @date November, 2013 - Initial version 1297 1297 !> @date September, 2014 1298 1298 !> - take into account number of ghost cell … … 1435 1435 ! 1436 1436 !> @author J.Paul 1437 !> @date November, 2013 1437 !> @date November, 2013 - Initial version 1438 1438 ! 1439 1439 !> @param[inout] td_dom domain strcuture … … 1478 1478 !> 1479 1479 !> @author J.Paul 1480 !> @date November, 2013 1480 !> @date November, 2013 - Initial version 1481 1481 !> @date September, 2014 1482 1482 !> - take into account boundary for one point size domain … … 1717 1717 ! 1718 1718 !> @author J.Paul 1719 !> @date November, 2013 1719 !> @date November, 2013 - Initial version 1720 1720 ! 1721 1721 !> @param[inout] td_dom domain strcuture -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/extrap.f90
r5608 r5616 400 400 !> @date July, 2015 401 401 !> - compute coef indices to be used 402 !> - bug fix: force coef indice to 1, for dimension lenth equal to 1 402 403 ! 403 404 !> @param[inout] dd_value 3D array of variable to be extrapolated … … 527 528 ! coef indices to be used 528 529 il_i1 = 1 529 il_i2 = 2530 il_i2 = 1 530 531 ENDIF 531 532 … … 541 542 ! coef indices to be used 542 543 il_j1 = 1 543 il_j2 = 2544 il_j2 = 1 544 545 ENDIF 545 546 … … 554 555 ! coef indices to be used 555 556 il_k1 = 1 556 il_k2 = 2557 il_k2 = 1 557 558 ENDIF 558 559 … … 601 602 ! coef indices to be used 602 603 il_i1 = 1 603 il_i2 = 2604 il_i2 = 1 604 605 ENDIF 605 606 … … 615 616 ! coef indices to be used 616 617 il_j1 = 1 617 il_j2 = 2618 il_j2 = 1 618 619 ENDIF 619 620 … … 628 629 ! coef indices to be used 629 630 il_k1 = 1 630 il_k2 = 2631 il_k2 = 1 631 632 ENDIF 632 633 … … 713 714 ! coef indices to be used 714 715 il_i1 = 1 715 il_i2 = 2716 il_i2 = 1 716 717 ENDIF 717 718 … … 726 727 ! coef indices to be used 727 728 il_j1 = 1 728 il_j2 = 2729 il_j2 = 1 729 730 ENDIF 730 731 … … 739 740 ! coef indices to be used 740 741 il_k1 = 1 741 il_k2 = 2742 il_k2 = 1 742 743 ENDIF 743 744 … … 778 779 ! coef indices to be used 779 780 il_i1 = 1 780 il_i2 = 2781 il_i2 = 1 781 782 ENDIF 782 783 … … 791 792 ! coef indices to be used 792 793 il_j1 = 1 793 il_j2 = 2794 il_j2 = 1 794 795 ENDIF 795 796 … … 804 805 ! coef indices to be used 805 806 il_k1 = 1 806 il_k2 = 2807 il_k2 = 1 807 808 ENDIF 808 809 … … 923 924 !> 924 925 !> @author J.Paul 925 !> - November, 2013- Initial Version926 !> @date November, 2013 - Initial Version 926 927 !> 927 928 !> @param[in] dd_value 3D array of variable to be extrapolated … … 1089 1090 !> 1090 1091 !> @author J.Paul 1091 !> -November, 2013 - Initial Version1092 !> @date November, 2013 - Initial Version 1092 1093 ! 1093 1094 !> @param[in] dd_value 3D array of variable to be extrapolated … … 1172 1173 !> 1173 1174 !> @author J.Paul 1174 !> - November, 2013-Initial version1175 !> @date November, 2013 - Initial version 1175 1176 ! 1176 1177 !> @param[inout] td_var variable … … 1274 1275 !> 1275 1276 !> @author J.Paul 1276 !> -November, 2013 - Initial version1277 !> @date November, 2013 - Initial version 1277 1278 !> 1278 1279 !> @param[inout] td_var variable -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/file.f90
r5608 r5616 449 449 ! 450 450 !> @author J.Paul 451 !> - November, 2013- Initial Version451 !> @date November, 2013 - Initial Version 452 452 ! 453 453 !> @param[in] cd_file file name … … 554 554 ! 555 555 !> @author J.Paul 556 !> - November, 2013- Initial Version556 !> @date November, 2013 - Initial Version 557 557 ! 558 558 !> @param[in] cd_file file name … … 590 590 ! 591 591 !> @author J.Paul 592 !> - November, 2013- Initial Version592 !> @date November, 2013 - Initial Version 593 593 ! 594 594 !> @param[in] td_file file structure … … 969 969 !> 970 970 !> @author J.Paul 971 !> - November, 2013- Initial Version971 !> @date November, 2013 - Initial Version 972 972 !> 973 973 !> @param[inout] td_file file structure … … 1112 1112 ! 1113 1113 !> @author J.Paul 1114 !> - November, 2013- Initial Version1114 !> @date November, 2013 - Initial Version 1115 1115 ! 1116 1116 !> @param[inout] td_file file structure … … 1147 1147 ! 1148 1148 !> @author J.Paul 1149 !> - November, 2013- Initial Version1149 !> @date November, 2013 - Initial Version 1150 1150 ! 1151 1151 !> @param[inout] td_file file structure … … 1326 1326 ! 1327 1327 !> @author J.Paul 1328 !> - November, 2013- Initial Version1328 !> @date November, 2013 - Initial Version 1329 1329 ! 1330 1330 !> @param[inout] td_file file structure … … 1424 1424 ! 1425 1425 !> @author J.Paul 1426 !> - November, 2013- Initial Version1426 !> @date November, 2013 - Initial Version 1427 1427 ! 1428 1428 !> @param[inout] td_file file structure … … 1550 1550 !> 1551 1551 !> @author J.Paul 1552 !> - November, 2013- Initial Version1552 !> @date November, 2013 - Initial Version 1553 1553 ! 1554 1554 !> @param[inout] td_file file structure … … 1630 1630 ! 1631 1631 !> @author J.Paul 1632 !> - November, 2013- Initial Version1632 !> @date November, 2013 - Initial Version 1633 1633 ! 1634 1634 !> @param[inout] td_file file structure … … 1673 1673 ! 1674 1674 !> @author J.Paul 1675 !> - November, 2013- Initial Version1675 !> @date November, 2013 - Initial Version 1676 1676 ! 1677 1677 !> @param[in] td_file file structure … … 1751 1751 ! 1752 1752 !> @author J.Paul 1753 !> - November, 2013- Initial Version1753 !> @date November, 2013 - Initial Version 1754 1754 ! 1755 1755 !> @param[in] cd_file file structure … … 1848 1848 ! 1849 1849 !> @author J.Paul 1850 !> - November, 2013- Initial Version1850 !> @date November, 2013 - Initial Version 1851 1851 ! 1852 1852 !> @param[in] td_file file structure … … 1911 1911 ! 1912 1912 !> @author J.Paul 1913 !> - November, 2013- Initial Version1913 !> @date November, 2013 - Initial Version 1914 1914 ! 1915 1915 !> @param[in] td_file file structure … … 1938 1938 ! 1939 1939 !> @author J.Paul 1940 !> - November, 2013- Initial Version1940 !> @date November, 2013 - Initial Version 1941 1941 ! 1942 1942 !> @param[in] td_file file structure … … 2051 2051 ! 2052 2052 !> @author J.Paul 2053 !> - November, 2013- Initial Version2053 !> @date November, 2013 - Initial Version 2054 2054 ! 2055 2055 !> @param[in] td_file array of file structure … … 2089 2089 !> 2090 2090 !> @author J.Paul 2091 !> - September, 2014- Initial Version2091 !> @date September, 2014 - Initial Version 2092 2092 ! 2093 2093 !> @param[in] td_file array of file -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/grid.f90
r5608 r5616 355 355 !> @note need all processor files to be there 356 356 !> @author J.Paul 357 !> - October, 2014- Initial Version357 !> @date October, 2014 - Initial Version 358 358 !> 359 359 !> @param[inout] td_file file structure … … 471 471 !> @note need all processor files 472 472 !> @author J.Paul 473 !> - October, 2014- Initial Version473 !> @date October, 2014 - Initial Version 474 474 !> 475 475 !> @param[in] td_mpp mpp structure … … 717 717 !> 718 718 !> @author J.Paul 719 !> -October, 2014 - Initial version719 !> @date October, 2014 - Initial version 720 720 ! 721 721 !> @param[in] dd_value array of value … … 810 810 !> 811 811 !> @author J.Paul 812 !> -October, 2014 - Initial version812 !> @date October, 2014 - Initial version 813 813 ! 814 814 !> @param[in] dd_value array of value … … 903 903 !> 904 904 !> @author J.Paul 905 !> -October, 2014 - Initial version905 !> @date October, 2014 - Initial version 906 906 ! 907 907 !> @param[in] dd_value array of value … … 996 996 !> 997 997 !> @author J.Paul 998 !> -October, 2014 - Initial version998 !> @date October, 2014 - Initial version 999 999 ! 1000 1000 !> @param[in] dd_value array of value … … 1092 1092 !> 1093 1093 !> @author J.Paul 1094 !> - Ocotber, 2014- Initial version1094 !> @date Ocotber, 2014 - Initial version 1095 1095 ! 1096 1096 !> @param[in] td_file file structure … … 1181 1181 !> 1182 1182 !> @author J.Paul 1183 !> -October, 2014 - Initial version1183 !> @date October, 2014 - Initial version 1184 1184 ! 1185 1185 !> @param[in] td_mpp mpp file structure … … 1461 1461 !> 1462 1462 !> @author J.Paul 1463 !> -October, 2014 - Initial version1463 !> @date October, 2014 - Initial version 1464 1464 !> 1465 1465 !> @param[in] td_file file structure … … 1554 1554 !> 1555 1555 !> @author J.Paul 1556 !> -October, 2014 - Initial version1556 !> @date October, 2014 - Initial version 1557 1557 ! 1558 1558 !> @param[in] td_mpp mpp file structure … … 1755 1755 !> 1756 1756 !> @author J.Paul 1757 !> - October, 2014- Initial Version1757 !> @date October, 2014 - Initial Version 1758 1758 !> 1759 1759 !> @param[in] td_file file structure … … 1862 1862 !> 1863 1863 !> @author J.Paul 1864 !> - November, 2013- Initial Version1864 !> @date November, 2013 - Initial Version 1865 1865 !> 1866 1866 !> @param[in] td_lat latitude variable structure … … 2884 2884 ! 2885 2885 !> @author J.Paul 2886 !> - November, 2013- Initial Version2886 !> @date November, 2013 - Initial Version 2887 2887 ! 2888 2888 !> @param[in] td_lon longitude structure … … 3162 3162 ! 3163 3163 !> @author J.Paul 3164 !> - November, 2013- Initial Version3164 !> @date November, 2013 - Initial Version 3165 3165 ! 3166 3166 !> @param[in] dd_lon grid longitude array … … 4302 4302 !> 4303 4303 !> @author J.Paul 4304 !> - November, 2013- Initial Version4304 !> @date November, 2013 - Initial Version 4305 4305 ! 4306 4306 !> @param[in] dd_lon0 array of coarse grid longitude … … 4461 4461 ! 4462 4462 !> @author J.Paul 4463 !> - November, 2013- Initial Version4463 !> @date November, 2013 - Initial Version 4464 4464 ! 4465 4465 !> @param[in] dd_lat0 array of coarse grid latitude … … 4531 4531 !> 4532 4532 !> @author J.Paul 4533 !> - November, 2013-Initial version4533 !> @date November, 2013 - Initial version 4534 4534 ! 4535 4535 !> @param[inout] td_var array of variable structure … … 4607 4607 !> 4608 4608 !> @author J.Paul 4609 !> - November, 2013-Initial version4609 !> @date November, 2013 - Initial version 4610 4610 ! 4611 4611 !> @param[inout] td_var array of variable structure … … 4686 4686 !> 4687 4687 !> @author J.Paul 4688 !> - September, 2014- Initial Version4688 !> @date September, 2014 - Initial Version 4689 4689 ! 4690 4690 !> @param[in] td_var variable sturcture … … 4889 4889 !> 4890 4890 !> @author J.Paul 4891 !> - November, 2013- Initial Version4891 !> @date November, 2013 - Initial Version 4892 4892 ! 4893 4893 !> @param[in] td_var variable strucutre … … 4988 4988 !> 4989 4989 !> @author J.Paul 4990 !> - November, 2013- Initial Version4990 !> @date November, 2013 - Initial Version 4991 4991 !> 4992 4992 !> @param[inout] td_var variable structure … … 5054 5054 !> 5055 5055 !> @author J.Paul 5056 !> - Ferbruay, 2015- Initial Version5056 !> @date Ferbruay, 2015 - Initial Version 5057 5057 !> 5058 5058 !> @param[inout] id_mask domain mask (from grid_split_domain) -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp.f90
r5608 r5616 137 137 !> 138 138 !> @author J.Paul 139 !> - November, 2013- Initial Version139 !> @date November, 2013 - Initial Version 140 140 ! 141 141 !> @param[in] cd_method interpolation method … … 179 179 !> 180 180 !> @author J.Paul 181 !> - November, 2013- Initial Version181 !> @date November, 2013 - Initial Version 182 182 !> 183 183 !> @param[in] td_mix mixed grid variable (to interpolate) … … 244 244 !> 245 245 !> @author J.Paul 246 !> - November, 2013- Initial Version246 !> @date November, 2013 - Initial Version 247 247 ! 248 248 !> @param[in] td_mix mixed grid variable (to interpolate) … … 363 363 !> 364 364 !> @author J.Paul 365 !> - November, 2013- Initial Version365 !> @date November, 2013 - Initial Version 366 366 !> 367 367 !> @param[in] td_var coarse grid variable (should be extrapolated) … … 449 449 !> 450 450 !> @author J.Paul 451 !> - November, 2013- Initial Version451 !> @date November, 2013 - Initial Version 452 452 !> 453 453 !> @param[inout] td_mix mixed grid variable … … 610 610 !> 611 611 !> @author J.Paul 612 !> - November, 2013- Initial Version612 !> @date November, 2013 - Initial Version 613 613 !> @date September, 2014 614 614 !> - use offset to save useful domain … … 716 716 !> 717 717 !> @author J.Paul 718 !> - November, 2013- Initial Version718 !> @date November, 2013 - Initial Version 719 719 !> 720 720 !> @param[inout] td_var variable structure … … 828 828 !> 829 829 !> @author J.Paul 830 !> - November, 2013- Initial Version830 !> @date November, 2013 - Initial Version 831 831 !> @date September, 2014 832 832 !> - use interpolation method modules -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp_linear.f90
r5608 r5616 24 24 !> J.Paul 25 25 ! REVISION HISTORY: 26 !> @date September, 2014 - Initial version26 !> @date September, 2014 - Initial version 27 27 !> 28 28 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 63 63 !> 64 64 !> @author J.Paul 65 !> - September, 2014- Initial Version65 !> @date September, 2014 - Initial Version 66 66 !> @date July, 2015 - reinitialise detect array for each level 67 67 !> … … 170 170 !> 171 171 !> @author J.Paul 172 !> - September, 2014- Initial Version172 !> @date September, 2014 - Initial Version 173 173 !> 174 174 !> @param[inout] dd_value 2D array of variable value … … 305 305 !> 306 306 !> @author J.Paul 307 !> - September, 2014- Initial Version307 !> @date September, 2014 - Initial Version 308 308 !> 309 309 !> @param[inout] dd_value 1D array of variable value … … 417 417 !> 418 418 !> @author J.Paul 419 !> - September, 2014- Initial Version419 !> @date September, 2014 - Initial Version 420 420 !> 421 421 !> @param[in] dd_value 2D array of value … … 454 454 !> 455 455 !> @author J.Paul 456 !> - September, 2014- Initial Version456 !> @date September, 2014 - Initial Version 457 457 !> 458 458 !> @param[inout] dd_value 2D array of mixed grid value … … 514 514 !> 515 515 !> @author J.Paul 516 !> - September, 2014- Initial Version516 !> @date September, 2014 - Initial Version 517 517 !> 518 518 !> @param[in] dd_value 1D array of value … … 549 549 !> 550 550 !> @author J.Paul 551 !> - September, 2014- Initial Version551 !> @date September, 2014 - Initial Version 552 552 !> 553 553 !> @param[inout] dd_value 1D array of mixed grid value … … 600 600 !> 601 601 !> @author J.Paul 602 !> - September, 2014- Initial Version602 !> @date September, 2014 - Initial Version 603 603 !> 604 604 !> @param[in] dd_weight interpolation weight of 2D array … … 669 669 !> 670 670 !> @author J.Paul 671 !> - September, 2014- Initial Version671 !> @date September, 2014 - Initial Version 672 672 !> 673 673 !> @param[in] dd_weight interpolation weight of 1D array -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp_nearest.f90
r5608 r5616 24 24 !> J.Paul 25 25 ! REVISION HISTORY: 26 !> @date September, 2014 - Initial version26 !> @date September, 2014 - Initial version 27 27 !> 28 28 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 55 55 !> 56 56 !> @author J.Paul 57 !> - September, 2014- Initial Version57 !> @date September, 2014 - Initial Version 58 58 !> 59 59 !> @param[inout] dd_value 2D array of variable value … … 123 123 !> 124 124 !> @author J.Paul 125 !> - September, 2014- Initial Version125 !> @date September, 2014 - Initial Version 126 126 !> 127 127 !> @param[inout] dd_value 2D array of variable value … … 178 178 !> 179 179 !> @author J.Paul 180 !> - September, 2014- Initial Version180 !> @date September, 2014 - Initial Version 181 181 !> 182 182 !> @param[inout] dd_value 1D array of variable value … … 223 223 !> 224 224 !> @author J.Paul 225 !> - September, 2014- Initial Version225 !> @date September, 2014 - Initial Version 226 226 !> 227 227 !> @param[inout] dd_value 2D array of mixed grid value … … 307 307 !> 308 308 !> @author J.Paul 309 !> - September, 2014- Initial Version309 !> @date September, 2014 - Initial Version 310 310 !> 311 311 !> @param[inout] dd_value 1D array of mixed grid value -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom.f90
r5608 r5616 156 156 !> 157 157 !> @author J.Paul 158 !> - November, 2013- Initial Version158 !> @date November, 2013 - Initial Version 159 159 ! 160 160 !> @param[inout] td_file file structure … … 186 186 !> 187 187 !> @author J.Paul 188 !> - November, 2013- Initial Version188 !> @date November, 2013 - Initial Version 189 189 ! 190 190 !> @param[inout] td_file file structure … … 223 223 !> 224 224 !> @author J.Paul 225 !> - November, 2013- Initial Version225 !> @date November, 2013 - Initial Version 226 226 ! 227 227 !> @param[inout] td_file file structure … … 252 252 ! 253 253 !> @author J.Paul 254 !> - November, 2013- Initial Version254 !> @date November, 2013 - Initial Version 255 255 ! 256 256 !> @param[in] td_file file structure … … 300 300 !> 301 301 !> @author J.Paul 302 !> - November, 2013- Initial Version302 !> @date November, 2013 - Initial Version 303 303 ! 304 304 !> @param[in] td_file file structure … … 338 338 ! 339 339 !> @author J.Paul 340 !> - November, 2013- Initial Version340 !> @date November, 2013 - Initial Version 341 341 ! 342 342 !> @param[in] td_file file structure … … 386 386 ! 387 387 !> @author J.Paul 388 !> - November, 2013- Initial Version388 !> @date November, 2013 - Initial Version 389 389 ! 390 390 !> @param[in] td_file file structure … … 422 422 ! 423 423 !> @author J.Paul 424 !> - November, 2013- Initial Version424 !> @date November, 2013 - Initial Version 425 425 ! 426 426 !> @param[in] td_file file structure … … 452 452 ! 453 453 !> @author J.Paul 454 !> - November, 2013- Initial Version454 !> @date November, 2013 - Initial Version 455 455 ! 456 456 !> @param[in] td_file file structure … … 485 485 ! 486 486 !> @author J.Paul 487 !> - November, 2013- Initial Version487 !> @date November, 2013 - Initial Version 488 488 ! 489 489 !> @param[in] td_file file structure … … 529 529 ! 530 530 !> @author J.Paul 531 !> - November, 2013- Initial Version531 !> @date November, 2013 - Initial Version 532 532 ! 533 533 !> @param[in] td_file file structure … … 569 569 !> 570 570 !> @author J.Paul 571 !> - November, 2013- Initial Version571 !> @date November, 2013 - Initial Version 572 572 !> @date July, 2015 - add dimension order option 573 573 ! -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_cdf.f90
r5608 r5616 144 144 !> 145 145 !> @author J.Paul 146 !> - November, 2013- Initial Version146 !> @date November, 2013 - Initial Version 147 147 !> @date May, 2015 - add optional message to netcdf error message 148 148 !> … … 181 181 !> 182 182 !> @author J.Paul 183 !> - November, 2013- Initial Version183 !> @date November, 2013 - Initial Version 184 184 ! 185 185 !> @param[inout] td_file file structure … … 277 277 !> 278 278 !> @author J.Paul 279 !> - November, 2013- Initial Version279 !> @date November, 2013 - Initial Version 280 280 ! 281 281 !> @param[inout] td_file file structure … … 317 317 !> 318 318 !> @author J.Paul 319 !> - November, 2013- Initial Version319 !> @date November, 2013 - Initial Version 320 320 ! 321 321 !> @param[inout] td_file file structure … … 355 355 ! 356 356 !> @author J.Paul 357 !> - November, 2013- Initial Version357 !> @date November, 2013 - Initial Version 358 358 ! 359 359 !> @param[inout] td_file file structure … … 406 406 ! 407 407 !> @author J.Paul 408 !> - November, 2013- Initial Version408 !> @date November, 2013 - Initial Version 409 409 !> @date September, 2014 410 410 !> - use attribute periodicity read from the file if present. … … 449 449 ! 450 450 !> @author J.Paul 451 !> - November, 2013- Initial Version451 !> @date November, 2013 - Initial Version 452 452 ! 453 453 !> @param[inout] td_file file structure … … 535 535 ! 536 536 !> @author J.Paul 537 !> - November, 2013- Initial Version537 !> @date November, 2013 - Initial Version 538 538 ! 539 539 !> @param[inout] td_file file structure … … 576 576 ! 577 577 !> @author J.Paul 578 !> - November, 2013- Initial Version578 !> @date November, 2013 - Initial Version 579 579 !> @date February, 2015 - create unused dimension, when reading dimension 580 580 !> of length less or equal to zero … … 633 633 ! 634 634 !> @author J.Paul 635 !> -November, 2013 - Initial Version635 !> @date November, 2013 - Initial Version 636 636 ! 637 637 !> @param[in] td_file file structure … … 673 673 ! 674 674 !> @author J.Paul 675 !> - November, 2013- Initial Version675 !> @date November, 2013 - Initial Version 676 676 ! 677 677 !> @param[in] td_file file structure … … 894 894 ! 895 895 !> @author J.Paul 896 !> - November, 2013- Initial Version896 !> @date November, 2013 - Initial Version 897 897 ! 898 898 !> @param[in] td_file file structure … … 939 939 ! 940 940 !> @author J.Paul 941 !> - November, 2013- Initial Version941 !> @date November, 2013 - Initial Version 942 942 ! 943 943 !> @param[in] td_file file structure … … 997 997 ! 998 998 !> @author J.Paul 999 !> - November, 2013- Initial Version999 !> @date November, 2013 - Initial Version 1000 1000 ! 1001 1001 !> @param[in] td_file file structure … … 1064 1064 ! 1065 1065 !> @author J.Paul 1066 !> - November, 2013- Initial Version1066 !> @date November, 2013 - Initial Version 1067 1067 ! 1068 1068 !> @param[inout] td_file file structure … … 1106 1106 ! 1107 1107 !> @author J.Paul 1108 !> - November, 2013- Initial Version1108 !> @date November, 2013 - Initial Version 1109 1109 ! 1110 1110 !> @param[inout] td_file file structure … … 1169 1169 ! 1170 1170 !> @author J.Paul 1171 !> - November, 2013- Initial Version1171 !> @date November, 2013 - Initial Version 1172 1172 ! 1173 1173 !> @param[inout] td_file file structure … … 1220 1220 ! 1221 1221 !> @author J.Paul 1222 !> - November, 2013- Initial Version1222 !> @date November, 2013 - Initial Version 1223 1223 !> @date September, 2014 1224 1224 !> - force to use FillValue=1.e20 if no FillValue for coordinate variable. … … 1375 1375 ! 1376 1376 !> @author J.Paul 1377 !> -November, 2013 - Initial Version1377 !> @date November, 2013 - Initial Version 1378 1378 !> @date July, 2015 1379 1379 !> - Bug fix: use order to disorder table (see dim_init) … … 1450 1450 ! 1451 1451 !> @author J.Paul 1452 !> - November, 2013- Initial Version1452 !> @date November, 2013 - Initial Version 1453 1453 ! 1454 1454 !> @param[in] td_file file structure … … 1499 1499 ! 1500 1500 !> @author J.Paul 1501 !> -November, 2013 - Initial Version1501 !> @date November, 2013 - Initial Version 1502 1502 !> @date June, 2015 1503 1503 !> - use scale factor and offset, as soon as read variable value … … 1708 1708 !> 1709 1709 !> @author J.Paul 1710 !> -November, 2013 - Initial Version1710 !> @date November, 2013 - Initial Version 1711 1711 !> @date July, 2015 1712 1712 !> - add dimension order option … … 1827 1827 ! 1828 1828 !> @author J.Paul 1829 !> - November, 2013- Initial Version1829 !> @date November, 2013 - Initial Version 1830 1830 ! 1831 1831 !> @param[inout] td_file file structure … … 1885 1885 ! 1886 1886 !> @author J.Paul 1887 !> - November, 2013- Initial Version1887 !> @date November, 2013 - Initial Version 1888 1888 ! 1889 1889 !> @param[inout] td_file file structure … … 1942 1942 ! 1943 1943 !> @author J.Paul 1944 !> - November, 2013- Initial Version1944 !> @date November, 2013 - Initial Version 1945 1945 ! 1946 1946 !> @param[inout] td_file file structure … … 2031 2031 ! 2032 2032 !> @author J.Paul 2033 !> - November, 2013- Initial Version2033 !> @date November, 2013 - Initial Version 2034 2034 ! 2035 2035 !> @param[in] td_file file structure … … 2167 2167 ! 2168 2168 !> @author J.Paul 2169 !> -November, 2013 - Initial Version2169 !> @date November, 2013 - Initial Version 2170 2170 !> @date June, 2015 2171 2171 !> - reuse scale factor and offset, before writing variable -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_dom.f90
r5037 r5616 71 71 !> 72 72 !> @author J.Paul 73 !> - October, 2014- Initial Version73 !> @date October, 2014 - Initial Version 74 74 ! 75 75 !> @param[inout] td_mpp mpp structure … … 106 106 !> 107 107 !> @author J.Paul 108 !> - October, 2014- Initial Version108 !> @date October, 2014 - Initial Version 109 109 ! 110 110 !> @param[in] td_mpp mpp structure … … 130 130 !> 131 131 !> @author J.Paul 132 !> - October, 2014- Initial Version132 !> @date October, 2014 - Initial Version 133 133 !> 134 134 !> @param[in] td_mpp mpp structure … … 194 194 ! 195 195 !> @author J.Paul 196 !> - October, 2014- Initial Version196 !> @date October, 2014 - Initial Version 197 197 ! 198 198 !> @param[in] td_mpp mpp structure … … 246 246 !> 247 247 !> @author J.Paul 248 !> - October, 2014- Initial Version248 !> @date October, 2014 - Initial Version 249 249 !> 250 250 !> @todo … … 411 411 !> 412 412 !> @author J.Paul 413 !> - October, 2014- Initial Version413 !> @date October, 2014 - Initial Version 414 414 ! 415 415 !> @param[in] td_mpp mpp structure … … 465 465 !> 466 466 !> @author J.Paul 467 !> - October, 2014- Initial Version467 !> @date October, 2014 - Initial Version 468 468 !> 469 469 !> @param[in] td_mpp mpp structure … … 524 524 !> 525 525 !> @author J.Paul 526 !> - October, 2014- Initial Version526 !> @date October, 2014 - Initial Version 527 527 !> 528 528 !> @param[in] td_mpp mpp structure … … 636 636 !> 637 637 !> @author J.Paul 638 !> - October, 2014- Initial Version638 !> @date October, 2014 - Initial Version 639 639 ! 640 640 !> @param[in] td_mpp mpp structure … … 663 663 !> 664 664 !> @author J.Paul 665 !> - October, 2014- Initial Version665 !> @date October, 2014 - Initial Version 666 666 ! 667 667 !> @param[in] td_mpp mpp structure … … 691 691 !> 692 692 !> @author J.Paul 693 !> - October, 2014- Initial Version693 !> @date October, 2014 - Initial Version 694 694 ! 695 695 !> @param[in] td_mpp mpp structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_mpp.f90
r5608 r5616 87 87 !> J.Paul 88 88 ! REVISION HISTORY: 89 !> @date Nov , 2013 - Initial Version89 !> @date November, 2013 - Initial Version 90 90 !> 91 91 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 137 137 !> 138 138 !> @author J.Paul 139 !> - November, 2013- Initial Version139 !> @date November, 2013 - Initial Version 140 140 ! 141 141 !> @param[inout] td_mpp mpp structure … … 224 224 !> 225 225 !> @author J.Paul 226 !> - November, 2013- Initial Version226 !> @date November, 2013 - Initial Version 227 227 ! 228 228 !> @param[inout] td_mpp mpp structure … … 251 251 !> 252 252 !> @author J.Paul 253 !> - November, 2013- Initial Version253 !> @date November, 2013 - Initial Version 254 254 ! 255 255 !> @param[in] td_mpp mpp structure … … 291 291 !> 292 292 !> @author J.Paul 293 !> - November, 2013- Initial Version293 !> @date November, 2013 - Initial Version 294 294 !> @date October, 2014 295 295 !> - use start and count array instead of domain structure. … … 367 367 ! 368 368 !> @author J.Paul 369 !> - November, 2013- Initial Version369 !> @date November, 2013 - Initial Version 370 370 !> @date October, 2014 371 371 !> - use start and count array instead of domain structure. … … 433 433 ! 434 434 !> @author J.Paul 435 !> - November, 2013- Initial Version435 !> @date November, 2013 - Initial Version 436 436 !> @date October, 2014 437 437 !> - use start and count array instead of domain structure. … … 623 623 ! 624 624 !> @author J.Paul 625 !> -November, 2013 - Initial Version625 !> @date November, 2013 - Initial Version 626 626 !> @date July, 2015 - add dimension order option 627 627 ! -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90
r5608 r5616 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) -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/logger.f90
r5608 r5616 121 121 !> J.Paul 122 122 ! REVISION HISTORY: 123 !> @date November, 2013 - Initial Version123 !> @date November, 2013 - Initial Version 124 124 !> @date February, 2015 125 125 !> - check verbosity validity … … 191 191 !> 192 192 !> @author J.Paul 193 !> - November, 2013- Initial Version193 !> @date November, 2013 - Initial Version 194 194 ! 195 195 !> @param[in] cd_file log file name … … 268 268 !> 269 269 !> @author J.Paul 270 !> - November, 2013- Initial Version270 !> @date November, 2013 - Initial Version 271 271 !------------------------------------------------------------------- 272 272 SUBROUTINE logger_close() … … 293 293 !> 294 294 !> @author J.Paul 295 !> - November, 2013- Initial Version295 !> @date November, 2013 - Initial Version 296 296 !------------------------------------------------------------------- 297 297 SUBROUTINE logger_flush() … … 315 315 !> 316 316 !> @author J.Paul 317 !> - November, 2013- Initial Version317 !> @date November, 2013 - Initial Version 318 318 !------------------------------------------------------------------- 319 319 RECURSIVE SUBROUTINE logger_header() … … 344 344 !> 345 345 !> @author J.Paul 346 !> - November, 2013- Initial Version346 !> @date November, 2013 - Initial Version 347 347 !------------------------------------------------------------------- 348 348 SUBROUTINE logger_footer() … … 377 377 !> 378 378 !> @author J.Paul 379 !> - November, 2013- Initial Version379 !> @date November, 2013 - Initial Version 380 380 ! 381 381 !> @param[in] cd_msg message to write … … 413 413 !> 414 414 !> @author J.Paul 415 !> - November, 2013- Initial Version415 !> @date November, 2013 - Initial Version 416 416 ! 417 417 !> @param[in] cd_msg message to write … … 449 449 !> 450 450 !> @author J.Paul 451 !> - November, 2013- Initial Version451 !> @date November, 2013 - Initial Version 452 452 ! 453 453 !> @param[in] cd_msg message to write … … 485 485 !> 486 486 !> @author J.Paul 487 !> - November, 2013- Initial Version487 !> @date November, 2013 - Initial Version 488 488 ! 489 489 !> @param[in] cd_msg message to write … … 521 521 !> 522 522 !> @author J.Paul 523 !> - November, 2013- Initial Version523 !> @date November, 2013 - Initial Version 524 524 ! 525 525 !> @param[in] cd_msg message to write … … 570 570 !> 571 571 !> @author J.Paul 572 !> - November, 2013- Initial Version572 !> @date November, 2013 - Initial Version 573 573 ! 574 574 !> @param[in] cd_msg message to write … … 605 605 !> 606 606 !> @author J.Paul 607 !> - November, 2013- Initial Version607 !> @date November, 2013 - Initial Version 608 608 ! 609 609 !> @param[in] cd_verb verbosity of the message to write … … 659 659 !> 660 660 !> @author J.Paul 661 !> -February, 2015 - Initial Version661 !> @date February, 2015 - Initial Version 662 662 ! 663 663 !> @param[in] cd_verb verbosity of the message to write -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/math.f90
r5608 r5616 144 144 ! 145 145 !> @author J.Paul 146 !> - January, 2015- Initial Version146 !> @date January, 2015 - Initial Version 147 147 ! 148 148 !> @param[in] dd_array 1D array … … 189 189 ! 190 190 !> @author J.Paul 191 !> - January, 2015- Initial Version191 !> @date January, 2015 - Initial Version 192 192 ! 193 193 !> @param[in] dd_array 2D array … … 235 235 ! 236 236 !> @author J.Paul 237 !> - January, 2015- Initial Version237 !> @date January, 2015 - Initial Version 238 238 ! 239 239 !> @param[in] dd_array 1D array … … 288 288 ! 289 289 !> @author J.Paul 290 !> - January, 2015- Initial Version290 !> @date January, 2015 - Initial Version 291 291 ! 292 292 !> @param[in] dd_array 2D array … … 334 334 ! 335 335 !> @author J.Paul 336 !> - January, 2015- Initial Version336 !> @date January, 2015 - Initial Version 337 337 ! 338 338 !> @param[in] dd_array 1D array … … 401 401 ! 402 402 !> @author J.Paul 403 !> - January, 2015- Initial Version403 !> @date January, 2015 - Initial Version 404 404 ! 405 405 !> @param[in] dd_array 2D array … … 457 457 !> 458 458 !> @author J.Paul 459 !> - January, 2015- Rewrite with SIREN coding rules459 !> @date January, 2015 - Rewrite with SIREN coding rules 460 460 ! 461 461 !> @param[inout] dd_array 1D array … … 486 486 !> 487 487 !> @author J.Paul 488 !> - January, 2015- Rewrite with SIREN coding rules488 !> @date January, 2015 - Rewrite with SIREN coding rules 489 489 ! 490 490 !> @param[inout] dd_array 1D array … … 553 553 !> 554 554 !> @author J.Paul 555 !> - Marsh, 2015- Rewrite in fortran, with SIREN coding rules555 !> @date Marsh, 2015 - Rewrite in fortran, with SIREN coding rules 556 556 ! 557 557 !> @param[inout] dd_array 1D array … … 628 628 !> 629 629 !> @author J.Paul 630 !> - June, 2015- initial release630 !> @date June, 2015 - initial version 631 631 ! 632 632 !> @param[in] cd_var operation to compute (string of character) … … 700 700 !> 701 701 !> @author J.Paul 702 !> - June, 2015- initial release702 !> @date June, 2015 - initial version 703 703 ! 704 704 !> @param[in] cd_varin string of character with operation inside … … 750 750 !> 751 751 !> @author J.Paul 752 !> - November, 2013- Initial Version752 !> @date November, 2013 - Initial Version 753 753 ! 754 754 !> @param[in] dd_value 1D array of variable to be extrapolated … … 862 862 !> 863 863 !> @author J.Paul 864 !> - November, 2013- Initial Version864 !> @date November, 2013 - Initial Version 865 865 ! 866 866 !> @param[in] dd_value 2D array of variable to be extrapolated … … 1048 1048 !> 1049 1049 !> @author J.Paul 1050 !> - November, 2013- Initial Version1050 !> @date November, 2013 - Initial Version 1051 1051 ! 1052 1052 !> @param[inout] dd_value 3D array of variable to be extrapolated -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/mpp.f90
r5608 r5616 350 350 !> 351 351 !> @author J.Paul 352 !> - November, 2013- Initial Version352 !> @date November, 2013 - Initial Version 353 353 !> @date November, 2014 354 354 !> - use function instead of overload assignment operator … … 424 424 !> 425 425 !> @author J.Paul 426 !> - November, 2013- Initial Version426 !> @date November, 2013 - Initial Version 427 427 !> @date November, 2014 428 428 !> - use function instead of overload assignment operator … … 453 453 ! 454 454 !> @author J.Paul 455 !> - Nov, 2013- Initial Version455 !> @date November, 2013 - Initial Version 456 456 ! 457 457 !> @param[in] td_mpp mpp structure … … 911 911 !> 912 912 !> @author J.Paul 913 !> - November, 2013- Initial Version913 !> @date November, 2013 - Initial Version 914 914 ! 915 915 !> @param[in] td_file file strcuture … … 1129 1129 ! 1130 1130 !> @author J.Paul 1131 !> -November, 2013 - Initial Version1131 !> @date November, 2013 - Initial Version 1132 1132 !> @date July, 2015 - add only use dimension in MPP structure 1133 1133 !> … … 1316 1316 ! 1317 1317 !> @author J.Paul 1318 !> - November, 2013- Initial Version1318 !> @date November, 2013 - Initial Version 1319 1319 ! 1320 1320 !> @param[in] td_file file strcuture … … 1536 1536 ! 1537 1537 !> @author J.Paul 1538 !> - Nov, 2013- Initial Version1538 !> @date November, 2013 - Initial Version 1539 1539 ! 1540 1540 !> @param[in] td_mpp mpp structure … … 1678 1678 ! 1679 1679 !> @author J.Paul 1680 !> - November, 2013- Initial Version1680 !> @date November, 2013 - Initial Version 1681 1681 ! 1682 1682 !> @param[in] td_mpp mpp structure … … 1843 1843 !> @author J.Paul 1844 1844 !> @date November, 2013 - Initial version 1845 !> @date February, 2015 - define local variable structure to avoid mistake1846 !> with pointer1845 !> @date February, 2015 1846 !> - define local variable structure to avoid mistake with pointer 1847 1847 ! 1848 1848 !> @param[inout] td_mpp mpp strcuture … … 2200 2200 !> 2201 2201 !> @author J.Paul 2202 !> - November, 2013- Initial Version 2203 !> @date July, 2015 - rewrite the same as way var_add_dim 2202 !> @date November, 2013 - Initial Version 2203 !> @date July, 2015 2204 !> - rewrite the same as way var_add_dim 2204 2205 !> 2205 2206 !> @param[inout] td_mpp mpp structure … … 2258 2259 !> 2259 2260 !> @author J.Paul 2260 !> - November, 2013- Initial Version 2261 !> @date July, 2015 - rewrite the same as way var_del_dim 2261 !> @date November, 2013 - Initial Version 2262 !> @date July, 2015 2263 !> - rewrite the same as way var_del_dim 2262 2264 !> 2263 2265 !> @param[inout] td_mpp mpp structure … … 2310 2312 !> 2311 2313 !> @author J.Paul 2312 !> - November, 2013- Initial Version2314 !> @date November, 2013 - Initial Version 2313 2315 !> 2314 2316 !> @param[inout] td_mpp mpp structure … … 2486 2488 !> @author J.Paul 2487 2489 !> @date November, 2013 - Initial version 2488 !> @date February, 2015 - define local attribute structure to avoid mistake2489 !> with pointer2490 !> @date February, 2015 2491 !> - define local attribute structure to avoid mistake with pointer 2490 2492 ! 2491 2493 !> @param[inout] td_mpp mpp strcuture … … 3125 3127 !> 3126 3128 !> @author J.Paul 3127 !> @date November, 2013 3129 !> @date November, 2013 - Initial version 3128 3130 !> 3129 3131 !> @param[inout] td_mpp mpp strcuture … … 3163 3165 !> 3164 3166 !> @author J.Paul 3165 !> @date November, 2013 3167 !> @date November, 2013 - Initial version 3166 3168 !> 3167 3169 !> @param[in] td_mpp mpp strcuture … … 3228 3230 ! 3229 3231 !> @author J.Paul 3230 !> @date November, 2013 3232 !> @date November, 2013 - Initial version 3231 3233 ! 3232 3234 !> @param[in] td_mpp mpp strcuture … … 3290 3292 !> 3291 3293 !> @author J.Paul 3292 !> @date November, 2013 3294 !> @date November, 2013 - Initial version 3293 3295 !> 3294 3296 !> @param[inout] td_mpp mpp strcuture … … 3383 3385 !> 3384 3386 !> @author J.Paul 3385 !> - November, 2013- Initial Version3387 !> @date November, 2013 - Initial Version 3386 3388 !> 3387 3389 !> @param[in] td_mpp mpp structure … … 3434 3436 ! 3435 3437 !> @author J.Paul 3436 !> - November, 2013- Initial Version3438 !> @date November, 2013 - Initial Version 3437 3439 ! 3438 3440 !> @param[in] td_file array of file structure … … 3474 3476 ! 3475 3477 !> @author J.Paul 3476 !> - Ocotber, 2014- Initial Version3478 !> @date Ocotber, 2014 - Initial Version 3477 3479 ! 3478 3480 !> @param[in] td_mpp mpp file structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/multi.f90
r5608 r5616 61 61 !> @date October, 2014 62 62 !> - use mpp file structure instead of file 63 !> @date November, 2014 - Fix memory leaks bug 63 !> @date November, 2014 64 !> - Fix memory leaks bug 64 65 ! 65 66 !> @note Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 118 119 !> 119 120 !> @author J.Paul 120 !> - November, 2013- Initial Version121 !> @date November, 2013 - Initial Version 121 122 !> @date November, 2014 122 123 !> - use function instead of overload assignment operator (to avoid memory leak) … … 169 170 !> 170 171 !> @author J.Paul 171 !> - November, 2013- Initial Version 172 !> @date July, 2015 - check if variable to be read is in file 172 !> @date November, 2013 - Initial Version 173 !> @date July, 2015 174 !> - check if variable to be read is in file 173 175 !> 174 176 !> @param[in] cd_varfile variable location information (from namelist) … … 327 329 ! 328 330 !> @author J.Paul 329 !> - November, 2013- Initial Version331 !> @date November, 2013 - Initial Version 330 332 ! 331 333 !> @param[in] td_multi multi file structure … … 358 360 ! 359 361 !> @author J.Paul 360 !> - November, 2013- Initial Version362 !> @date November, 2013 - Initial Version 361 363 ! 362 364 !> @param[in] td_multi multi file structure … … 401 403 ! 402 404 !> @author J.Paul 403 !> - November, 2013- Initial Version405 !> @date November, 2013 - Initial Version 404 406 !> @date October, 2014 405 407 !> - use mpp file structure instead of file -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/variable.f90
r5608 r5616 529 529 !> 530 530 !> @author J.Paul 531 !> - November, 2013- Initial Version531 !> @date November, 2013 - Initial Version 532 532 !> @date November, 2014 533 533 !> - use function instead of overload assignment operator (to avoid memory leak) … … 642 642 !> 643 643 !> @author J.Paul 644 !> - November, 2013- Initial Version644 !> @date November, 2013 - Initial Version 645 645 !> @date November, 2014 646 646 !> - use function instead of overload assignment operator … … 671 671 !> 672 672 !> @author J.Paul 673 !> - November, 2013- Initial Version673 !> @date November, 2013 - Initial Version 674 674 !> 675 675 !> @param[inout] td_var variable strucutre … … 710 710 ! 711 711 !> @author J.Paul 712 !> - September, 2014- Initial Version712 !> @date September, 2014 - Initial Version 713 713 ! 714 714 !> @param[inout] td_var array of variable strucutre … … 733 733 ! 734 734 !> @author J.Paul 735 !> - September, 2014- Initial Version735 !> @date September, 2014 - Initial Version 736 736 ! 737 737 !> @param[inout] td_var array of variable strucutre … … 759 759 ! 760 760 !> @author J.Paul 761 !> - September, 2014- Initial Version761 !> @date September, 2014 - Initial Version 762 762 ! 763 763 !> @param[inout] td_var array of variable strucutre … … 824 824 !> 825 825 !> @author J.Paul 826 !> - November, 2013- Initial Version 827 !> @date February, 2015 - Bug fix: conversion of the FillValue type (float case) 828 !> @date June, 2015 - add unit factor (to change unit) 826 !> @date November, 2013 - Initial Version 827 !> @date February, 2015 828 !> - Bug fix: conversion of the FillValue type (float case) 829 !> @date June, 2015 830 !> - add unit factor (to change unit) 829 831 !> 830 832 !> @param[in] cd_name variable name … … 1111 1113 ! 1112 1114 !> @author J.Paul 1113 !> - November, 2013- Initial Version1115 !> @date November, 2013 - Initial Version 1114 1116 !> @date June, 2015 1115 1117 !> - add interp, extrap, and filter argument … … 1298 1300 ! 1299 1301 !> @author J.Paul 1300 !> - November, 2013- Initial Version 1301 !> @date February, 2015 - bug fix: array initialise with dimension 1302 !> @date November, 2013 - Initial Version 1303 !> @date February, 2015 1304 !> - bug fix: array initialise with dimension 1302 1305 !> array not only one value 1303 1306 !> @date June, 2015 … … 1513 1516 ! 1514 1517 !> @author J.Paul 1515 !> - November, 2013- Initial Version1518 !> @date November, 2013 - Initial Version 1516 1519 !> @date June, 2015 1517 1520 !> - add interp, extrap, and filter argument … … 1725 1728 ! 1726 1729 !> @author J.Paul 1727 !> - November, 2013- Initial Version1730 !> @date November, 2013 - Initial Version 1728 1731 !> @date June, 2015 1729 1732 !> - add interp, extrap, and filter argument … … 1880 1883 ! 1881 1884 !> @author J.Paul 1882 !> - November, 2013- Initial Version1885 !> @date November, 2013 - Initial Version 1883 1886 !> @date June, 2015 1884 1887 !> - add interp, extrap, and filter argument … … 2035 2038 ! 2036 2039 !> @author J.Paul 2037 !> - November, 2013- Initial Version2040 !> @date November, 2013 - Initial Version 2038 2041 !> @date June, 2015 2039 2042 !> - add interp, extrap, and filter argument … … 2191 2194 ! 2192 2195 !> @author J.Paul 2193 !> - November, 2013- Initial Version2196 !> @date November, 2013 - Initial Version 2194 2197 !> @date June, 2015 2195 2198 !> - add interp, extrap, and filter argument … … 2348 2351 ! 2349 2352 !> @author J.Paul 2350 !> - November, 2013- Initial Version2353 !> @date November, 2013 - Initial Version 2351 2354 !> @date June, 2015 2352 2355 !> - add interp, extrap, and filter argument … … 2506 2509 ! 2507 2510 !> @author J.Paul 2508 !> - November, 2013- Initial Version2511 !> @date November, 2013 - Initial Version 2509 2512 !> @date June, 2015 2510 2513 !> - add interp, extrap, and filter argument … … 2660 2663 ! 2661 2664 !> @author J.Paul 2662 !> - November, 2013- Initial Version2665 !> @date November, 2013 - Initial Version 2663 2666 !> @date June, 2015 2664 2667 !> - add interp, extrap, and filter argument … … 2814 2817 ! 2815 2818 !> @author J.Paul 2816 !> - November, 2013- Initial Version2819 !> @date November, 2013 - Initial Version 2817 2820 !> @date June, 2015 2818 2821 !> - add interp, extrap, and filter argument … … 2971 2974 ! 2972 2975 !> @author J.Paul 2973 !> - November, 2013- Initial Version2976 !> @date November, 2013 - Initial Version 2974 2977 !> @date June, 2015 2975 2978 !> - add interp, extrap, and filter argument … … 3130 3133 ! 3131 3134 !> @author J.Paul 3132 !> - November, 2013- Initial Version3135 !> @date November, 2013 - Initial Version 3133 3136 !> @date June, 2015 3134 3137 !> - add interp, extrap, and filter argument … … 3284 3287 ! 3285 3288 !> @author J.Paul 3286 !> - November, 2013- Initial Version3289 !> @date November, 2013 - Initial Version 3287 3290 !> @date June, 2015 3288 3291 !> - add interp, extrap, and filter argument … … 3440 3443 ! 3441 3444 !> @author J.Paul 3442 !> - November, 2013- Initial Version3445 !> @date November, 2013 - Initial Version 3443 3446 !> @date June, 2015 3444 3447 !> - add interp, extrap, and filter argument … … 3597 3600 ! 3598 3601 !> @author J.Paul 3599 !> - November, 2013- Initial Version3602 !> @date November, 2013 - Initial Version 3600 3603 !> @date June, 2015 3601 3604 !> - add interp, extrap, and filter argument … … 3756 3759 ! 3757 3760 !> @author J.Paul 3758 !> - November, 2013- Initial Version3761 !> @date November, 2013 - Initial Version 3759 3762 !> @date June, 2015 3760 3763 !> - add interp, extrap, and filter argument … … 3911 3914 ! 3912 3915 !> @author J.Paul 3913 !> - November, 2013- Initial Version3916 !> @date November, 2013 - Initial Version 3914 3917 !> @date June, 2015 3915 3918 !> - add interp, extrap, and filter argument … … 4068 4071 ! 4069 4072 !> @author J.Paul 4070 !> - November, 2013- Initial Version4073 !> @date November, 2013 - Initial Version 4071 4074 !> @date June, 2015 4072 4075 !> - add interp, extrap, and filter argument … … 4225 4228 ! 4226 4229 !> @author J.Paul 4227 !> - November, 2013- Initial Version4230 !> @date November, 2013 - Initial Version 4228 4231 !> @date June, 2015 4229 4232 !> - add interp, extrap, and filter argument … … 4383 4386 ! 4384 4387 !> @author J.Paul 4385 !> - November, 2013- Initial Version4388 !> @date November, 2013 - Initial Version 4386 4389 !> @date June, 2015 4387 4390 !> - add interp, extrap, and filter argument … … 4537 4540 ! 4538 4541 !> @author J.Paul 4539 !> - November, 2013- Initial Version4542 !> @date November, 2013 - Initial Version 4540 4543 !> @date June, 2015 4541 4544 !> - add interp, extrap, and filter argument … … 4693 4696 ! 4694 4697 !> @author J.Paul 4695 !> - November, 2013- Initial Version4698 !> @date November, 2013 - Initial Version 4696 4699 !> @date June, 2015 4697 4700 !> - add interp, extrap, and filter argument … … 4850 4853 ! 4851 4854 !> @author J.Paul 4852 !> - November, 2013- Initial Version4855 !> @date November, 2013 - Initial Version 4853 4856 !> @date June, 2015 4854 4857 !> - add interp, extrap, and filter argument … … 5000 5003 !> 5001 5004 !> @author J.Paul 5002 !> - November, 2013- Initial Version5005 !> @date November, 2013 - Initial Version 5003 5006 ! 5004 5007 !> @param[in] td_var1 variable structure … … 5050 5053 !> 5051 5054 !> @author J.Paul 5052 !> - November, 2013- Initial Version5055 !> @date November, 2013 - Initial Version 5053 5056 ! 5054 5057 !> @param[in] td_var1 variable structure … … 5122 5125 !> 5123 5126 !> @author J.Paul 5124 !> - November, 2013- Initial Version5127 !> @date November, 2013 - Initial Version 5125 5128 ! 5126 5129 !> @param[in] td_var1 variable structure … … 5197 5200 !> 5198 5201 !> @author J.Paul 5199 !> - November, 2013- Initial Version5202 !> @date November, 2013 - Initial Version 5200 5203 ! 5201 5204 !> @param[in] td_var1 variable structure … … 5272 5275 !> 5273 5276 !> @author J.Paul 5274 !> - November, 2013- Initial Version5277 !> @date November, 2013 - Initial Version 5275 5278 ! 5276 5279 !> @param[in] td_var1 variable structure … … 5347 5350 !> 5348 5351 !> @author J.Paul 5349 !> - November, 2013- Initial Version 5350 !> @date June, 2015 - add all element of the array in the same time 5352 !> @date November, 2013 - Initial Version 5353 !> @date June, 2015 5354 !> - add all element of the array in the same time 5351 5355 !> 5352 5356 !> @param[inout] td_var variable structure … … 5477 5481 ! 5478 5482 !> @author J.Paul 5479 !> - November, 2013 - Initial Version 5480 !> @date June, 2015 - use var__add_att_arr subroutine 5483 !> @date November, 2013 - Initial Version 5484 !> @date June, 2015 5485 !> - use var__add_att_arr subroutine 5481 5486 ! 5482 5487 !> @param[inout] td_var variable structure … … 5507 5512 ! 5508 5513 !> @author J.Paul 5509 !> - November, 2013- Initial Version 5510 !> @date February, 2015 - define local attribute structure to avoid mistake 5514 !> @date November, 2013 - Initial Version 5515 !> @date February, 2015 5516 !> - define local attribute structure to avoid mistake 5511 5517 !> with pointer 5512 5518 ! … … 5552 5558 ! 5553 5559 !> @author J.Paul 5554 !> - November, 2013- Initial Version 5555 !> @date February, 2015 - delete highlight attribute too, when attribute 5560 !> @date November, 2013- Initial Version 5561 !> @date February, 2015 5562 !> - delete highlight attribute too, when attribute 5556 5563 !> is deleted 5557 5564 ! … … 5669 5676 ! 5670 5677 !> @author J.Paul 5671 !> - November, 2013- Initial Version5678 !> @date November, 2013 - Initial Version 5672 5679 ! 5673 5680 !> @param[inout] td_var variable structure … … 5704 5711 ! 5705 5712 !> @author J.Paul 5706 !> - November, 2013- Initial Version5713 !> @date November, 2013 - Initial Version 5707 5714 ! 5708 5715 !> @param[inout] td_var variable structure … … 5743 5750 ! 5744 5751 !> @author J.Paul 5745 !> - November, 2013- Initial Version5752 !> @date November, 2013 - Initial Version 5746 5753 ! 5747 5754 !> @param[inout] td_var variable structure … … 5802 5809 ! 5803 5810 !> @author J.Paul 5804 !> - November, 2013- Initial Version5811 !> @date November, 2013 - Initial Version 5805 5812 ! 5806 5813 !> @param[inout] td_var variable structure … … 5866 5873 ! 5867 5874 !> @author J.Paul 5868 !> - November, 2013- Initial Version5875 !> @date November, 2013 - Initial Version 5869 5876 ! 5870 5877 !> @param[inout] td_var variable structure … … 5909 5916 !> 5910 5917 !> @author J.Paul 5911 !> - June, 2014- Initial Version5918 !> @date June, 2014 - Initial Version 5912 5919 ! 5913 5920 !> @param[in] td_var array of variables structure … … 5935 5942 !> 5936 5943 !> @author J.Paul 5937 !> - November, 2013- Initial Version5944 !> @date November, 2013 - Initial Version 5938 5945 ! 5939 5946 !> @param[in] td_var variable structure … … 6042 6049 !> 6043 6050 !> @author J.Paul 6044 !> - November, 2013- Initial Version6051 !> @date November, 2013 - Initial Version 6045 6052 !> 6046 6053 !> @param[inout] td_var variable structure … … 6180 6187 !> 6181 6188 !> @author J.Paul 6182 !> - November, 2013- Initial Version6189 !> @date November, 2013 - Initial Version 6183 6190 !> 6184 6191 !> @param[inout] td_var variable structure … … 6234 6241 !> 6235 6242 !> @author J.Paul 6236 !> - November, 2013- Initial Version6243 !> @date November, 2013 - Initial Version 6237 6244 ! 6238 6245 !> @param[inout] td_var variable structure … … 6310 6317 ! 6311 6318 !> @author J.Paul 6312 !> - November, 2013- Initial Version6319 !> @date November, 2013 - Initial Version 6313 6320 ! 6314 6321 !> @param[inout] td_var variabele structure … … 6386 6393 ! 6387 6394 !> @author J.Paul 6388 !> - November, 2013- Initial Version6395 !> @date November, 2013 - Initial Version 6389 6396 ! 6390 6397 !> @param[inout] td_var variabele structure … … 6462 6469 ! 6463 6470 !> @author J.Paul 6464 !> - November, 2013- Initial Version6471 !> @date November, 2013 - Initial Version 6465 6472 ! 6466 6473 !> @param[inout] td_var variabele structure … … 6536 6543 !> 6537 6544 !> @author J.Paul 6538 !> - November, 2013- Initial Version6545 !> @date November, 2013 - Initial Version 6539 6546 ! 6540 6547 !> @param[inout] td_var variable structure … … 6606 6613 !> 6607 6614 !> @author J.Paul 6608 !> - November, 2013- Initial Version6615 !> @date November, 2013 - Initial Version 6609 6616 !> 6610 6617 !> @param[inout] td_var variable structure … … 6629 6636 !> 6630 6637 !> @author J.Paul 6631 !> - September, 2014- Initial Version6638 !> @date September, 2014 - Initial Version 6632 6639 !> 6633 6640 !> @param[in] td_var array of variable structure … … 6694 6701 !> 6695 6702 !> @author J.Paul 6696 !> - November, 2013- Initial Version6703 !> @date November, 2013 - Initial Version 6697 6704 ! 6698 6705 !> @param[in] td_var array of variable structure … … 6749 6756 !> 6750 6757 !> @author J.Paul 6751 !> - November, 2013- Initial Version6758 !> @date November, 2013 - Initial Version 6752 6759 ! 6753 6760 !> @param[in] td_var array of variable structure … … 6788 6795 !> 6789 6796 !> @author J.Paul 6790 !> - November, 2013- Initial Version6797 !> @date November, 2013 - Initial Version 6791 6798 ! 6792 6799 !> @param[inout] td_var array of variable structure … … 6871 6878 !> 6872 6879 !> @author J.Paul 6873 !> -November, 2013 - Initial Version6880 !> @date November, 2013 - Initial Version 6874 6881 !> @date June, 2015 6875 6882 !> - new namelist format to get extra information (interpolation,...) … … 7027 7034 !> 7028 7035 !> @author J.Paul 7029 !> - November, 2013 - Initial Version 7030 !> @date July, 2015 - get unit and unit factor (to change unit) 7036 !> @date November, 2013 - Initial Version 7037 !> @date July, 2015 7038 !> - get unit and unit factor (to change unit) 7031 7039 ! 7032 7040 !> @param[in] cd_varinfo variable information from namelist … … 7167 7175 !> 7168 7176 !> @author J.Paul 7169 !> - November, 2013- Initial Version7177 !> @date November, 2013 - Initial Version 7170 7178 ! 7171 7179 !> @param[inout] td_var variable structure … … 7261 7269 !> 7262 7270 !> @author J.Paul 7263 !> - November, 2013- Initial Version7271 !> @date November, 2013 - Initial Version 7264 7272 !> 7265 7273 !> @param[inout] td_var variable structure … … 7413 7421 !> 7414 7422 !> @author J.Paul 7415 !> - November, 2013 - Initial Version 7416 !> @date June, 2015 - change way to get information in namelist, 7423 !> @date November, 2013 - Initial Version 7424 !> @date June, 2015 7425 !> - change way to get information in namelist, 7417 7426 !> value follows string "min =" 7418 7427 ! … … 7476 7485 !> 7477 7486 !> @author J.Paul 7478 !> - November, 2013 - Initial Version 7479 !> @date June, 2015 - change way to get information in namelist, 7487 !> @date November, 2013 - Initial Version 7488 !> @date June, 2015 7489 !> - change way to get information in namelist, 7480 7490 !> value follows string "max =" 7481 7491 ! … … 7539 7549 !> 7540 7550 !> @author J.Paul 7541 !> - June, 2015- Initial Version7551 !> @date June, 2015 - Initial Version 7542 7552 ! 7543 7553 !> @param[in] cd_name variable name … … 7612 7622 !> 7613 7623 !> @author J.Paul 7614 !> - November, 2013 - Initial Version 7615 !> @date June, 2015 - change way to get information in namelist, 7624 !> @date November, 2013 - Initial Version 7625 !> @date June, 2015 7626 !> - change way to get information in namelist, 7616 7627 !> value follows string "int =" 7617 7628 ! … … 7731 7742 !> 7732 7743 !> @author J.Paul 7733 !> - November, 2013 - Initial Version 7734 !> @date June, 2015 - change way to get information in namelist, 7744 !> @date November, 2013 - Initial Version 7745 !> @date June, 2015 7746 !> - change way to get information in namelist, 7735 7747 !> value follows string "ext =" 7736 7748 ! … … 7806 7818 !> 7807 7819 !> @author J.Paul 7808 !> - November, 2013 - Initial Version 7809 !> @date June, 2015 - change way to get information in namelist, 7820 !> @date November, 2013 - Initial Version 7821 !> @date June, 2015 7822 !> - change way to get information in namelist, 7810 7823 !> value follows string "flt =" 7811 7824 !> … … 7911 7924 !> 7912 7925 !> @author J.Paul 7913 !> - June, 2015- Initial Version7926 !> @date June, 2015 - Initial Version 7914 7927 ! 7915 7928 !> @param[in] cd_name variable name … … 7962 7975 !> 7963 7976 !> @author J.Paul 7964 !> - November, 2013- Initial Version7977 !> @date November, 2013 - Initial Version 7965 7978 ! 7966 7979 !> @param[in] td_var array of variable structure … … 8020 8033 !> 8021 8034 !> @author J.Paul 8022 !> - November, 2013- Initial Version8035 !> @date November, 2013 - Initial Version 8023 8036 ! 8024 8037 !> @param[inout] td_var variable structure … … 8065 8078 !> 8066 8079 !> @author J.Paul 8067 !> - June, 2015- Initial Version8080 !> @date June, 2015 - Initial Version 8068 8081 ! 8069 8082 !> @param[inout] td_var variable structure … … 8115 8128 !> 8116 8129 !> @author J.Paul 8117 !> - November, 2013- Initial Version8130 !> @date November, 2013 - Initial Version 8118 8131 ! 8119 8132 !> @param[inout] td_var variable structure … … 8200 8213 !> 8201 8214 !> @author J.Paul 8202 !> - August, 2014 - Initial Version 8203 !> @date July 2015 - do not use dim_disorder anymore 8215 !> @date August, 2014 - Initial Version 8216 !> @date July 2015 8217 !> - do not use dim_disorder anymore 8204 8218 ! 8205 8219 !> @param[inout] td_var variable structure … … 8256 8270 !> 8257 8271 !> @author J.Paul 8258 !> - September, 2014- Initial Version8272 !> @date September, 2014 - Initial Version 8259 8273 ! 8260 8274 !> @param[in] td_var array of variable structure … … 8281 8295 !> 8282 8296 !> @author J.Paul 8283 !> - November, 2014- Initial Version8297 !> @date November, 2014 - Initial Version 8284 8298 ! 8285 8299 !> @param[in] td_var time variable structure -
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/vgrid.f90
r5608 r5616 119 119 !> 120 120 !> @author G. Madec 121 !> - 03,08- G. Madec:F90: Free form and module121 !> @date Marsh,2008 - F90: Free form and module 122 122 ! 123 123 !> @note Reference : Marti, Madec & Delecluse, 1992, JGR, 97, No8, 12,763-12,766. … … 373 373 ! 374 374 !> @author A. Bozec, G. Madec 375 !> - 02-09 (A. Bozec, G. Madec) F90: Free form and module 376 !> - 02-09 (A. de Miranda) rigid-lid + islands 375 !> @date February, 2009 - F90: Free form and module 376 !> @date February, 2009 377 !> - A. de Miranda : rigid-lid + islands 377 378 !> 378 379 !> @note Reference : Pacanowsky & Gnanadesikan 1997, Mon. Wea. Rev., 126, 3248-3270. … … 496 497 497 498 !> @author G.Madec 498 !> - 03-08Original code499 !> @date Marsh, 2008 - Original code 499 500 ! 500 501 !> @param[in] id_mbathy … … 605 606 !> 606 607 !> @author J.Paul 607 !> - November, 2013- Initial Version608 !> @date November, 2013 - Initial Version 608 609 ! 609 610 !> @param[in] td_bathy Bathymetry file structure
Note: See TracChangeset
for help on using the changeset viewer.