diff --git a/CMakeLists.txt b/CMakeLists.txt index da9aa6b7..99095408 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,6 +1,5 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. ################################################################################ # opsinputs diff --git a/COPYRIGHT.txt b/COPYRIGHT.txt deleted file mode 100644 index cedd1b8b..00000000 --- a/COPYRIGHT.txt +++ /dev/null @@ -1,9 +0,0 @@ -(C) Crown Copyright 1995-2020, the Met Office. All rights reserved. - -Use, duplication or disclosure of this code is subject to the restrictions as -set forth in the licence. If no licence has been raised with this copy of the -code, the use, duplication or disclosure of it is strictly prohibited. -Permission to do so must first be obtained in writing from the IPR Manager at -the following address: - -Met Office, FitzRoy Road, Exeter, Devon, EX1 3PB, United Kingdom. diff --git a/LICENSE b/LICENSE new file mode 100644 index 00000000..966d4ea0 --- /dev/null +++ b/LICENSE @@ -0,0 +1,28 @@ +BSD 3-Clause License + +Copyright (c) 2023, Met Office + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +1. Redistributions of source code must retain the above copyright notice, this + list of conditions and the following disclaimer. + +2. Redistributions in binary form must reproduce the above copyright notice, + this list of conditions and the following disclaimer in the documentation + and/or other materials provided with the distribution. + +3. Neither the name of the copyright holder nor the names of its + contributors may be used to endorse or promote products derived from + this software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE +FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR +SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER +CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, +OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/README.md b/README.md index dc1cb24a..78c1b836 100644 --- a/README.md +++ b/README.md @@ -1,15 +1,15 @@ [![CI](https://github.com/MetOffice/opsinputs/actions/workflows/ci.yml/badge.svg)](https://github.com/MetOffice/opsinputs/actions/workflows/ci.yml) -(C) Crown Copyright 2020, the Met Office. All rights reserved. +© Crown Copyright 2020, the Met Office. All rights reserved. -Refer to COPYRIGHT.txt of this distribution for details. +Refer to [COPYRIGHT](COPYRIGHT.txt) of this distribution for details. Overview ======== This software makes it possible for NG-OPS to write observation data to files in the VarObs format and model data (geovals) to files in the Cx format. -Files in both formats are read as inputs into the VAR data assimilation system at the Met Office. The VarObs file format is described in OTDP 16 (https://www-nwp/~opsrc/OPS/view/ops-latest/doc/OTDP16.html) and the Cx file format is described in OTDP 17 (https://www-nwp/~opsrc/OPS/view/ops-latest/doc/OTDP17.html). +Files in both formats are read as inputs into the VAR data assimilation system at the Met Office. The VarObs file format is described in [OTDP 16](https://www-nwp/~opsrc/OPS/view/ops-latest/doc/OTDP16.html) and the Cx file format is described in [OTDP 17](https://www-nwp/~opsrc/OPS/view/ops-latest/doc/OTDP17.html). Dependencies ============ @@ -23,34 +23,25 @@ Note that both of the above need to be built with the same compiler and use the Building ======== -1. Clone the `ufo-bundle` into a folder of your choice. Consider using the `feature/wsmigaj` branch, which contains some Met Office-specific adjustments and includes the ropp-ufo package implementing operators for GNSSRO: +1. Clone the `mo-bundle` into a folder of your choice. - git clone https://github.com/JCSDA/ufo-bundle.git -b feature/wsmigaj - cd ufo-bundle - cp -a ~jopa/jedi_repos/nightly/ropp-ufo . + git clone https://github.com/MetOffice/mo-bundle.git + cd mo-bundle -2. Open the `CMakeLists.txt` file in the `ufo-bundle` directory and add the following line after all other lines starting with `ecbuild_bundle`: +2. Open the `CMakeLists.txt` file in the `mo-bundle` directory and comment out the projects not required for opsinputs (i.e., lines beginning with ecbuild_bundle). + Note that `opsinputs` depends on `oops`, `ioda`, `ufo` and `ropp-ufo`. - ecbuild_bundle( PROJECT opsinputs GIT "https://github.com/MetOffice/opsinputs.git" BRANCH develop UPDATE) -3. Run the following commands to set up your build environment: +3. Run the following commands to set up your build environment (internal): - module use /home/h03/jopa/modulefiles - module load jedi/ufo-bundle-dev-stack + module use ~jopa/modulefiles + module load bb-env - (Alternatively, load jedi/ufo-bundle-dev-stack/intel if you want to use the Intel compiler or jedi/ufo-bundle-dev-stack/gnu/7.2.0 to use the GNU 7.2.0 compiler suite.) +4. Configure and build: -4. Create a build directory next to the `ufo-bundle` directory, enter it and run ecbuild to configure a build: + cmake --workflow --preset=vdi_gnu - ecbuild ../ufo-bundle - -5. Run make to build the the bundle: - - make -j4 - - Note: if using the gfortran 7.2 compiler in the Debug configuration, you may need to remove the -finit-derived flag from the saber/cmake/compiler_flags_GNU_Fortran.cmake file to avoid an internal compiler error during compilation of some saber source files. - -8. Optionally, run tests to verify that components of the `opsinputs` package work correctly: +5. Optionally, run tests to verify that components of the `opsinputs` package work correctly: ctest -R opsinputs @@ -60,78 +51,81 @@ Usage VarObs and Cx files are written by the `VarObs Writer` and `Cx Writer` observation filters, respectively. See the Doxygen documentation of these filters in the `src/opsinputs/VarObsWriter.h` and `src/opsinputs/CxWriter.h` files (and the accompanying `...Parameters.h` files) for more information. The following YAML snippet demonstrates the use of `VarObsWriter`. stands for the name of one of the observation groups known to OPS. - - - ObsSpace: - name: - ObsDataIn: - obsfile: observations.nc4 - simulate: - variables: [surface_pressure] - - Filter: VarObs Writer - # The filter will output an .varobs file - # in the directory specified in the output_directory option. - output_directory: varobs - # By default, the filter will produce a VarObs file containing - # the varfields output by default by OPS for the observation - # group . The list of varfields can be changed by - # providing a namelist file .nl in the directory - # specified in the namelist_directory option. This file should - # contain a Fortran namelist in the format accepted by the - # Ops_ReadVarobsControlNL function from OPS. - namelist_directory: namelists - # Output only observations that passed the quality check in all - # variables. - reject_obs_with_any_variable_failing_qc: true - # Values of the following options are written to the UM fixed header - # embedded in the output VarObs file. In future (once the UM/LFRic JEDI - # interfaces are ready) they will probably be taken directly from - # the model. There are more options like this; the full list can be - # found in `src/opsinputs/VarObsWriterParameters.h`. - IC_XLen: 36 - IC_YLen: 18 - IC_PLevels: 8 - IC_WetLevels: 9 - RC_LongSpacing: 10 - RC_LatSpacing: 10 + +```yaml +- ObsSpace: + name: + ObsDataIn: + obsfile: observations.nc4 + simulate: + variables: [surface_pressure] +- Filter: VarObs Writer + # The filter will output an .varobs file + # in the directory specified in the output_directory option. + output_directory: varobs + # By default, the filter will produce a VarObs file containing + # the varfields output by default by OPS for the observation + # group . The list of varfields can be changed by + # providing a namelist file .nl in the directory + # specified in the namelist_directory option. This file should + # contain a Fortran namelist in the format accepted by the + # Ops_ReadVarobsControlNL function from OPS. + namelist_directory: namelists + # Output only observations that passed the quality check in all variables. + reject_obs_with_any_variable_failing_qc: true + # Values of the following options are written to the UM fixed header + # embedded in the output VarObs file. In future (once the UM/LFRic JEDI + # interfaces are ready) they will probably be taken directly from + # the model. There are more options like this; the full list can be + # found in `src/opsinputs/VarObsWriterParameters.h`. + IC_XLen: 36 + IC_YLen: 18 + IC_PLevels: 8 + IC_WetLevels: 9 + RC_LongSpacing: 10 + RC_LatSpacing: 10 +``` And here is a YAML snippet demonstrating the use of `CxWriter`. - - ObsSpace: - name: - ObsDataIn: - obsfile: observations.nc4 - simulate: - variables: [surface_pressure] - - Filter: Cx Writer - # The filter will output an .cx file - # in the directory specified in the output_directory option. - output_directory: cx - # By default, the filter will produce a Cx file containing - # the cxfields output by default by OPS for the observation - # group . The list of cxfields can be changed by - # providing a namelist file .nl in the directory - # specified in the namelist_directory option. This file should - # contain a Fortran namelist in the format accepted by the - # Ops_ReadCXControlNL function from OPS. - namelist_directory: namelists - # Output only model columns corresponding to observations that - # passed the quality check in all variables. - reject_obs_with_any_variable_failing_qc: true - # Values of the following options are written to the UM fixed header - # embedded in the output Cx file. In future (once the UM/LFRic JEDI - # interfaces are ready) they will probably be taken directly from - # the model. There are more options like this; the full list can be - # found in `src/opsinputs/VarObsWriterParameters.h`. - IC_XLen: 36 - IC_YLen: 18 - IC_PLevels: 3 - IC_WetLevels: 4 - RC_LongSpacing: 10 - RC_LatSpacing: 10 - # New dynamics vertical coordinate theta (length: IC_PLevels + 1). - eta_theta_levels: [300, 290, 280, 270] - # New dynamics vertical coordinate rho (length: IC_PLevels). - eta_rho_levels: [3, 2, 1] +```yaml +- ObsSpace: + name: + ObsDataIn: + obsfile: observations.nc4 + simulate: + variables: [surface_pressure] +- Filter: Cx Writer + # The filter will output an .cx file + # in the directory specified in the output_directory option. + output_directory: cx + # By default, the filter will produce a Cx file containing + # the cxfields output by default by OPS for the observation + # group . The list of cxfields can be changed by + # providing a namelist file .nl in the directory + # specified in the namelist_directory option. This file should + # contain a Fortran namelist in the format accepted by the + # Ops_ReadCXControlNL function from OPS. + namelist_directory: namelists + # Output only model columns corresponding to observations that + # passed the quality check in all variables. + reject_obs_with_any_variable_failing_qc: true + # Values of the following options are written to the UM fixed header + # embedded in the output Cx file. In future (once the UM/LFRic JEDI + # interfaces are ready) they will probably be taken directly from + # the model. There are more options like this; the full list can be + # found in `src/opsinputs/VarObsWriterParameters.h`. + IC_XLen: 36 + IC_YLen: 18 + IC_PLevels: 3 + IC_WetLevels: 4 + RC_LongSpacing: 10 + RC_LatSpacing: 10 + # New dynamics vertical coordinate theta (length: IC_PLevels + 1). + eta_theta_levels: [300, 290, 280, 270] + # New dynamics vertical coordinate rho (length: IC_PLevels). + eta_rho_levels: [3, 2, 1] +``` Further YAML files illustrating the use of these filters can be found in the `test/testinput` folder. @@ -141,7 +135,7 @@ Development VarObs ------ -Only a subset of varfields recognised by OPS and VAR can currently be output. To add support for a new varfield: +Only a subset of [varfields](Varfields.md) recognised by OPS and VAR can currently be output. To add support for a new varfield: 1. Determine where the input data will come from (a variable stored in the `ObsSpace` object? a GeoVaL?). @@ -149,13 +143,13 @@ Only a subset of varfields recognised by OPS and VAR can currently be output. To ! call Ops_Alloc(Ob % Header % logvis, "logvis", Ob % Header % NumObsLocal, Ob % logvis) - should then be replaced by + should then be replaced by call opsinputs_fill_fillelementtypefromsimulatedvariable( & Ob % Header % logvis, "logvis", Ob % Header % NumObsLocal, Ob % logvis, & ObsSpace, Flags, ObsErrors, "logarithmic_visibility") - If in doubt, look at similar varfields that have already been implemented or read the documentation of relevant subroutines from the `opsinputs_fill_mod.F90` module. + If in doubt, look at similar [varfields](Varfields.md) that have already been implemented or read the documentation of relevant subroutines from the `opsinputs_fill_mod.F90` module. 3. Add a unit test for the new varfield: @@ -165,7 +159,7 @@ Only a subset of varfields recognised by OPS and VAR can currently be output. To c. Add a call to the `ADD_WRITER_TEST` function in the `test/CMakeLists.txt` file, specifying the name of the test and its input YAML and data files. -4. Update the list of implemented varfields in `Varfields.md`. +4. Update the list of implemented varfields in [Varfields.md](Varfields.md). Cx -- diff --git a/Varfields.md b/Varfields.md index 7098ffa9..e64813d6 100644 --- a/Varfields.md +++ b/Varfields.md @@ -1,3 +1,8 @@ + + | **Id** | **Varfield** | **Ob_type field** | **Description** | **How to get it from JEDI** | **TODO** | | --- | --- | --- | --- | --- | --- | | 1 | `VarField_pstar` | `pstar(:)` | surface pressure | `ObsValue/surfacePressure` | | @@ -11,7 +16,7 @@ | 9 | `VarField_lwp` | | | | Implement | | 10 | `VarField_britemp` | `CorBriTemp(:,:)` | bias-corrected brightness temperatures | `BiasCorrObsValue/brightnessTemperature` | | | 11 | `VarField_tskin` | `Tskin(:)` | skin temperature | `OneDVar/skinTemperature` | | -| 12 | `VarField_gpstzdelay` | `gpstzdelay(:)`| Ground based GNSS Total Zenith Delay | BiasCorrObsValue/zenithTotalDelay | | +| 12 | `VarField_gpstzdelay` | `gpstzdelay(:)`| Ground based GNSS Total Zenith Delay | `BiasCorrObsValue/zenithTotalDelay` | | | 15 | `VarField_cloud` | | | | Implement | | 16 | `VarField_rainrate` | | | | Implement | | 17 | `VarField_mwemiss` | `Emissivity(:,:)` | surface emissivity | `Emiss/emissivity` | | @@ -25,12 +30,12 @@ | 25 | `VarField_chanword_ir` | | | | Implement | | 26 | `VarField_chanword_mw` | | | | Implement | | 27 | `VarField_stratt` | `t(:,-nlevels_strat_varobs:) `| temperature | Probably from a variable generated by the 1D-Var filter. | Implement | -| 28 | `VarField_satid` | `SatId(:)` \[`INTEGER`\] | satellite ID | MetaData/satelliteIdentifier.` | | +| 28 | `VarField_satid` | `SatId(:)` \[`INTEGER`\] | satellite ID | `MetaData/satelliteIdentifier` | | | 29 | `VarField_satazimth` | | | | Implement | | 30 | `VarField_localazimuth` | | | | Implement | | 31 | `VarField_solzenith` | `SolarZenith(:)` | solar zenith angle | `MetaData/solarZenithAngle` | | | 32 | `VarField_solazimth` | | | | Implement | -| 34 | `VarField_iremiss` | `IREmiss(:)` | surface emissivity (satellite 1dvar) | 'Emiss/emissivityIR' | | +| 34 | `VarField_iremiss` | `IREmiss(:)` | surface emissivity (satellite 1dvar) | `Emiss/emissivityIR` | | | 35 | `VarField_cloudtopp` | `CloudTopP(:)` | cloud top pressure (hPa) (satellite 1dvar) | `OutputToVAR/pressureAtTopOfCloud` | | | 36 | `VarField_cloudfrac` | `CloudFrac(:)` | cloud fraction (satellite 1dvar) | `OneDVar/cloudAmount` | | | 39 | `VarField_vnatovpp` | | | | Implement | @@ -45,7 +50,7 @@ | 53 | `VarField_pcorrect` | `AWPriorPCorrect(:,:)` | Probability for ambiguous wind | `ObsValue/probability` | | | 54 | `VarField_NumChans` | `NumChans(:)` \[`INTEGER`\] | number of channels | From obsSpace.obsvariables().channels() and obs flags | | | 55 | `VarField_ChanNum` | `ChanNum(:,:)` \[`INTEGER`\] | channel numbers | From obsSpace.obsvariables().channels() and obs flags | | -| 57 | `VarField_Emissivity` | `Emissivity(:,:)` | surface emissivity (satellite 1dvar) | OneDVar/emissivity | | +| 57 | `VarField_Emissivity` | `Emissivity(:,:)` | surface emissivity (satellite 1dvar) | `OneDVar/emissivity` | | | 58 | `VarField_QCinfo` | `QCinfo(:)` | auxiliary QC variable for satellite observations | From a variable updated by multiple filters. | Specify variable name | | 59 | `VarField_refrac` | | | | Implement | | 60 | `VarField_z` | | | | Implement | @@ -55,14 +60,14 @@ | 64 | `VarField_RadarBeamElev` | | | | Implement | | 65 | `VarField_RadarObRange` | | | | Implement | | 66 | `VarField_RadarObAzim` | `RadarObAzim(:,:)` | Azimut of radar ob | `MetaData/radarAzimuth` | | -| 67 | `VarField_GPS_Station_Height` | `GPS_Station_Height(:)`| Height of the Ground GNSS stations | MetaData/stationElevation | | +| 67 | `VarField_GPS_Station_Height` | `GPS_Station_Height(:)`| Height of the Ground GNSS stations | `MetaData/stationElevation` | | | 68 | `VarField_clw` | | | | Implement | | 69 | `VarField_RadIdent` | | | | Implement Implement | | 70 | `VarField_Reflectivity` | | | | Implement | | 71 | `VarField_BendingAngle` | `BendingAngle(:,:)` or `BendingAngleAll(:,:)` | GPSRO bending angle (L1, L2, LC etc or just LC) | `ObsValue/bendingAngle` | Decide if a separate variable corresponding to BendingAngleAll is needed | | 72 | `VarField_ImpactParam` | `ImpactParam(:,:)` or `ImpactParamAll(:,:)` | GPSRO impact parameter (L1, L2, LC etc or just LC) | `ObsValue/impactParameterRO` | Decide if a separate variable corresponding to ImpactParamAll is needed | | 73 | `VarField_RO_Rad_Curv` | `RO_Rad_Curv(:)` | GPSRO Earth\'s local radius of curvature (m) | `MetaData/earthRadiusCurvature` | | -| 74 | `VarField_RO_geoid_und` | `RO_geoid_und(:)` | GPSRO Geoid undulation (above WGS-84 ellipsoid, m) | MetaData/geoidUndulation | | +| 74 | `VarField_RO_geoid_und` | `RO_geoid_und(:)` | GPSRO Geoid undulation (above WGS-84 ellipsoid, m) | `MetaData/geoidUndulation` | | | 75 | `VarField_RadAltAboveMSL` | | | | Implement | | 76 | `VarField_BriTempVarError` | `BriTempVarError(:,:)` | scene dependent obs errors for BTs (oblocation, channel) | `ObsErrorData/brightnessTemperature` | | | 77 | `VarField_AOD` | `AOD(:,:)` | aerosol optical depth | `ObsValue/aerosolOpticalDepth` | | diff --git a/ci/CMakeLists.txt b/ci/CMakeLists.txt index 12aa4573..9a7902dc 100644 --- a/ci/CMakeLists.txt +++ b/ci/CMakeLists.txt @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# + cmake_minimum_required( VERSION 3.12 FATAL_ERROR ) project( opsinputs-ci VERSION 0.1 LANGUAGES C CXX Fortran ) diff --git a/ci/get-ref-branch b/ci/get-ref-branch index 3ce3028f..6f14c18c 100755 --- a/ci/get-ref-branch +++ b/ci/get-ref-branch @@ -1,4 +1,8 @@ #!/bin/bash +# +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# +# set -euxo pipefail repo="$1" # expect path to a repo clone diff --git a/ci/opsinputs-ci-build b/ci/opsinputs-ci-build index 7307ed16..891b604e 100755 --- a/ci/opsinputs-ci-build +++ b/ci/opsinputs-ci-build @@ -1,4 +1,8 @@ #!/bin/bash +# +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# +# set -euo pipefail finally() { diff --git a/cmake/FindSHUM.cmake b/cmake/FindSHUM.cmake index 5ad3ff25..ebcdcc62 100644 --- a/cmake/FindSHUM.cmake +++ b/cmake/FindSHUM.cmake @@ -1,6 +1,5 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. #[=======================================================================[.rst: diff --git a/cmake/opsinputs_compiler_flags.cmake b/cmake/opsinputs_compiler_flags.cmake index 0a39087a..1ff5a383 100644 --- a/cmake/opsinputs_compiler_flags.cmake +++ b/cmake/opsinputs_compiler_flags.cmake @@ -1,6 +1,5 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. if( NOT CMAKE_BUILD_TYPE MATCHES "Debug" ) add_definitions( -DNDEBUG ) diff --git a/cmake/opsinputs_functions.cmake b/cmake/opsinputs_functions.cmake index 6a01d442..0476db90 100644 --- a/cmake/opsinputs_functions.cmake +++ b/cmake/opsinputs_functions.cmake @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# +# # Syntax: CREATE_SYMLINKS(src dst) # # Arguments: diff --git a/deps/CMakeLists.txt b/deps/CMakeLists.txt index 28ade0aa..eb126b31 100644 --- a/deps/CMakeLists.txt +++ b/deps/CMakeLists.txt @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# + if("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") set(OPS_DEFAULT_Fortran_FLAGS "\ -fdefault-real-8 \ diff --git a/deps/gcom/CMakeLists.txt b/deps/gcom/CMakeLists.txt index 5fb923e9..7a1fc2fd 100644 --- a/deps/gcom/CMakeLists.txt +++ b/deps/gcom/CMakeLists.txt @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# + if("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") if("${CMAKE_Fortran_COMPILER_VERSION}" VERSION_GREATER "10.1.0") set(GCOM_EXTRA_Fortran_FLAGS "-Wno-unused-dummy-argument -Wno-unused -fallow-argument-mismatch") diff --git a/deps/gcom/gc/gc__abort.c b/deps/gcom/gc/gc__abort.c index 82df695e..4959f8b2 100644 --- a/deps/gcom/gc/gc__abort.c +++ b/deps/gcom/gc/gc__abort.c @@ -1,8 +1,6 @@ /* *****************************COPYRIGHT******************************* (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. - Please refer to Copyright file in top level GCOM directory - for further details *****************************COPYRIGHT******************************* ****************************************************************** diff --git a/deps/gcom/gc/gc__buildconst.F90 b/deps/gcom/gc/gc__buildconst.F90 index cf8ca191..41dccb9c 100644 --- a/deps/gcom/gc/gc__buildconst.F90 +++ b/deps/gcom/gc/gc__buildconst.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* MODULE gc__buildconst diff --git a/deps/gcom/gc/gc__errlim.F90 b/deps/gcom/gc/gc__errlim.F90 index 3c0f2027..b00e2731 100644 --- a/deps/gcom/gc/gc__errlim.F90 +++ b/deps/gcom/gc/gc__errlim.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* !======================================================================= diff --git a/deps/gcom/gc/gc__flush.F90 b/deps/gcom/gc/gc__flush.F90 index 640ed003..fbd00b4b 100644 --- a/deps/gcom/gc/gc__flush.F90 +++ b/deps/gcom/gc/gc__flush.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) CROWN COPYRIGHT , MET OFFICE, ALL RIGHTS RESERVED. -! PLEASE REFER TO COPYRIGHT FILE IN TOP LEVEL GCOM DIRECTORY -! FOR FURTHER DETAILS ! *****************************COPYRIGHT******************************* !======================================================================= diff --git a/deps/gcom/gc/gc__get_mpi_type.F90 b/deps/gcom/gc/gc__get_mpi_type.F90 index 56a7879e..abb48b1e 100644 --- a/deps/gcom/gc/gc__get_mpi_type.F90 +++ b/deps/gcom/gc/gc__get_mpi_type.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* !======================================================================= diff --git a/deps/gcom/gc/gc__stamp.F90 b/deps/gcom/gc/gc__stamp.F90 index dc58be29..39192bd0 100644 --- a/deps/gcom/gc/gc__stamp.F90 +++ b/deps/gcom/gc/gc__stamp.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* SUBROUTINE gc__stamp() diff --git a/deps/gcom/gc/gc_abort.F90 b/deps/gcom/gc/gc_abort.F90 index 0ee964e6..18b8e689 100644 --- a/deps/gcom/gc/gc_abort.F90 +++ b/deps/gcom/gc/gc_abort.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_bbcast.F90 b/deps/gcom/gc/gc_bbcast.F90 index 9cb93478..18325b51 100644 --- a/deps/gcom/gc/gc_bbcast.F90 +++ b/deps/gcom/gc/gc_bbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_brecv.F90 b/deps/gcom/gc/gc_brecv.F90 index 78545d2e..1a14c974 100644 --- a/deps/gcom/gc/gc_brecv.F90 +++ b/deps/gcom/gc/gc_brecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_bsend.F90 b/deps/gcom/gc/gc_bsend.F90 index af52074c..1d2ad618 100644 --- a/deps/gcom/gc/gc_bsend.F90 +++ b/deps/gcom/gc/gc_bsend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_cbcast.F90 b/deps/gcom/gc/gc_cbcast.F90 index cee45dd2..111a8182 100644 --- a/deps/gcom/gc/gc_cbcast.F90 +++ b/deps/gcom/gc/gc_cbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_config.F90 b/deps/gcom/gc/gc_config.F90 index 5e8ffd8d..f7629400 100644 --- a/deps/gcom/gc/gc_config.F90 +++ b/deps/gcom/gc/gc_config.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_crecv.F90 b/deps/gcom/gc/gc_crecv.F90 index 9cd03b4a..d50472f7 100644 --- a/deps/gcom/gc/gc_crecv.F90 +++ b/deps/gcom/gc/gc_crecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_csend.F90 b/deps/gcom/gc/gc_csend.F90 index 0f17d0ab..40244e04 100644 --- a/deps/gcom/gc/gc_csend.F90 +++ b/deps/gcom/gc/gc_csend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_exit.F90 b/deps/gcom/gc/gc_exit.F90 index b466dd05..f93e4936 100644 --- a/deps/gcom/gc/gc_exit.F90 +++ b/deps/gcom/gc/gc_exit.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_finalized.F90 b/deps/gcom/gc/gc_finalized.F90 index 9e50a256..43348603 100644 --- a/deps/gcom/gc/gc_finalized.F90 +++ b/deps/gcom/gc/gc_finalized.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_get_communicator.F90 b/deps/gcom/gc/gc_get_communicator.F90 index 3d03f96a..98578845 100644 --- a/deps/gcom/gc/gc_get_communicator.F90 +++ b/deps/gcom/gc/gc_get_communicator.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_getopt.F90 b/deps/gcom/gc/gc_getopt.F90 index 72a8a325..5f9c1177 100644 --- a/deps/gcom/gc/gc_getopt.F90 +++ b/deps/gcom/gc/gc_getopt.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_globals_mod.F90 b/deps/gcom/gc/gc_globals_mod.F90 index 70caee6b..c087b35d 100644 --- a/deps/gcom/gc/gc_globals_mod.F90 +++ b/deps/gcom/gc/gc_globals_mod.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* MODULE gc_globals_mod diff --git a/deps/gcom/gc/gc_gsync.F90 b/deps/gcom/gc/gc_gsync.F90 index d1473126..cf8c1448 100644 --- a/deps/gcom/gc/gc_gsync.F90 +++ b/deps/gcom/gc/gc_gsync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_ibcast.F90 b/deps/gcom/gc/gc_ibcast.F90 index ac0d73b3..a22f5514 100644 --- a/deps/gcom/gc/gc_ibcast.F90 +++ b/deps/gcom/gc/gc_ibcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_imax.F90 b/deps/gcom/gc/gc_imax.F90 index c33e93d7..00dcc96a 100644 --- a/deps/gcom/gc/gc_imax.F90 +++ b/deps/gcom/gc/gc_imax.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_imax_single_task.F90 b/deps/gcom/gc/gc_imax_single_task.F90 index bcebdcbb..d24efe90 100644 --- a/deps/gcom/gc/gc_imax_single_task.F90 +++ b/deps/gcom/gc/gc_imax_single_task.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_imin.F90 b/deps/gcom/gc/gc_imin.F90 index b4db8a1e..27d3813a 100644 --- a/deps/gcom/gc/gc_imin.F90 +++ b/deps/gcom/gc/gc_imin.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_imin_single_task.F90 b/deps/gcom/gc/gc_imin_single_task.F90 index ebc49e84..5c18f28a 100644 --- a/deps/gcom/gc/gc_imin_single_task.F90 +++ b/deps/gcom/gc/gc_imin_single_task.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_init.F90 b/deps/gcom/gc/gc_init.F90 index b08a2276..b2023ab4 100644 --- a/deps/gcom/gc/gc_init.F90 +++ b/deps/gcom/gc/gc_init.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_init_thread.F90 b/deps/gcom/gc/gc_init_thread.F90 index 8118734e..79b1ba94 100644 --- a/deps/gcom/gc/gc_init_thread.F90 +++ b/deps/gcom/gc/gc_init_thread.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_initialized.F90 b/deps/gcom/gc/gc_initialized.F90 index 355aa13c..d55fb42b 100644 --- a/deps/gcom/gc/gc_initialized.F90 +++ b/deps/gcom/gc/gc_initialized.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_irecv.F90 b/deps/gcom/gc/gc_irecv.F90 index dc1cf479..513dc783 100644 --- a/deps/gcom/gc/gc_irecv.F90 +++ b/deps/gcom/gc/gc_irecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_isend.F90 b/deps/gcom/gc/gc_isend.F90 index 04eb2530..eb4b7c59 100644 --- a/deps/gcom/gc/gc_isend.F90 +++ b/deps/gcom/gc/gc_isend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_isum.F90 b/deps/gcom/gc/gc_isum.F90 index 361f8093..eb688734 100644 --- a/deps/gcom/gc/gc_isum.F90 +++ b/deps/gcom/gc/gc_isum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_kinds_mod.F90 b/deps/gcom/gc/gc_kinds_mod.F90 index 2b57121a..b477177d 100644 --- a/deps/gcom/gc/gc_kinds_mod.F90 +++ b/deps/gcom/gc/gc_kinds_mod.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* MODULE gc_kinds_mod diff --git a/deps/gcom/gc/gc_me.F90 b/deps/gcom/gc/gc_me.F90 index 42d54532..d59f0e8f 100644 --- a/deps/gcom/gc/gc_me.F90 +++ b/deps/gcom/gc/gc_me.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* FUNCTION gc_me () diff --git a/deps/gcom/gc/gc_nproc.F90 b/deps/gcom/gc/gc_nproc.F90 index cd00ab26..109d039e 100644 --- a/deps/gcom/gc/gc_nproc.F90 +++ b/deps/gcom/gc/gc_nproc.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* FUNCTION gc_nproc () diff --git a/deps/gcom/gc/gc_rbcast.F90 b/deps/gcom/gc/gc_rbcast.F90 index 9642bff6..3a170f48 100644 --- a/deps/gcom/gc/gc_rbcast.F90 +++ b/deps/gcom/gc/gc_rbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rmax.F90 b/deps/gcom/gc/gc_rmax.F90 index 87949c92..acdbaed4 100644 --- a/deps/gcom/gc/gc_rmax.F90 +++ b/deps/gcom/gc/gc_rmax.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rmax_single_task.F90 b/deps/gcom/gc/gc_rmax_single_task.F90 index 4713a85d..31b5e8f2 100644 --- a/deps/gcom/gc/gc_rmax_single_task.F90 +++ b/deps/gcom/gc/gc_rmax_single_task.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rmin.F90 b/deps/gcom/gc/gc_rmin.F90 index b8aeefb9..1e04a876 100644 --- a/deps/gcom/gc/gc_rmin.F90 +++ b/deps/gcom/gc/gc_rmin.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rmin_single_task.F90 b/deps/gcom/gc/gc_rmin_single_task.F90 index f2f42612..64a1248f 100644 --- a/deps/gcom/gc/gc_rmin_single_task.F90 +++ b/deps/gcom/gc/gc_rmin_single_task.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rrecv.F90 b/deps/gcom/gc/gc_rrecv.F90 index 09af5a86..8631c6a4 100644 --- a/deps/gcom/gc/gc_rrecv.F90 +++ b/deps/gcom/gc/gc_rrecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rsend.F90 b/deps/gcom/gc/gc_rsend.F90 index e224014a..46ed41b7 100644 --- a/deps/gcom/gc/gc_rsend.F90 +++ b/deps/gcom/gc/gc_rsend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rsum.F90 b/deps/gcom/gc/gc_rsum.F90 index 8933c45d..dda89f98 100644 --- a/deps/gcom/gc/gc_rsum.F90 +++ b/deps/gcom/gc/gc_rsum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rsumr.F90 b/deps/gcom/gc/gc_rsumr.F90 index 0dc2db94..36ce4399 100644 --- a/deps/gcom/gc/gc_rsumr.F90 +++ b/deps/gcom/gc/gc_rsumr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_rsumr_kind32.F90 b/deps/gcom/gc/gc_rsumr_kind32.F90 index c65881f4..6c34cc0e 100644 --- a/deps/gcom/gc/gc_rsumr_kind32.F90 +++ b/deps/gcom/gc/gc_rsumr_kind32.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_set_communicator.F90 b/deps/gcom/gc/gc_set_communicator.F90 index 872db3be..958960f5 100644 --- a/deps/gcom/gc/gc_set_communicator.F90 +++ b/deps/gcom/gc/gc_set_communicator.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_setopt.F90 b/deps/gcom/gc/gc_setopt.F90 index 701fc353..361d6b26 100644 --- a/deps/gcom/gc/gc_setopt.F90 +++ b/deps/gcom/gc/gc_setopt.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_ssync.F90 b/deps/gcom/gc/gc_ssync.F90 index cc9bd34c..c0d1f95c 100644 --- a/deps/gcom/gc/gc_ssync.F90 +++ b/deps/gcom/gc/gc_ssync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_zsum.F90 b/deps/gcom/gc/gc_zsum.F90 index 643959d0..9049526e 100644 --- a/deps/gcom/gc/gc_zsum.F90 +++ b/deps/gcom/gc/gc_zsum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gc_zsumr.F90 b/deps/gcom/gc/gc_zsumr.F90 index 75374966..85defb72 100644 --- a/deps/gcom/gc/gc_zsumr.F90 +++ b/deps/gcom/gc/gc_zsumr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gc_prolog.h" diff --git a/deps/gcom/gc/gcom_mod.F90 b/deps/gcom/gc/gcom_mod.F90 index e8445377..4635fcaf 100644 --- a/deps/gcom/gc/gcom_mod.F90 +++ b/deps/gcom/gc/gcom_mod.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* ! This module is for variables that are used outside of GCOM. diff --git a/deps/gcom/gcg/gcg__errlim.F90 b/deps/gcom/gcg/gcg__errlim.F90 index 725ceac5..959e05d2 100644 --- a/deps/gcom/gcg/gcg__errlim.F90 +++ b/deps/gcom/gcg/gcg__errlim.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* !======================================================================= diff --git a/deps/gcom/gcg/gcg__mpi_rank.F90 b/deps/gcom/gcg/gcg__mpi_rank.F90 index 379ae2ce..46e9e615 100644 --- a/deps/gcom/gcg/gcg__mpi_rank.F90 +++ b/deps/gcom/gcg/gcg__mpi_rank.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* !======================================================================= diff --git a/deps/gcom/gcg/gcg_bbcast.F90 b/deps/gcom/gcg/gcg_bbcast.F90 index e862a821..5d4fd12d 100644 --- a/deps/gcom/gcg/gcg_bbcast.F90 +++ b/deps/gcom/gcg/gcg_bbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_cbcast.F90 b/deps/gcom/gcg/gcg_cbcast.F90 index 40ebb640..c6e64ce7 100644 --- a/deps/gcom/gcg/gcg_cbcast.F90 +++ b/deps/gcom/gcg/gcg_cbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_config.F90 b/deps/gcom/gcg/gcg_config.F90 index 2691b52d..a51d1d2f 100644 --- a/deps/gcom/gcg/gcg_config.F90 +++ b/deps/gcom/gcg/gcg_config.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_gsync.F90 b/deps/gcom/gcg/gcg_gsync.F90 index a58ad57c..03920fc9 100644 --- a/deps/gcom/gcg/gcg_gsync.F90 +++ b/deps/gcom/gcg/gcg_gsync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_ibcast.F90 b/deps/gcom/gcg/gcg_ibcast.F90 index ddcedf1a..cdb8f282 100644 --- a/deps/gcom/gcg/gcg_ibcast.F90 +++ b/deps/gcom/gcg/gcg_ibcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_imax.F90 b/deps/gcom/gcg/gcg_imax.F90 index c5abf97d..113fd056 100644 --- a/deps/gcom/gcg/gcg_imax.F90 +++ b/deps/gcom/gcg/gcg_imax.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_imin.F90 b/deps/gcom/gcg/gcg_imin.F90 index e62cafcc..b2d0a014 100644 --- a/deps/gcom/gcg/gcg_imin.F90 +++ b/deps/gcom/gcg/gcg_imin.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_isum.F90 b/deps/gcom/gcg/gcg_isum.F90 index ca59253e..d5cb1925 100644 --- a/deps/gcom/gcg/gcg_isum.F90 +++ b/deps/gcom/gcg/gcg_isum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_me.F90 b/deps/gcom/gcg/gcg_me.F90 index ffac2642..9ba3c33b 100644 --- a/deps/gcom/gcg/gcg_me.F90 +++ b/deps/gcom/gcg/gcg_me.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_r2darrsum.F90 b/deps/gcom/gcg/gcg_r2darrsum.F90 index 5d66ac39..452d84c3 100644 --- a/deps/gcom/gcg/gcg_r2darrsum.F90 +++ b/deps/gcom/gcg/gcg_r2darrsum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_r2darrsum_kind32.F90 b/deps/gcom/gcg/gcg_r2darrsum_kind32.F90 index b72eebdd..4fc36164 100644 --- a/deps/gcom/gcg/gcg_r2darrsum_kind32.F90 +++ b/deps/gcom/gcg/gcg_r2darrsum_kind32.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_ralltoalle.F90 b/deps/gcom/gcg/gcg_ralltoalle.F90 index e0ca42d5..9d9b0e61 100644 --- a/deps/gcom/gcg/gcg_ralltoalle.F90 +++ b/deps/gcom/gcg/gcg_ralltoalle.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_ralltoalle_multi.F90 b/deps/gcom/gcg/gcg_ralltoalle_multi.F90 index d343e268..c36c73da 100644 --- a/deps/gcom/gcg/gcg_ralltoalle_multi.F90 +++ b/deps/gcom/gcg/gcg_ralltoalle_multi.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rbcast.F90 b/deps/gcom/gcg/gcg_rbcast.F90 index 6f9f764d..28f34b12 100644 --- a/deps/gcom/gcg/gcg_rbcast.F90 +++ b/deps/gcom/gcg/gcg_rbcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rmax.F90 b/deps/gcom/gcg/gcg_rmax.F90 index 9771fa1c..248ea0a6 100644 --- a/deps/gcom/gcg/gcg_rmax.F90 +++ b/deps/gcom/gcg/gcg_rmax.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rmin.F90 b/deps/gcom/gcg/gcg_rmin.F90 index 7f7c58aa..0fe22581 100644 --- a/deps/gcom/gcg/gcg_rmin.F90 +++ b/deps/gcom/gcg/gcg_rmin.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rsum.F90 b/deps/gcom/gcg/gcg_rsum.F90 index ea5e59f4..96090c0a 100644 --- a/deps/gcom/gcg/gcg_rsum.F90 +++ b/deps/gcom/gcg/gcg_rsum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rsum_kind32.F90 b/deps/gcom/gcg/gcg_rsum_kind32.F90 index 2c2de3ff..b2c1854a 100644 --- a/deps/gcom/gcg/gcg_rsum_kind32.F90 +++ b/deps/gcom/gcg/gcg_rsum_kind32.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rsumr.F90 b/deps/gcom/gcg/gcg_rsumr.F90 index 21a04f78..e1c9de13 100644 --- a/deps/gcom/gcg/gcg_rsumr.F90 +++ b/deps/gcom/gcg/gcg_rsumr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rsumr_kind32.F90 b/deps/gcom/gcg/gcg_rsumr_kind32.F90 index 4efa6b12..827c4a4b 100644 --- a/deps/gcom/gcg/gcg_rsumr_kind32.F90 +++ b/deps/gcom/gcg/gcg_rsumr_kind32.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rvecshift.F90 b/deps/gcom/gcg/gcg_rvecshift.F90 index f18b4bea..c12ab8d1 100644 --- a/deps/gcom/gcg/gcg_rvecshift.F90 +++ b/deps/gcom/gcg/gcg_rvecshift.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rvecsumf.F90 b/deps/gcom/gcg/gcg_rvecsumf.F90 index 28bf5b7b..30e7d4f2 100644 --- a/deps/gcom/gcg/gcg_rvecsumf.F90 +++ b/deps/gcom/gcg/gcg_rvecsumf.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rvecsumr.F90 b/deps/gcom/gcg/gcg_rvecsumr.F90 index dc5e7997..ed72a80f 100644 --- a/deps/gcom/gcg/gcg_rvecsumr.F90 +++ b/deps/gcom/gcg/gcg_rvecsumr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_rvecsumrf.F90 b/deps/gcom/gcg/gcg_rvecsumrf.F90 index 699794c9..a88b28d9 100644 --- a/deps/gcom/gcg/gcg_rvecsumrf.F90 +++ b/deps/gcom/gcg/gcg_rvecsumrf.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_split.F90 b/deps/gcom/gcg/gcg_split.F90 index c8c0ac67..24d95e48 100644 --- a/deps/gcom/gcg/gcg_split.F90 +++ b/deps/gcom/gcg/gcg_split.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_ssync.F90 b/deps/gcom/gcg/gcg_ssync.F90 index a69eaf6e..5756b540 100644 --- a/deps/gcom/gcg/gcg_ssync.F90 +++ b/deps/gcom/gcg/gcg_ssync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_zsum.F90 b/deps/gcom/gcg/gcg_zsum.F90 index b10c87db..020264f1 100644 --- a/deps/gcom/gcg/gcg_zsum.F90 +++ b/deps/gcom/gcg/gcg_zsum.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/gcg/gcg_zsumr.F90 b/deps/gcom/gcg/gcg_zsumr.F90 index 0dc3e186..29850a31 100644 --- a/deps/gcom/gcg/gcg_zsumr.F90 +++ b/deps/gcom/gcg/gcg_zsumr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* #include "gcg_prolog.h" diff --git a/deps/gcom/include/gcom.h b/deps/gcom/include/gcom.h index 8a825dec..59e06744 100644 --- a/deps/gcom/include/gcom.h +++ b/deps/gcom/include/gcom.h @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (c) CROWN COPYRIGHT, Met Office, All Rights Reserved. -! Please refer to Copyright file in top level GCOM directory -! for further details ! *****************************COPYRIGHT******************************* ! Fortran header file. PLEASE use the parameter variables in user diff --git a/deps/gcom/mpl/mpl.F90 b/deps/gcom/mpl/mpl.F90 index 89cd404f..9afb14c2 100644 --- a/deps/gcom/mpl/mpl.F90 +++ b/deps/gcom/mpl/mpl.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* MODULE mpl diff --git a/deps/gcom/mpl/mpl_abort.F90 b/deps/gcom/mpl/mpl_abort.F90 index a1aaa26f..380085d8 100644 --- a/deps/gcom/mpl/mpl_abort.F90 +++ b/deps/gcom/mpl/mpl_abort.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Abort() diff --git a/deps/gcom/mpl/mpl_allgather.F90 b/deps/gcom/mpl/mpl_allgather.F90 index 647feaf0..4ce1fe9e 100644 --- a/deps/gcom/mpl/mpl_allgather.F90 +++ b/deps/gcom/mpl/mpl_allgather.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Allgather() diff --git a/deps/gcom/mpl/mpl_allgatherv.F90 b/deps/gcom/mpl/mpl_allgatherv.F90 index a534e47e..dab1e2d2 100644 --- a/deps/gcom/mpl/mpl_allgatherv.F90 +++ b/deps/gcom/mpl/mpl_allgatherv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Allgatherv() diff --git a/deps/gcom/mpl/mpl_allreduce.F90 b/deps/gcom/mpl/mpl_allreduce.F90 index 57f619ff..74f68753 100644 --- a/deps/gcom/mpl/mpl_allreduce.F90 +++ b/deps/gcom/mpl/mpl_allreduce.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Allreduce() diff --git a/deps/gcom/mpl/mpl_alltoall.F90 b/deps/gcom/mpl/mpl_alltoall.F90 index 0ce16c2c..2b6bafab 100644 --- a/deps/gcom/mpl/mpl_alltoall.F90 +++ b/deps/gcom/mpl/mpl_alltoall.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Alltoall() diff --git a/deps/gcom/mpl/mpl_alltoallv.F90 b/deps/gcom/mpl/mpl_alltoallv.F90 index 43ef10db..87d1153c 100644 --- a/deps/gcom/mpl/mpl_alltoallv.F90 +++ b/deps/gcom/mpl/mpl_alltoallv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Alltoallv() diff --git a/deps/gcom/mpl/mpl_barrier.F90 b/deps/gcom/mpl/mpl_barrier.F90 index 56bd8d3a..dcaef6df 100644 --- a/deps/gcom/mpl/mpl_barrier.F90 +++ b/deps/gcom/mpl/mpl_barrier.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Barrier() diff --git a/deps/gcom/mpl/mpl_bcast.F90 b/deps/gcom/mpl/mpl_bcast.F90 index e34c5933..5e9bdf9d 100644 --- a/deps/gcom/mpl/mpl_bcast.F90 +++ b/deps/gcom/mpl/mpl_bcast.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_BCast () diff --git a/deps/gcom/mpl/mpl_bsend.F90 b/deps/gcom/mpl/mpl_bsend.F90 index 9a2e86fe..493f1afa 100644 --- a/deps/gcom/mpl/mpl_bsend.F90 +++ b/deps/gcom/mpl/mpl_bsend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Bsend() diff --git a/deps/gcom/mpl/mpl_buffer_attach.F90 b/deps/gcom/mpl/mpl_buffer_attach.F90 index a3be14db..a1e07ddb 100644 --- a/deps/gcom/mpl/mpl_buffer_attach.F90 +++ b/deps/gcom/mpl/mpl_buffer_attach.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Buffer_Attach() diff --git a/deps/gcom/mpl/mpl_cancel.F90 b/deps/gcom/mpl/mpl_cancel.F90 index aeb28b1f..b13b3134 100644 --- a/deps/gcom/mpl/mpl_cancel.F90 +++ b/deps/gcom/mpl/mpl_cancel.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Cancel() diff --git a/deps/gcom/mpl/mpl_cart_create.F90 b/deps/gcom/mpl/mpl_cart_create.F90 index 0c4306bf..94ff2f26 100644 --- a/deps/gcom/mpl/mpl_cart_create.F90 +++ b/deps/gcom/mpl/mpl_cart_create.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Cart_Create() diff --git a/deps/gcom/mpl/mpl_comm_call_errhandler.F90 b/deps/gcom/mpl/mpl_comm_call_errhandler.F90 index 8a905729..acf779cf 100644 --- a/deps/gcom/mpl/mpl_comm_call_errhandler.F90 +++ b/deps/gcom/mpl/mpl_comm_call_errhandler.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Call_Errhandler() diff --git a/deps/gcom/mpl/mpl_comm_create.F90 b/deps/gcom/mpl/mpl_comm_create.F90 index ac53c725..5921f31c 100644 --- a/deps/gcom/mpl/mpl_comm_create.F90 +++ b/deps/gcom/mpl/mpl_comm_create.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Create() diff --git a/deps/gcom/mpl/mpl_comm_create_errhandler.F90 b/deps/gcom/mpl/mpl_comm_create_errhandler.F90 index 4ecaebea..6d8603a0 100644 --- a/deps/gcom/mpl/mpl_comm_create_errhandler.F90 +++ b/deps/gcom/mpl/mpl_comm_create_errhandler.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Create_Errhandler() diff --git a/deps/gcom/mpl/mpl_comm_dup.F90 b/deps/gcom/mpl/mpl_comm_dup.F90 index 52fc13f0..5732b8a6 100644 --- a/deps/gcom/mpl/mpl_comm_dup.F90 +++ b/deps/gcom/mpl/mpl_comm_dup.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Dup() diff --git a/deps/gcom/mpl/mpl_comm_get_attr.F90 b/deps/gcom/mpl/mpl_comm_get_attr.F90 index 0e25bf6f..67948e69 100644 --- a/deps/gcom/mpl/mpl_comm_get_attr.F90 +++ b/deps/gcom/mpl/mpl_comm_get_attr.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Get_Attr () diff --git a/deps/gcom/mpl/mpl_comm_get_errhandler.F90 b/deps/gcom/mpl/mpl_comm_get_errhandler.F90 index 8155caf1..feed6eb5 100644 --- a/deps/gcom/mpl/mpl_comm_get_errhandler.F90 +++ b/deps/gcom/mpl/mpl_comm_get_errhandler.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Get_Errhandler() diff --git a/deps/gcom/mpl/mpl_comm_group.F90 b/deps/gcom/mpl/mpl_comm_group.F90 index 7fabfdc5..4d73dfce 100644 --- a/deps/gcom/mpl/mpl_comm_group.F90 +++ b/deps/gcom/mpl/mpl_comm_group.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Group() diff --git a/deps/gcom/mpl/mpl_comm_rank.F90 b/deps/gcom/mpl/mpl_comm_rank.F90 index c23fc4aa..2c86268c 100644 --- a/deps/gcom/mpl/mpl_comm_rank.F90 +++ b/deps/gcom/mpl/mpl_comm_rank.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Rank () diff --git a/deps/gcom/mpl/mpl_comm_set_errhandler.F90 b/deps/gcom/mpl/mpl_comm_set_errhandler.F90 index b0ce2af4..d9e24bda 100644 --- a/deps/gcom/mpl/mpl_comm_set_errhandler.F90 +++ b/deps/gcom/mpl/mpl_comm_set_errhandler.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Set_Errhandler() diff --git a/deps/gcom/mpl/mpl_comm_size.F90 b/deps/gcom/mpl/mpl_comm_size.F90 index f9efe7e5..091225bf 100644 --- a/deps/gcom/mpl/mpl_comm_size.F90 +++ b/deps/gcom/mpl/mpl_comm_size.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Size () diff --git a/deps/gcom/mpl/mpl_comm_split.F90 b/deps/gcom/mpl/mpl_comm_split.F90 index 1b670bb0..edb5f880 100644 --- a/deps/gcom/mpl/mpl_comm_split.F90 +++ b/deps/gcom/mpl/mpl_comm_split.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Split() diff --git a/deps/gcom/mpl/mpl_comm_split_type.F90 b/deps/gcom/mpl/mpl_comm_split_type.F90 index 34b53765..39e8e2f7 100644 --- a/deps/gcom/mpl/mpl_comm_split_type.F90 +++ b/deps/gcom/mpl/mpl_comm_split_type.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Comm_Split() diff --git a/deps/gcom/mpl/mpl_compare_and_swap.F90 b/deps/gcom/mpl/mpl_compare_and_swap.F90 index 25dc11c0..4da6bbdd 100644 --- a/deps/gcom/mpl/mpl_compare_and_swap.F90 +++ b/deps/gcom/mpl/mpl_compare_and_swap.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Compare_And_Swap() diff --git a/deps/gcom/mpl/mpl_error_class.F90 b/deps/gcom/mpl/mpl_error_class.F90 index 4b0fda5a..cf29ae04 100644 --- a/deps/gcom/mpl/mpl_error_class.F90 +++ b/deps/gcom/mpl/mpl_error_class.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Error_Class() diff --git a/deps/gcom/mpl/mpl_error_string.F90 b/deps/gcom/mpl/mpl_error_string.F90 index 47b0ccf8..ac4c1a6a 100644 --- a/deps/gcom/mpl/mpl_error_string.F90 +++ b/deps/gcom/mpl/mpl_error_string.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Error_String() diff --git a/deps/gcom/mpl/mpl_fetch_and_op.F90 b/deps/gcom/mpl/mpl_fetch_and_op.F90 index 250068e7..0adeef3f 100644 --- a/deps/gcom/mpl/mpl_fetch_and_op.F90 +++ b/deps/gcom/mpl/mpl_fetch_and_op.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Fetch_And_Op() diff --git a/deps/gcom/mpl/mpl_file_close.F90 b/deps/gcom/mpl/mpl_file_close.F90 index 53ef1ebf..00f6418d 100644 --- a/deps/gcom/mpl/mpl_file_close.F90 +++ b/deps/gcom/mpl/mpl_file_close.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_close() diff --git a/deps/gcom/mpl/mpl_file_get_position.F90 b/deps/gcom/mpl/mpl_file_get_position.F90 index 34519d72..98a20633 100644 --- a/deps/gcom/mpl/mpl_file_get_position.F90 +++ b/deps/gcom/mpl/mpl_file_get_position.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_get_position() diff --git a/deps/gcom/mpl/mpl_file_get_size.F90 b/deps/gcom/mpl/mpl_file_get_size.F90 index 026223af..a7d2a98c 100644 --- a/deps/gcom/mpl/mpl_file_get_size.F90 +++ b/deps/gcom/mpl/mpl_file_get_size.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_get_size() diff --git a/deps/gcom/mpl/mpl_file_open.F90 b/deps/gcom/mpl/mpl_file_open.F90 index 94e45aa7..c62885f9 100644 --- a/deps/gcom/mpl/mpl_file_open.F90 +++ b/deps/gcom/mpl/mpl_file_open.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_open() diff --git a/deps/gcom/mpl/mpl_file_read.F90 b/deps/gcom/mpl/mpl_file_read.F90 index b918e604..3f0106c6 100644 --- a/deps/gcom/mpl/mpl_file_read.F90 +++ b/deps/gcom/mpl/mpl_file_read.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_read() diff --git a/deps/gcom/mpl/mpl_file_seek.F90 b/deps/gcom/mpl/mpl_file_seek.F90 index c4cf3624..445a036c 100644 --- a/deps/gcom/mpl/mpl_file_seek.F90 +++ b/deps/gcom/mpl/mpl_file_seek.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_seek() diff --git a/deps/gcom/mpl/mpl_file_set_errhandler.F90 b/deps/gcom/mpl/mpl_file_set_errhandler.F90 index bd3afc31..cff7af7e 100644 --- a/deps/gcom/mpl/mpl_file_set_errhandler.F90 +++ b/deps/gcom/mpl/mpl_file_set_errhandler.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_set_errhandler() diff --git a/deps/gcom/mpl/mpl_file_sync.F90 b/deps/gcom/mpl/mpl_file_sync.F90 index 82ff8c61..72961068 100644 --- a/deps/gcom/mpl/mpl_file_sync.F90 +++ b/deps/gcom/mpl/mpl_file_sync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_sync() diff --git a/deps/gcom/mpl/mpl_file_write.F90 b/deps/gcom/mpl/mpl_file_write.F90 index 93cf10d1..5d75f342 100644 --- a/deps/gcom/mpl/mpl_file_write.F90 +++ b/deps/gcom/mpl/mpl_file_write.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_write() diff --git a/deps/gcom/mpl/mpl_file_write_at_all.F90 b/deps/gcom/mpl/mpl_file_write_at_all.F90 index 23f62e4e..acdffc5f 100644 --- a/deps/gcom/mpl/mpl_file_write_at_all.F90 +++ b/deps/gcom/mpl/mpl_file_write_at_all.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_File_write_at_all() diff --git a/deps/gcom/mpl/mpl_finalize.F90 b/deps/gcom/mpl/mpl_finalize.F90 index 9fde1cc0..b401c434 100644 --- a/deps/gcom/mpl/mpl_finalize.F90 +++ b/deps/gcom/mpl/mpl_finalize.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Finalize () diff --git a/deps/gcom/mpl/mpl_finalized.F90 b/deps/gcom/mpl/mpl_finalized.F90 index 2704c627..43c6fc70 100644 --- a/deps/gcom/mpl/mpl_finalized.F90 +++ b/deps/gcom/mpl/mpl_finalized.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Finalized () diff --git a/deps/gcom/mpl/mpl_gather.F90 b/deps/gcom/mpl/mpl_gather.F90 index 3c032a85..6f85d2e1 100644 --- a/deps/gcom/mpl/mpl_gather.F90 +++ b/deps/gcom/mpl/mpl_gather.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Gather() diff --git a/deps/gcom/mpl/mpl_gatherv.F90 b/deps/gcom/mpl/mpl_gatherv.F90 index e654dcf8..31d42e75 100644 --- a/deps/gcom/mpl/mpl_gatherv.F90 +++ b/deps/gcom/mpl/mpl_gatherv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Gatherv() diff --git a/deps/gcom/mpl/mpl_get.F90 b/deps/gcom/mpl/mpl_get.F90 index dba1252c..be8a7e9a 100644 --- a/deps/gcom/mpl/mpl_get.F90 +++ b/deps/gcom/mpl/mpl_get.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Get() diff --git a/deps/gcom/mpl/mpl_get_count.F90 b/deps/gcom/mpl/mpl_get_count.F90 index 85b0833d..cd612416 100644 --- a/deps/gcom/mpl/mpl_get_count.F90 +++ b/deps/gcom/mpl/mpl_get_count.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Get_count() diff --git a/deps/gcom/mpl/mpl_get_processor_name.F90 b/deps/gcom/mpl/mpl_get_processor_name.F90 index 5308f620..29733406 100644 --- a/deps/gcom/mpl/mpl_get_processor_name.F90 +++ b/deps/gcom/mpl/mpl_get_processor_name.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Get_Processor_Name() diff --git a/deps/gcom/mpl/mpl_group_free.F90 b/deps/gcom/mpl/mpl_group_free.F90 index 386f5638..ba2cfc0b 100644 --- a/deps/gcom/mpl/mpl_group_free.F90 +++ b/deps/gcom/mpl/mpl_group_free.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Group_Free() diff --git a/deps/gcom/mpl/mpl_group_incl.F90 b/deps/gcom/mpl/mpl_group_incl.F90 index 3f638dc8..b0f9b460 100644 --- a/deps/gcom/mpl/mpl_group_incl.F90 +++ b/deps/gcom/mpl/mpl_group_incl.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Group_Incl() diff --git a/deps/gcom/mpl/mpl_group_translate_ranks.F90 b/deps/gcom/mpl/mpl_group_translate_ranks.F90 index c3a728ed..184ba64c 100644 --- a/deps/gcom/mpl/mpl_group_translate_ranks.F90 +++ b/deps/gcom/mpl/mpl_group_translate_ranks.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Group_Translate_Ranks() diff --git a/deps/gcom/mpl/mpl_ibarrier.F90 b/deps/gcom/mpl/mpl_ibarrier.F90 index 6bdbff3d..7ae62df7 100644 --- a/deps/gcom/mpl/mpl_ibarrier.F90 +++ b/deps/gcom/mpl/mpl_ibarrier.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Ibarrier() diff --git a/deps/gcom/mpl/mpl_info_create.F90 b/deps/gcom/mpl/mpl_info_create.F90 index f80f25eb..504b32c5 100644 --- a/deps/gcom/mpl/mpl_info_create.F90 +++ b/deps/gcom/mpl/mpl_info_create.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Info_create() diff --git a/deps/gcom/mpl/mpl_info_free.F90 b/deps/gcom/mpl/mpl_info_free.F90 index 908745f8..20f35dd8 100644 --- a/deps/gcom/mpl/mpl_info_free.F90 +++ b/deps/gcom/mpl/mpl_info_free.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Info_free() diff --git a/deps/gcom/mpl/mpl_info_get.F90 b/deps/gcom/mpl/mpl_info_get.F90 index 5af98489..072feeac 100644 --- a/deps/gcom/mpl/mpl_info_get.F90 +++ b/deps/gcom/mpl/mpl_info_get.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Info_get() diff --git a/deps/gcom/mpl/mpl_info_set.F90 b/deps/gcom/mpl/mpl_info_set.F90 index 2f97f4ef..12fbd437 100644 --- a/deps/gcom/mpl/mpl_info_set.F90 +++ b/deps/gcom/mpl/mpl_info_set.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Info_set() diff --git a/deps/gcom/mpl/mpl_init.F90 b/deps/gcom/mpl/mpl_init.F90 index 25116f7a..4fbe75c3 100644 --- a/deps/gcom/mpl/mpl_init.F90 +++ b/deps/gcom/mpl/mpl_init.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Init () diff --git a/deps/gcom/mpl/mpl_init_thread.F90 b/deps/gcom/mpl/mpl_init_thread.F90 index 0c323f4e..b928ac32 100644 --- a/deps/gcom/mpl/mpl_init_thread.F90 +++ b/deps/gcom/mpl/mpl_init_thread.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine mpl_init_thread() diff --git a/deps/gcom/mpl/mpl_initialized.F90 b/deps/gcom/mpl/mpl_initialized.F90 index 443a4677..0e37a2fd 100644 --- a/deps/gcom/mpl/mpl_initialized.F90 +++ b/deps/gcom/mpl/mpl_initialized.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Initialized () diff --git a/deps/gcom/mpl/mpl_iprobe.F90 b/deps/gcom/mpl/mpl_iprobe.F90 index e453ae0c..98dd8639 100644 --- a/deps/gcom/mpl/mpl_iprobe.F90 +++ b/deps/gcom/mpl/mpl_iprobe.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Iprobe() diff --git a/deps/gcom/mpl/mpl_irecv.F90 b/deps/gcom/mpl/mpl_irecv.F90 index d5413245..c7403667 100644 --- a/deps/gcom/mpl/mpl_irecv.F90 +++ b/deps/gcom/mpl/mpl_irecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Irecv() diff --git a/deps/gcom/mpl/mpl_isend.F90 b/deps/gcom/mpl/mpl_isend.F90 index 471c8c64..798fde5d 100644 --- a/deps/gcom/mpl/mpl_isend.F90 +++ b/deps/gcom/mpl/mpl_isend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Isend() diff --git a/deps/gcom/mpl/mpl_issend.F90 b/deps/gcom/mpl/mpl_issend.F90 index 33861c46..01b58824 100644 --- a/deps/gcom/mpl/mpl_issend.F90 +++ b/deps/gcom/mpl/mpl_issend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Issend() diff --git a/deps/gcom/mpl/mpl_op_create.F90 b/deps/gcom/mpl/mpl_op_create.F90 index 4778f814..57a9853a 100644 --- a/deps/gcom/mpl/mpl_op_create.F90 +++ b/deps/gcom/mpl/mpl_op_create.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Op_Create() diff --git a/deps/gcom/mpl/mpl_pack.F90 b/deps/gcom/mpl/mpl_pack.F90 index bfc8894b..1c6a6ec1 100644 --- a/deps/gcom/mpl/mpl_pack.F90 +++ b/deps/gcom/mpl/mpl_pack.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Pack() diff --git a/deps/gcom/mpl/mpl_pack_size.F90 b/deps/gcom/mpl/mpl_pack_size.F90 index 8f841241..c17a3233 100644 --- a/deps/gcom/mpl/mpl_pack_size.F90 +++ b/deps/gcom/mpl/mpl_pack_size.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Pack_size() diff --git a/deps/gcom/mpl/mpl_probe.F90 b/deps/gcom/mpl/mpl_probe.F90 index 38da6fe4..be9d9129 100644 --- a/deps/gcom/mpl/mpl_probe.F90 +++ b/deps/gcom/mpl/mpl_probe.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Probe() diff --git a/deps/gcom/mpl/mpl_put.F90 b/deps/gcom/mpl/mpl_put.F90 index 8213bfd2..bde18e5f 100644 --- a/deps/gcom/mpl/mpl_put.F90 +++ b/deps/gcom/mpl/mpl_put.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Put() diff --git a/deps/gcom/mpl/mpl_query_thread.F90 b/deps/gcom/mpl/mpl_query_thread.F90 index be5678ee..4e0aa3fb 100644 --- a/deps/gcom/mpl/mpl_query_thread.F90 +++ b/deps/gcom/mpl/mpl_query_thread.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine mpl_query_thread() diff --git a/deps/gcom/mpl/mpl_recv.F90 b/deps/gcom/mpl/mpl_recv.F90 index f0c06ff1..1583bb48 100644 --- a/deps/gcom/mpl/mpl_recv.F90 +++ b/deps/gcom/mpl/mpl_recv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Recv() diff --git a/deps/gcom/mpl/mpl_reduce.F90 b/deps/gcom/mpl/mpl_reduce.F90 index 589a9297..305dd57d 100644 --- a/deps/gcom/mpl/mpl_reduce.F90 +++ b/deps/gcom/mpl/mpl_reduce.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Reduce() diff --git a/deps/gcom/mpl/mpl_rget.F90 b/deps/gcom/mpl/mpl_rget.F90 index 4c0932b9..e0aa1522 100644 --- a/deps/gcom/mpl/mpl_rget.F90 +++ b/deps/gcom/mpl/mpl_rget.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_RGet() diff --git a/deps/gcom/mpl/mpl_rput.F90 b/deps/gcom/mpl/mpl_rput.F90 index cfa222fa..7391fdb5 100644 --- a/deps/gcom/mpl/mpl_rput.F90 +++ b/deps/gcom/mpl/mpl_rput.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Put() diff --git a/deps/gcom/mpl/mpl_scatterv.F90 b/deps/gcom/mpl/mpl_scatterv.F90 index 9de8fadd..7c35fcca 100644 --- a/deps/gcom/mpl/mpl_scatterv.F90 +++ b/deps/gcom/mpl/mpl_scatterv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Scatterv() diff --git a/deps/gcom/mpl/mpl_send.F90 b/deps/gcom/mpl/mpl_send.F90 index 5a5802c9..e437e706 100644 --- a/deps/gcom/mpl/mpl_send.F90 +++ b/deps/gcom/mpl/mpl_send.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Send() diff --git a/deps/gcom/mpl/mpl_sendrecv.F90 b/deps/gcom/mpl/mpl_sendrecv.F90 index dc6f49f6..fdb28b61 100644 --- a/deps/gcom/mpl/mpl_sendrecv.F90 +++ b/deps/gcom/mpl/mpl_sendrecv.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Sendrecv() diff --git a/deps/gcom/mpl/mpl_ssend.F90 b/deps/gcom/mpl/mpl_ssend.F90 index 6e117962..978910f9 100644 --- a/deps/gcom/mpl/mpl_ssend.F90 +++ b/deps/gcom/mpl/mpl_ssend.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Ssend() diff --git a/deps/gcom/mpl/mpl_test.F90 b/deps/gcom/mpl/mpl_test.F90 index 73a695f7..5c5a850a 100644 --- a/deps/gcom/mpl/mpl_test.F90 +++ b/deps/gcom/mpl/mpl_test.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Test() diff --git a/deps/gcom/mpl/mpl_testall.F90 b/deps/gcom/mpl/mpl_testall.F90 index 5c87c8b7..2ec9b748 100644 --- a/deps/gcom/mpl/mpl_testall.F90 +++ b/deps/gcom/mpl/mpl_testall.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Testall() diff --git a/deps/gcom/mpl/mpl_type_commit.F90 b/deps/gcom/mpl/mpl_type_commit.F90 index fad9b0e4..6c543b76 100644 --- a/deps/gcom/mpl/mpl_type_commit.F90 +++ b/deps/gcom/mpl/mpl_type_commit.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Commit() diff --git a/deps/gcom/mpl/mpl_type_create_resized.F90 b/deps/gcom/mpl/mpl_type_create_resized.F90 index c592e4ab..6b716271 100644 --- a/deps/gcom/mpl/mpl_type_create_resized.F90 +++ b/deps/gcom/mpl/mpl_type_create_resized.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Create_Resized() diff --git a/deps/gcom/mpl/mpl_type_create_struct.F90 b/deps/gcom/mpl/mpl_type_create_struct.F90 index 80f9fa58..b55b1949 100644 --- a/deps/gcom/mpl/mpl_type_create_struct.F90 +++ b/deps/gcom/mpl/mpl_type_create_struct.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Create_Struct() diff --git a/deps/gcom/mpl/mpl_type_extent.F90 b/deps/gcom/mpl/mpl_type_extent.F90 index ca4959d6..25396cfb 100644 --- a/deps/gcom/mpl/mpl_type_extent.F90 +++ b/deps/gcom/mpl/mpl_type_extent.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Extent() diff --git a/deps/gcom/mpl/mpl_type_free.F90 b/deps/gcom/mpl/mpl_type_free.F90 index 6f0424bf..99c987f1 100644 --- a/deps/gcom/mpl/mpl_type_free.F90 +++ b/deps/gcom/mpl/mpl_type_free.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Free() diff --git a/deps/gcom/mpl/mpl_type_get_extent.F90 b/deps/gcom/mpl/mpl_type_get_extent.F90 index 7d4f7d05..8f25760f 100644 --- a/deps/gcom/mpl/mpl_type_get_extent.F90 +++ b/deps/gcom/mpl/mpl_type_get_extent.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Get_Extent() diff --git a/deps/gcom/mpl/mpl_type_struct.F90 b/deps/gcom/mpl/mpl_type_struct.F90 index ed6f84ea..efd497c0 100644 --- a/deps/gcom/mpl/mpl_type_struct.F90 +++ b/deps/gcom/mpl/mpl_type_struct.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Struct() diff --git a/deps/gcom/mpl/mpl_type_vector.F90 b/deps/gcom/mpl/mpl_type_vector.F90 index 68cd6a10..d08ce89e 100644 --- a/deps/gcom/mpl/mpl_type_vector.F90 +++ b/deps/gcom/mpl/mpl_type_vector.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Type_Vector() diff --git a/deps/gcom/mpl/mpl_unpack.F90 b/deps/gcom/mpl/mpl_unpack.F90 index 08c02cfe..5d4e1657 100644 --- a/deps/gcom/mpl/mpl_unpack.F90 +++ b/deps/gcom/mpl/mpl_unpack.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Unpack() diff --git a/deps/gcom/mpl/mpl_wait.F90 b/deps/gcom/mpl/mpl_wait.F90 index ef2e5c44..dea8c7ee 100644 --- a/deps/gcom/mpl/mpl_wait.F90 +++ b/deps/gcom/mpl/mpl_wait.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Wait() diff --git a/deps/gcom/mpl/mpl_waitall.F90 b/deps/gcom/mpl/mpl_waitall.F90 index d259f741..50bff051 100644 --- a/deps/gcom/mpl/mpl_waitall.F90 +++ b/deps/gcom/mpl/mpl_waitall.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Waitall() diff --git a/deps/gcom/mpl/mpl_waitany.F90 b/deps/gcom/mpl/mpl_waitany.F90 index 12fefc5d..ca408fac 100644 --- a/deps/gcom/mpl/mpl_waitany.F90 +++ b/deps/gcom/mpl/mpl_waitany.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Waitany() diff --git a/deps/gcom/mpl/mpl_win_allocate.F90 b/deps/gcom/mpl/mpl_win_allocate.F90 index e84f6f1f..a700d3c3 100644 --- a/deps/gcom/mpl/mpl_win_allocate.F90 +++ b/deps/gcom/mpl/mpl_win_allocate.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Allocate() diff --git a/deps/gcom/mpl/mpl_win_allocate_shared.F90 b/deps/gcom/mpl/mpl_win_allocate_shared.F90 index 77190c82..2098d0e2 100644 --- a/deps/gcom/mpl/mpl_win_allocate_shared.F90 +++ b/deps/gcom/mpl/mpl_win_allocate_shared.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Allocate_Shared() diff --git a/deps/gcom/mpl/mpl_win_create.F90 b/deps/gcom/mpl/mpl_win_create.F90 index 93971bdd..a1677d6e 100644 --- a/deps/gcom/mpl/mpl_win_create.F90 +++ b/deps/gcom/mpl/mpl_win_create.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Create() diff --git a/deps/gcom/mpl/mpl_win_fence.F90 b/deps/gcom/mpl/mpl_win_fence.F90 index 33164ba2..b7c4036e 100644 --- a/deps/gcom/mpl/mpl_win_fence.F90 +++ b/deps/gcom/mpl/mpl_win_fence.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Fence() diff --git a/deps/gcom/mpl/mpl_win_flush.F90 b/deps/gcom/mpl/mpl_win_flush.F90 index e8e1f0f1..852c5eb1 100644 --- a/deps/gcom/mpl/mpl_win_flush.F90 +++ b/deps/gcom/mpl/mpl_win_flush.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Flush() diff --git a/deps/gcom/mpl/mpl_win_flush_all.F90 b/deps/gcom/mpl/mpl_win_flush_all.F90 index 44ed3380..bb89f45d 100644 --- a/deps/gcom/mpl/mpl_win_flush_all.F90 +++ b/deps/gcom/mpl/mpl_win_flush_all.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Flush_All() diff --git a/deps/gcom/mpl/mpl_win_flush_local.F90 b/deps/gcom/mpl/mpl_win_flush_local.F90 index a6557edd..3402e278 100644 --- a/deps/gcom/mpl/mpl_win_flush_local.F90 +++ b/deps/gcom/mpl/mpl_win_flush_local.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Flush_Local() diff --git a/deps/gcom/mpl/mpl_win_flush_local_all.F90 b/deps/gcom/mpl/mpl_win_flush_local_all.F90 index 019d93de..2a402c6b 100644 --- a/deps/gcom/mpl/mpl_win_flush_local_all.F90 +++ b/deps/gcom/mpl/mpl_win_flush_local_all.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Flush_Local_All() diff --git a/deps/gcom/mpl/mpl_win_free.F90 b/deps/gcom/mpl/mpl_win_free.F90 index b6cfe7b6..8ebb9596 100644 --- a/deps/gcom/mpl/mpl_win_free.F90 +++ b/deps/gcom/mpl/mpl_win_free.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Free() diff --git a/deps/gcom/mpl/mpl_win_lock.F90 b/deps/gcom/mpl/mpl_win_lock.F90 index 680b2b10..234acb4e 100644 --- a/deps/gcom/mpl/mpl_win_lock.F90 +++ b/deps/gcom/mpl/mpl_win_lock.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Lock() diff --git a/deps/gcom/mpl/mpl_win_lock_all.F90 b/deps/gcom/mpl/mpl_win_lock_all.F90 index b4455f0e..adeaaba4 100644 --- a/deps/gcom/mpl/mpl_win_lock_all.F90 +++ b/deps/gcom/mpl/mpl_win_lock_all.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Lock_All() diff --git a/deps/gcom/mpl/mpl_win_shared_query.F90 b/deps/gcom/mpl/mpl_win_shared_query.F90 index c0a08019..63ec7ed0 100644 --- a/deps/gcom/mpl/mpl_win_shared_query.F90 +++ b/deps/gcom/mpl/mpl_win_shared_query.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Shared_Query() diff --git a/deps/gcom/mpl/mpl_win_sync.F90 b/deps/gcom/mpl/mpl_win_sync.F90 index 30b92a9a..58fcc80a 100644 --- a/deps/gcom/mpl/mpl_win_sync.F90 +++ b/deps/gcom/mpl/mpl_win_sync.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Sync() diff --git a/deps/gcom/mpl/mpl_win_unlock.F90 b/deps/gcom/mpl/mpl_win_unlock.F90 index 003de4fe..53ad0495 100644 --- a/deps/gcom/mpl/mpl_win_unlock.F90 +++ b/deps/gcom/mpl/mpl_win_unlock.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Unlock() diff --git a/deps/gcom/mpl/mpl_win_unlock_all.F90 b/deps/gcom/mpl/mpl_win_unlock_all.F90 index 4bc52ec7..3d84865a 100644 --- a/deps/gcom/mpl/mpl_win_unlock_all.F90 +++ b/deps/gcom/mpl/mpl_win_unlock_all.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Subroutine MPL_Win_Unock_All() diff --git a/deps/gcom/mpl/mpl_wtime.F90 b/deps/gcom/mpl/mpl_wtime.F90 index fee03cda..dee731a4 100644 --- a/deps/gcom/mpl/mpl_wtime.F90 +++ b/deps/gcom/mpl/mpl_wtime.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file Copyright -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! Function MPL_Wtime() diff --git a/deps/odb/CMakeLists.txt b/deps/odb/CMakeLists.txt index a977dd69..5dc41af9 100644 --- a/deps/odb/CMakeLists.txt +++ b/deps/odb/CMakeLists.txt @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# + if("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") set(ODB_EXTRA_Fortran_FLAGS "-Wno-unused-dummy-argument -Wno-unused") elseif("${CMAKE_Fortran_COMPILER_ID}" MATCHES "Intel") diff --git a/deps/ops/CMakeLists.txt b/deps/ops/CMakeLists.txt index 4e872052..e61f51a1 100644 --- a/deps/ops/CMakeLists.txt +++ b/deps/ops/CMakeLists.txt @@ -1,3 +1,6 @@ +# (C) Crown Copyright 2021, the Met Office. All rights reserved. +# + if("${CMAKE_Fortran_COMPILER_ID}" MATCHES "GNU") if("${CMAKE_Fortran_COMPILER_VERSION}" VERSION_GREATER "10.1.0") set(OPS_EXTRA_Fortran_FLAGS "-std=f2003 -fallow-argument-mismatch") diff --git a/deps/ops/code/GenMod_ModelIO/GenMod_ModelIO.F90 b/deps/ops/code/GenMod_ModelIO/GenMod_ModelIO.F90 index dadd616b..31e6b635 100755 --- a/deps/ops/code/GenMod_ModelIO/GenMod_ModelIO.F90 +++ b/deps/ops/code/GenMod_ModelIO/GenMod_ModelIO.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! UM header type declaration. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Gen_AllocUMhdr.inc b/deps/ops/code/GenMod_ModelIO/Gen_AllocUMhdr.inc index 1a959ea8..2872878d 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_AllocUMhdr.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_AllocUMhdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocate space for a header from a UM dump. ! Extract and set lengths of all arrays, then ALLOCATE the arrays. diff --git a/deps/ops/code/GenMod_ModelIO/Gen_CalcMaxFldSize.inc b/deps/ops/code/GenMod_ModelIO/Gen_CalcMaxFldSize.inc index d5b3341a..ad0cf4bb 100644 --- a/deps/ops/code/GenMod_ModelIO/Gen_CalcMaxFldSize.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_CalcMaxFldSize.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Find number of fields in dump and maximum unpacked field size. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Gen_DeallocUMhdr.inc b/deps/ops/code/GenMod_ModelIO/Gen_DeallocUMhdr.inc index e868a7ed..057b9413 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_DeallocUMhdr.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_DeallocUMhdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate space used by a UM dump header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Gen_ReadField.inc b/deps/ops/code/GenMod_ModelIO/Gen_ReadField.inc index 847306a5..25feabe1 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_ReadField.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_ReadField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads in one field from file on unit hdr % UnitNum, ! starting at field number field. The data is returned diff --git a/deps/ops/code/GenMod_ModelIO/Gen_ReadUMhdr.inc b/deps/ops/code/GenMod_ModelIO/Gen_ReadUMhdr.inc index 052c620b..fb05e815 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_ReadUMhdr.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_ReadUMhdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read in a model header from a UM dump. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Gen_SpreadUMhdr.inc b/deps/ops/code/GenMod_ModelIO/Gen_SpreadUMhdr.inc index 60c78ac7..44c31b95 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_SpreadUMhdr.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_SpreadUMhdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spread a model header from a UM dump between processors. ! Broadcast all parts from a given source PE to all others. diff --git a/deps/ops/code/GenMod_ModelIO/Gen_WriteField.inc b/deps/ops/code/GenMod_ModelIO/Gen_WriteField.inc index 86cac90d..ec671adb 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_WriteField.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_WriteField.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Writes out one field from file on unit hdr % UnitNum, starting at ! field number field. diff --git a/deps/ops/code/GenMod_ModelIO/Gen_WriteUMhdr.inc b/deps/ops/code/GenMod_ModelIO/Gen_WriteUMhdr.inc index a81a7c1b..9b7166dc 100755 --- a/deps/ops/code/GenMod_ModelIO/Gen_WriteUMhdr.inc +++ b/deps/ops/code/GenMod_ModelIO/Gen_WriteUMhdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Write out a model header to a UM dump. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Ops_CheckLookup.inc b/deps/ops/code/GenMod_ModelIO/Ops_CheckLookup.inc index 6a959275..f5e8c72c 100755 --- a/deps/ops/code/GenMod_ModelIO/Ops_CheckLookup.inc +++ b/deps/ops/code/GenMod_ModelIO/Ops_CheckLookup.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Cross checks pointers in PP LOOKUP records with model parameters !----------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Ops_PrintLookup.inc b/deps/ops/code/GenMod_ModelIO/Ops_PrintLookup.inc index 31b126a7..a8d24557 100755 --- a/deps/ops/code/GenMod_ModelIO/Ops_PrintLookup.inc +++ b/deps/ops/code/GenMod_ModelIO/Ops_PrintLookup.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Prints out Kth 64-word PP header !----------------------------------------------------------------------- diff --git a/deps/ops/code/GenMod_ModelIO/Ops_SetDumpfileAddress.inc b/deps/ops/code/GenMod_ModelIO/Ops_SetDumpfileAddress.inc index b0ec0737..8e716f6f 100755 --- a/deps/ops/code/GenMod_ModelIO/Ops_SetDumpfileAddress.inc +++ b/deps/ops/code/GenMod_ModelIO/Ops_SetDumpfileAddress.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! To set the LBEGIN and LBNREC fields in the LOOKUP Headers for VN 16 ! Type Dumpfiles - addressed by location and length which are rounded up diff --git a/deps/ops/code/OpsMod_AirQuality/OpsMod_AirQuality.f90 b/deps/ops/code/OpsMod_AirQuality/OpsMod_AirQuality.f90 index e0c6451b..09de00cc 100644 --- a/deps/ops/code/OpsMod_AirQuality/OpsMod_AirQuality.f90 +++ b/deps/ops/code/OpsMod_AirQuality/OpsMod_AirQuality.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module variables and procedures used for air quality processing. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_AirQuality/Ops_ReadSiteQuality.inc b/deps/ops/code/OpsMod_AirQuality/Ops_ReadSiteQuality.inc index 0be6b26a..b3f5652e 100644 --- a/deps/ops/code/OpsMod_AirQuality/Ops_ReadSiteQuality.inc +++ b/deps/ops/code/OpsMod_AirQuality/Ops_ReadSiteQuality.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads a AIRQAL site quality data. ! diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument.f90 b/deps/ops/code/OpsMod_Argument/OpsMod_Argument.f90 index 5d737878..9fe66127 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument.f90 +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Utility module for handling command line arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_character.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_character.inc index b9a7712e..c1779345 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_character.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_character.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Add an integer argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer.inc index adeb1a8f..db4accff 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Add an integer argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer_array.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer_array.inc index 22dc0420..043e2947 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer_array.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_integer_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Add an integer list argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_logical.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_logical.inc index b9db9d9b..6b8c111d 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_logical.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_add_arg_logical.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Add a real argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_character.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_character.inc index a9f5fbff..4c80550a 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_character.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_character.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve a character argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer.inc index 4920c33f..ecb434ae 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve an integer argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer_list.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer_list.inc index e8240fc5..90ced980 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer_list.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_integer_list.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve an integer list argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_logical.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_logical.inc index 9ff4d482..3aaf28fa 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_logical.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_logical.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve a logical argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_real.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_real.inc index d6ad3c0e..6c6277de 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_real.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_get_arg_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve a real argument. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_process_command_line.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_process_command_line.inc index fa3aa272..65f1520f 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_process_command_line.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_process_command_line.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Examine the command line and set up the args structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_usage.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_usage.inc index 3dceea9f..2b188ed8 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_usage.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_usage.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Print usage text based on arguments definitions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_was_set.inc b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_was_set.inc index 10282584..2f172416 100644 --- a/deps/ops/code/OpsMod_Argument/OpsMod_Argument_was_set.inc +++ b/deps/ops/code/OpsMod_Argument/OpsMod_Argument_was_set.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Test if argument was actually set. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Argument/Ops_ConvertCommandLineList.inc b/deps/ops/code/OpsMod_Argument/Ops_ConvertCommandLineList.inc index 4633024a..97bd7584 100644 --- a/deps/ops/code/OpsMod_Argument/Ops_ConvertCommandLineList.inc +++ b/deps/ops/code/OpsMod_Argument/Ops_ConvertCommandLineList.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts a list of numbers specified in a command line to a simple array of ! numbers. Handles comma separated values and ranges, e.g. a-b -> a,...,b. diff --git a/deps/ops/code/OpsMod_Argument/Ops_GetCommandLine.inc b/deps/ops/code/OpsMod_Argument/Ops_GetCommandLine.inc index ad045f90..5fcc0959 100644 --- a/deps/ops/code/OpsMod_Argument/Ops_GetCommandLine.inc +++ b/deps/ops/code/OpsMod_Argument/Ops_GetCommandLine.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Get the command line arguments as a single string. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/OpsMod_CXGenerate.f90 b/deps/ops/code/OpsMod_CXGenerate/OpsMod_CXGenerate.f90 index 39e30d36..660b5a15 100644 --- a/deps/ops/code/OpsMod_CXGenerate/OpsMod_CXGenerate.f90 +++ b/deps/ops/code/OpsMod_CXGenerate/OpsMod_CXGenerate.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains shared variables required for cx generation !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldDataShared.f90 b/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldDataShared.f90 index 755d5cbe..43ada906 100644 --- a/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldDataShared.f90 +++ b/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldDataShared.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains shared_memory object for storeing the enitire model field. It has ! the SAVE attribute so that it remians in memory until it destroyed. diff --git a/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldRead.f90 b/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldRead.f90 index f719b3c7..b6221c76 100644 --- a/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldRead.f90 +++ b/deps/ops/code/OpsMod_CXGenerate/OpsMod_FieldRead.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains Ops_ReadUMField and a few helper routines. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/OpsMod_SharedMemory.f90 b/deps/ops/code/OpsMod_CXGenerate/OpsMod_SharedMemory.f90 index 3d980316..13faaab2 100644 --- a/deps/ops/code/OpsMod_CXGenerate/OpsMod_SharedMemory.f90 +++ b/deps/ops/code/OpsMod_CXGenerate/OpsMod_SharedMemory.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! SharedMemory_type and type bound procedures. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEAndCxCreateFromNetCDF.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEAndCxCreateFromNetCDF.inc index b17ba080..0def3d46 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEAndCxCreateFromNetCDF.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEAndCxCreateFromNetCDF.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Top level routine to read either the BG or BGE from ocean NetCDF files, ! perform horizontal and time interpolation of a UM dump, fill an array of CX diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEComplete.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEComplete.inc index d93a66f5..fd524d7e 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEComplete.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEComplete.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This routine completes the back ground error set up code left outstanding by ! the routines belonging to the generic UM reading module OpsMod_CXGenerate. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEandCxCreate.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEandCxCreate.inc index e2f9e504..4fa07a2b 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_BGEandCxCreate.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_BGEandCxCreate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Top level routine to read either the BG or BGE from a UM dump, perform ! horizontal and time interpolation of a UM dump, fill an array of CX structures diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXAddField.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXAddField.inc index 6626acb0..003feb79 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXAddField.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXAddField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up fields information and cx arrays information in parent subroutine ! (Ops_CXSetupArrays) diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXGenerate.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXGenerate.inc index eecdb496..24e2f77c 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXGenerate.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXGenerate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Perform horizontal and time interpolation of a UM dump to fill an array of CX ! structures. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXPerformInterp.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXPerformInterp.inc index 90eabf6e..2c425e39 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXPerformInterp.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXPerformInterp.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Called by Ops_CXGenerate to perform horizontal and time interpolation. Each ! level of each field is read in from the dump in turn, at all forecast periods. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXPreproLocations.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXPreproLocations.inc index 7003eabb..31321a0d 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXPreproLocations.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXPreproLocations.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Called by Ops_CXGenerate to preprocess the observation locations and times for ! each observation group. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetup.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetup.inc index 9ccecba1..b0e8d5ca 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetup.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This routine performs some initial setup of the CX creation step. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArrays.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArrays.inc index 5bf856f0..91044bab 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArrays.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArrays.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Called by Ops_CXGenerate to set up both the FieldsInfo and CxArrays arrays. ! Also allocates arrays in the Cx structure. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArraysAncil.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArraysAncil.inc index 83245a5c..ae9b488a 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArraysAncil.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSetupArraysAncil.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Called by Ops_CXGenerate to set up both the FieldsInfo and CxArrays arrays. ! Also allocates arrays in the Cx structure. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSlantPressure.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSlantPressure.inc index 88d4bbdb..8bf4268d 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CXSlantPressure.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CXSlantPressure.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculate slanted CX column positions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CalcTLapse.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CalcTLapse.inc index 8859bbb4..f82b7702 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CalcTLapse.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CalcTLapse.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculate the near surface temperature lapse rate, by performing a linear ! regression analysis of level k temperature against height. diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CreateCxUMHdr.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CreateCxUMHdr.inc index 327c67e6..75f042c5 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CreateCxUMHdr.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CreateCxUMHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Creates a basic UM header to the start of each Cx file. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_CxComplete.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_CxComplete.inc index 8f051cfb..ff5a0318 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_CxComplete.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_CxComplete.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This routine completes the remaining details that are needed to complete the ! ModelColumn information diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_DeriveField.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_DeriveField.inc index 3c516836..080b9afc 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_DeriveField.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_DeriveField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates derived fields from other UM dump fields. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_FinalFieldDataShared.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_FinalFieldDataShared.inc index 94a7489e..40668d64 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_FinalFieldDataShared.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_FinalFieldDataShared.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate the model state. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultBgerrFields.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultBgerrFields.inc index 5381ac91..a39e88a8 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultBgerrFields.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultBgerrFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set default BgerrFields for an obsgroup. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultCxFields.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultCxFields.inc index 93c94101..efc14786 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultCxFields.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_GetDefaultCxFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set default CxFields for an obsgroup. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_GetReqDims.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_GetReqDims.inc index d4253e5e..07f23d24 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_GetReqDims.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_GetReqDims.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Get the dimensions of the shared memory. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldAvailable.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldAvailable.inc index 93dfa9b5..58c4119e 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldAvailable.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldAvailable.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gets the availability of the current field ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldDims.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldDims.inc index 5568309b..e5b370a0 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldDims.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_GetUMFieldDims.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gets the dimensions from one level of one field from a UM dump ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_InitFieldDataShared.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_InitFieldDataShared.inc index 540bc4a6..7e19fbd1 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_InitFieldDataShared.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_InitFieldDataShared.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialise and read the model state into memory ! Inputs: diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_LocateUMField.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_LocateUMField.inc index 7eabeb35..befe4f12 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_LocateUMField.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_LocateUMField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Locates a UM field in a UM dump. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadCXControlNL.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadCXControlNL.inc index 4ce941b4..9c1ebbb6 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadCXControlNL.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadCXControlNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads a CX control file NAMELIST. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadFieldsControlNL.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadFieldsControlNL.inc index 685233cb..5176e539 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadFieldsControlNL.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadFieldsControlNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads a fields control namelist. The relevant information is read using a ! namelist read. If a problem is encountered a flag is raised and a report diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadModelShared.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadModelShared.inc index 9e9b425a..348c4c56 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadModelShared.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadModelShared.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read the data into the shared memory. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadUMField.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadUMField.inc index 369261bc..89e433aa 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_ReadUMField.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_ReadUMField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads one level of one field from a UM dump into a 2-d array. ! diff --git a/deps/ops/code/OpsMod_CXGenerate/Ops_UncompressDump.inc b/deps/ops/code/OpsMod_CXGenerate/Ops_UncompressDump.inc index 56615ea5..575a6f40 100644 --- a/deps/ops/code/OpsMod_CXGenerate/Ops_UncompressDump.inc +++ b/deps/ops/code/OpsMod_CXGenerate/Ops_UncompressDump.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Does something with ocean dumps. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/OpsMod_CXInfo.f90 b/deps/ops/code/OpsMod_CXInfo/OpsMod_CXInfo.f90 index e7ef1b7a..857e56f9 100644 --- a/deps/ops/code/OpsMod_CXInfo/OpsMod_CXInfo.f90 +++ b/deps/ops/code/OpsMod_CXInfo/OpsMod_CXInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module contains: ! diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXDeAllocate.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXDeAllocate.inc index 3e373ff2..d643f84f 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXDeAllocate.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXDeAllocate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate space for CX (ModelColumn) !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXExnerB.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXExnerB.inc index 4964bfb0..2f21cfa5 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXExnerB.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXExnerB.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates and calculates pressure on B levels in the CX structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXGlobalAction.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXGlobalAction.inc index 7b3036d3..16c74811 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXGlobalAction.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXGlobalAction.inc @@ -1,7 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT.txt -! which you should have received as part of this distribution. !------------------------------------------------------------------------------- ! Performs action defined by ActionArg on all array elements of CX. Calls ! Ops_ObsAction for every array element. diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXInit.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXInit.inc index 9ce32402..001adbcb 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXInit.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXInit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialise a CX structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXP.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXP.inc index 38d036b7..4be3fc9b 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXP.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXP.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------ ! Calculates CX pressures, for both old and new dynamics. ! diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXPrint.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXPrint.inc index effdb691..aab41880 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXPrint.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXPrint.inc @@ -1,7 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT.txt -! which you should have received as part of this distribution. !------------------------------------------------------------------------------- ! Print selected columns from a CX structure for all non-absent data files. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXQ.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXQ.inc index 8f1ee162..65ddbdef 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXQ.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXQ.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates CX Q from RH, if necessary and possible. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXRH.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXRH.inc index fc85af1e..94521f5e 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXRH.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXRH.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates CX RH from Q, if necessary and possible !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXT.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXT.inc index 1fbbefcb..34e48f89 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXT.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXT.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates CX temperatures from theta !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_CXInfo/Ops_CXZND.inc b/deps/ops/code/OpsMod_CXInfo/Ops_CXZND.inc index df916202..18d5f4d6 100644 --- a/deps/ops/code/OpsMod_CXInfo/Ops_CXZND.inc +++ b/deps/ops/code/OpsMod_CXInfo/Ops_CXZND.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! New dynamics routine. ! Calculates Rho (A) and Theta (B) level heights diff --git a/deps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc b/deps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc index ae5661e2..a1bb2c8a 100644 --- a/deps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc +++ b/deps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts a model run string (QU etc) to a string for use by monitoring. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Control/OpsMod_Control.f90 b/deps/ops/code/OpsMod_Control/OpsMod_Control.f90 index de161dd5..0646159c 100644 --- a/deps/ops/code/OpsMod_Control/OpsMod_Control.f90 +++ b/deps/ops/code/OpsMod_Control/OpsMod_Control.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains the namelists and routines required for the control of OPS programs. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Control/Ops_GetModelType.inc b/deps/ops/code/OpsMod_Control/Ops_GetModelType.inc index 64d77a0e..54b491e0 100644 --- a/deps/ops/code/OpsMod_Control/Ops_GetModelType.inc +++ b/deps/ops/code/OpsMod_Control/Ops_GetModelType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the OPS_MODELTYPE environment variable and returns the value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Control/Ops_InitMPI.inc b/deps/ops/code/OpsMod_Control/Ops_InitMPI.inc index 1e498ffb..56cb574f 100644 --- a/deps/ops/code/OpsMod_Control/Ops_InitMPI.inc +++ b/deps/ops/code/OpsMod_Control/Ops_InitMPI.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Basic initialisation of MPI for OPS. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Control/Ops_ReadCycleTime.inc b/deps/ops/code/OpsMod_Control/Ops_ReadCycleTime.inc index 17c938f0..3d90592d 100644 --- a/deps/ops/code/OpsMod_Control/Ops_ReadCycleTime.inc +++ b/deps/ops/code/OpsMod_Control/Ops_ReadCycleTime.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the cycle time and run id from the environment variables OPS_CYCLE_TIME ! and OPS_RUNID respectively. OPS_RUNID is optional, OPS_CYCLE_TIME is diff --git a/deps/ops/code/OpsMod_Control/Ops_ReadObsGroupSwitches.inc b/deps/ops/code/OpsMod_Control/Ops_ReadObsGroupSwitches.inc index ea073249..adf4a139 100644 --- a/deps/ops/code/OpsMod_Control/Ops_ReadObsGroupSwitches.inc +++ b/deps/ops/code/OpsMod_Control/Ops_ReadObsGroupSwitches.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the operator switches which determine the observation groups to process. ! The operator switches are obtained by a series of calls to ops_env_is_true diff --git a/deps/ops/code/OpsMod_Control/Ops_ReadOutputSwitches.inc b/deps/ops/code/OpsMod_Control/Ops_ReadOutputSwitches.inc index 95a4d1ac..8b2a5c18 100644 --- a/deps/ops/code/OpsMod_Control/Ops_ReadOutputSwitches.inc +++ b/deps/ops/code/OpsMod_Control/Ops_ReadOutputSwitches.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the operator switches which determine the output files to produce. The ! operator switches are obtained by a series of calls to ops_env_is_true which diff --git a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_Create.inc b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_Create.inc index a57627cc..20ef1d49 100644 --- a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_Create.inc +++ b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_Create.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns a specified time as a DateTime_type value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_ToMinUTC.inc b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_ToMinUTC.inc index 449cda36..8fee4538 100755 --- a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_ToMinUTC.inc +++ b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_ToMinUTC.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns time in "Minutes UTC", i.e. minutes since 00:00Z 1/1/1970 ! given input date in the form of yyyy/mm/dd/hh/min diff --git a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_now.inc b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_now.inc index 3fd4b23a..1ac05e46 100644 --- a/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_now.inc +++ b/deps/ops/code/OpsMod_DateTime/OpsFn_DateTime_now.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns time now as a DateTime_type value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_DateTime/OpsMod_DateTime.f90 b/deps/ops/code/OpsMod_DateTime/OpsMod_DateTime.f90 index ad52265a..14755705 100644 --- a/deps/ops/code/OpsMod_DateTime/OpsMod_DateTime.f90 +++ b/deps/ops/code/OpsMod_DateTime/OpsMod_DateTime.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module DateTime_type and related constants and procedures. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_DateTime/Ops_DateTime_New.inc b/deps/ops/code/OpsMod_DateTime/Ops_DateTime_New.inc index 75bd27e7..91ae763b 100644 --- a/deps/ops/code/OpsMod_DateTime/Ops_DateTime_New.inc +++ b/deps/ops/code/OpsMod_DateTime/Ops_DateTime_New.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Constructs a new DateTime_type. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/OpsMod_GatherSpread.F90 b/deps/ops/code/OpsMod_GatherSpread/OpsMod_GatherSpread.F90 index 20063890..0781c785 100644 --- a/deps/ops/code/OpsMod_GatherSpread/OpsMod_GatherSpread.F90 +++ b/deps/ops/code/OpsMod_GatherSpread/OpsMod_GatherSpread.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Interfaces for some MPP obs utilities. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherChar1D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherChar1D.inc index 58733c53..56f9bbfc 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherChar1D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherChar1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gather character date from PEs. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger1D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger1D.inc index e858cebc..93976224 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger1D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gathers an integer 1D array from all PE's to all PE's. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger2D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger2D.inc index de3b1676..fa9efe10 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger2D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherInteger2D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gathers an integer 2D array from all PE's to all PE's. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal1D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal1D.inc index a65e759f..074b2391 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal1D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gathers a real 1D array from all PE's to all PE's. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal2D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal2D.inc index 29380040..56aeca00 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal2D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_GatherReal2D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Gathers a real 2D array from all PE's to all PE's. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger1D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger1D.inc index fc8a7520..6f94241d 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger1D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spreads a 1d array of integers in an ob type structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger2D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger2D.inc index dbf1bf7d..10d31000 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger2D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadInteger2D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spreads a 2d array of integers in an ob type structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal1D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal1D.inc index df0d382a..d1b5fa46 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal1D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spreads a 1d array of integers in an ob type structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal2D.inc b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal2D.inc index afbb404c..c34d9887 100644 --- a/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal2D.inc +++ b/deps/ops/code/OpsMod_GatherSpread/Ops_SpreadReal2D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spreads a 1d array of integers in an ob type structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_Apply2DOceanWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_Apply2DOceanWeights.inc index 98f8a9d0..c0c9bc27 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_Apply2DOceanWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_Apply2DOceanWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Application of the horizontal interpolation weights. ! diff --git a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplyProfileOceanWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplyProfileOceanWeights.inc index 5bd824e3..9689d0b2 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplyProfileOceanWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplyProfileOceanWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Application of the horizontal interpolation weights. ! diff --git a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplySurfaceOceanWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplySurfaceOceanWeights.inc index 99113c1a..d90cc1c8 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplySurfaceOceanWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/OpsFn_ApplySurfaceOceanWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Application of the horizontal interpolation weights. ! diff --git a/deps/ops/code/OpsMod_HorizontalInterp/OpsMod_HorizontalInterp.f90 b/deps/ops/code/OpsMod_HorizontalInterp/OpsMod_HorizontalInterp.f90 index 249c313f..a73d0e85 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/OpsMod_HorizontalInterp.f90 +++ b/deps/ops/code/OpsMod_HorizontalInterp/OpsMod_HorizontalInterp.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Provides constants related to horizontal interpolation. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_BilinearRemappingWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_BilinearRemappingWeights.inc index 98f0504c..f1e999ed 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_BilinearRemappingWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_BilinearRemappingWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Compute the weights for a bilinear remapping interpolation scheme. This ! scheme is appropriate for bilinear interpolation on a general quadrilateral diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistWeights.inc index c306ed59..50c51068 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Distance-weighted interpolation scheme (k2dint = 0). The interpolation ! weights are computed as a weighted sum of the distance between the model grid diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistance.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistance.inc index e91a9069..0269e45d 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistance.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_GreatCircleDistance.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Great circle distance between pts (lat1,lon1) (lat2,lon2). !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalExtend.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalExtend.inc index 77d01533..f0b6006f 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalExtend.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalExtend.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Extends horizontal grid at borders of domain to allow horizontal ! interpolation, not valid for MPP. diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalGridStretch.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalGridStretch.inc index 41eb5490..0166e93b 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalGridStretch.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalGridStretch.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This routine finds the weight and grid indices needed to interpolate a field ! defined on a grid with variable latitude and longitude spacing to a set of diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp.inc index 07405607..be7a4d13 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Horizontal interpolation. Interpolates by linear interpolation, a 2-d field ! to a 2-d set of points. Input data can be on a sphere or within a rectangular diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpFromNetCDF.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpFromNetCDF.inc index 6f2a239e..c0216add 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpFromNetCDF.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpFromNetCDF.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Horizontal interpolation. Interpolates by linear interpolation, a 2-d field ! to a 2-d set of points. Input data can be on a sphere or within a rectangular diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpLinearCoast.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpLinearCoast.inc index 4569a0cf..a10f415d 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpLinearCoast.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpLinearCoast.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs linear interpolation of a 2-d input field to a 2-d set of points ! defined by IOut, JOut and WtLambda, WtPhi taking into account missing data. diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpNearest.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpNearest.inc index 9e146ef3..d98bbb11 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpNearest.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpNearest.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs linear interpolation of a 2-d input field to a 2-d set of points ! defined by IOut, JOut and WtLambda, WtPhi taking into account missing data. diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpProfile.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpProfile.inc index 1555b454..637f952f 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpProfile.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterpProfile.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Horizontal and vertical profile interpolation. Interpolates by linear ! remapping interpolation, a 4-d field to the locations of a set of profiles. diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_OceanWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_OceanWeights.inc index c8ea72a8..bb3b051f 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_OceanWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_OceanWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Horizontal interpolation weights generation. ! diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_Weights.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_Weights.inc index d315f16a..de629899 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_Weights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_HorizontalInterp_Weights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculate weights for horizontal interpolation on variable resolution grids. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_HorizontalInterp/Ops_TimeInterp_OceanWeights.inc b/deps/ops/code/OpsMod_HorizontalInterp/Ops_TimeInterp_OceanWeights.inc index 07362a3f..efd6d26e 100644 --- a/deps/ops/code/OpsMod_HorizontalInterp/Ops_TimeInterp_OceanWeights.inc +++ b/deps/ops/code/OpsMod_HorizontalInterp/Ops_TimeInterp_OceanWeights.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculate the linear time interpolation weights. ! diff --git a/deps/ops/code/OpsMod_ModelColumnIO/OpsMod_ModelColumnIO.f90 b/deps/ops/code/OpsMod_ModelColumnIO/OpsMod_ModelColumnIO.f90 index 9de89352..0eff4378 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/OpsMod_ModelColumnIO.f90 +++ b/deps/ops/code/OpsMod_ModelColumnIO/OpsMod_ModelColumnIO.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module containing procedures for CX output. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_CloseModelColumn.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_CloseModelColumn.inc index c0e2d5a9..e3841a5e 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_CloseModelColumn.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_CloseModelColumn.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Closes the Cx file(s) and frees the unit number(s). The Cx file is closed by ! a call to Ops_CloseCFile diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_MaxCXIndexes.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_MaxCXIndexes.inc index a9dbdb7d..f8c3cd7a 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_MaxCXIndexes.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_MaxCXIndexes.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Count the number of surface and upper air CX indexes to be written to a CX ! file, based on presence, or lack therof, of elements in the CX header. diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_OpenModelColumn.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_OpenModelColumn.inc index de64fc1d..ef6fc62c 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_OpenModelColumn.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_OpenModelColumn.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! A CX file is opened and parts of the CX header structure are set up. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupCxHeader.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupCxHeader.inc index 118adcd4..f0f3ae1a 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupCxHeader.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupCxHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Write out model columns (Cx data) to a dump. The Cx data arrays are assumed ! to be present and required to be output, if within the Cx structure's header diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn.inc index 125e5746..7652bce4 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up an array containing CX data to be written to a file. For each of the ! indices in OpsMod_CXIndexes the data in the CX structure "Cx" is copied to diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn1pe.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn1pe.inc index 9d6b0775..19500ce3 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn1pe.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_SetupModelColumn1pe.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up an array containing CX data to be written to a file. For each of the ! indices in OpsMod_CXIndexes the data in the CX structure "Cx" is copied to diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn.inc index 3861401c..8dab90e0 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Writes columns of CX data to a .cx file. The Cx data arrays are assumed to be ! present and required to be output, if within the Cx structure's header they diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn1pe.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn1pe.inc index 223ae9b1..3e87d605 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn1pe.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteModelColumn1pe.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Writes columns of CX data to a .cx file. The Cx data arrays are assumed to be ! present and required to be output, if within the Cx structure's header they diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx.inc index c8e9f53b..3ff4cf0e 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Iterates over obs groups and writes a .cx file as required. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx1pe.inc b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx1pe.inc index 0f83f3bc..e9643342 100644 --- a/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx1pe.inc +++ b/deps/ops/code/OpsMod_ModelColumnIO/Ops_WriteOutVarCx1pe.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Iterates over obs groups and writes a .cx file as required. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/OpsMod_ModelIO.f90 b/deps/ops/code/OpsMod_ModelIO/OpsMod_ModelIO.f90 index e1bff23c..81eefd80 100644 --- a/deps/ops/code/OpsMod_ModelIO/OpsMod_ModelIO.f90 +++ b/deps/ops/code/OpsMod_ModelIO/OpsMod_ModelIO.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module containing the derived data types and subroutines to read all of the ! model fields into OPS program 1. The derived data types are based on those diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_DeallocateOceanNetCDFFields.inc b/deps/ops/code/OpsMod_ModelIO/Ops_DeallocateOceanNetCDFFields.inc index c02dd788..e63d130e 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_DeallocateOceanNetCDFFields.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_DeallocateOceanNetCDFFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve the NetCDF coordinates and pre-search data !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_DefineModelArea.inc b/deps/ops/code/OpsMod_ModelIO/Ops_DefineModelArea.inc index 1ff23eec..7f2da03b 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_DefineModelArea.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_DefineModelArea.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! To establish model grid boundaries. ! diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_FieldsFile_ReadHeaderEnv.inc b/deps/ops/code/OpsMod_ModelIO/Ops_FieldsFile_ReadHeaderEnv.inc index 3fd27334..da49a4db 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_FieldsFile_ReadHeaderEnv.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_FieldsFile_ReadHeaderEnv.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a fields file and read its header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_FindTimeCoordIndices.inc b/deps/ops/code/OpsMod_ModelIO/Ops_FindTimeCoordIndices.inc index 37e884eb..97e5b09c 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_FindTimeCoordIndices.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_FindTimeCoordIndices.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Identify the first left-of-interval model time coordinate. ! diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_GetNetCDFField.inc b/deps/ops/code/OpsMod_ModelIO/Ops_GetNetCDFField.inc index 7ece1826..43b18f95 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_GetNetCDFField.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_GetNetCDFField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a fields file and read its header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_InQuadrilateral.inc b/deps/ops/code/OpsMod_ModelIO/Ops_InQuadrilateral.inc index 07ed4502..356c6d2d 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_InQuadrilateral.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_InQuadrilateral.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Determine whether a point P(x,y) lies within or on the boundary of a ! quadrangle (ABCD) of any shape on a plane. diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_InitNetCDFFields.inc b/deps/ops/code/OpsMod_ModelIO/Ops_InitNetCDFFields.inc index a05184df..230f7a2f 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_InitNetCDFFields.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_InitNetCDFFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a fields file and read its header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_OceanInitNetCDFFields.inc b/deps/ops/code/OpsMod_ModelIO/Ops_OceanInitNetCDFFields.inc index 1523dce4..6bd0d9a8 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_OceanInitNetCDFFields.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_OceanInitNetCDFFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve the NetCDF coordinates and pre-search data !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_PartitionedFindCoordIndices.inc b/deps/ops/code/OpsMod_ModelIO/Ops_PartitionedFindCoordIndices.inc index 1be883f7..43b7086f 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_PartitionedFindCoordIndices.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_PartitionedFindCoordIndices.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Use data from the Ocean Pre-search grid file ("OceanPresearchGrid_type") to ! refine the coordinate search to local gridpoints to each observation. Use this diff --git a/deps/ops/code/OpsMod_ModelIO/Ops_ReadOceanNetCDFFields.inc b/deps/ops/code/OpsMod_ModelIO/Ops_ReadOceanNetCDFFields.inc index 6572df51..f3bc049b 100644 --- a/deps/ops/code/OpsMod_ModelIO/Ops_ReadOceanNetCDFFields.inc +++ b/deps/ops/code/OpsMod_ModelIO/Ops_ReadOceanNetCDFFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Retrieve the NetCDF Background and Background error data !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelObInfo/OpsMod_ModelObInfo.f90 b/deps/ops/code/OpsMod_ModelObInfo/OpsMod_ModelObInfo.f90 index 713c1a18..43989377 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/OpsMod_ModelObInfo.f90 +++ b/deps/ops/code/OpsMod_ModelObInfo/OpsMod_ModelObInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module contains: ! diff --git a/deps/ops/code/OpsMod_ModelObInfo/Ops_InitModelOb.inc b/deps/ops/code/OpsMod_ModelObInfo/Ops_InitModelOb.inc index 846be812..484f3eb1 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/Ops_InitModelOb.inc +++ b/deps/ops/code/OpsMod_ModelObInfo/Ops_InitModelOb.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets data presence indicators to missing. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBAllocate.inc b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBAllocate.inc index 900a7833..d6508b97 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBAllocate.inc +++ b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBAllocate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocate space for ModelOB (Model Ob equivalent) using OB header as input to ! determine which fields are likely to be required; copy header and initialise diff --git a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBDeAllocate.inc b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBDeAllocate.inc index 537ce12c..de32ae03 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBDeAllocate.inc +++ b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBDeAllocate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate space for ModelOb (Model Ob equivalent). !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBPrint.inc b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBPrint.inc index 780a026b..c0ae31e5 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBPrint.inc +++ b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelOBPrint.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Print all non Absent data fields in Y (Model Ob equivalent) state. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelObGlobalAction.inc b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelObGlobalAction.inc index 78964cf9..90556b0e 100644 --- a/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelObGlobalAction.inc +++ b/deps/ops/code/OpsMod_ModelObInfo/Ops_ModelObGlobalAction.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs action on all array elements of BG. Calls Ops_ObsAction for every ! array element. diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBDate_real.inc b/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBDate_real.inc index 9e493f92..fdaebe73 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBDate_real.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBDate_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function to convert year/month/day to an ODB format date number. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBTime_real.inc b/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBTime_real.inc index 99b8ba8c..ca5f96fb 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBTime_real.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_ConvertToODBTime_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function to convert year/month/day to an ODB format time number. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_IsTable.inc b/deps/ops/code/OpsMod_ODB/OpsFn_IsTable.inc index e64c41a1..0c09d280 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_IsTable.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_IsTable.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Checks whether a query is a table or not. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_ODBExists.inc b/deps/ops/code/OpsMod_ODB/OpsFn_ODBExists.inc index 1598cf75..6af4f96a 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_ODBExists.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_ODBExists.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Tests to see whether an ODB exists. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_ObsToReportType.inc b/deps/ops/code/OpsMod_ODB/OpsFn_ObsToReportType.inc index 622e236c..e86e02b0 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_ObsToReportType.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_ObsToReportType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Setting up ODB report types for obs. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsFn_RunidToNum.inc b/deps/ops/code/OpsMod_ODB/OpsFn_RunidToNum.inc index 23b824e5..cee87f45 100644 --- a/deps/ops/code/OpsMod_ODB/OpsFn_RunidToNum.inc +++ b/deps/ops/code/OpsMod_ODB/OpsFn_RunidToNum.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts a model run string (QU etc) to a number for use by ODB. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBFlags.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBFlags.f90 index b60bb6c8..085b8dd3 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBFlags.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBFlags.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Constants relating to ODB flags copied from cma.hh. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBInfo.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBInfo.f90 index f1dbd408..65b0cf91 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBInfo.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Constants, namelist options and derived types for use in ODB code. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBKinds.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBKinds.f90 index 6b78fb42..e6899f17 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBKinds.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBKinds.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! ODB compatible kind values. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBOPSInterface.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBOPSInterface.f90 index e33a7c70..51506cf9 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBOPSInterface.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBOPSInterface.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Holds variables and functions to aid OPS/ODB interfacing. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBReportTypeMap.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBReportTypeMap.f90 index 742f706b..52d3a5c0 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBReportTypeMap.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBReportTypeMap.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Mapping of obsgroup, satid and report types. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBTableInfo.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBTableInfo.f90 index 3fa273ed..77acd152 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBTableInfo.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBTableInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! ODB table related parameters and derived types. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBTypes.f90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBTypes.f90 index 36751e65..34744a78 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBTypes.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBTypes.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Derived types related to ODB interaction. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsMod_ODBUtils.F90 b/deps/ops/code/OpsMod_ODB/OpsMod_ODBUtils.F90 index 541240f0..596ba384 100644 --- a/deps/ops/code/OpsMod_ODB/OpsMod_ODBUtils.F90 +++ b/deps/ops/code/OpsMod_ODB/OpsMod_ODBUtils.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains utility ODB code for setting ODB table values. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp.inc b/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp.inc index eb9f4cab..8cd30a4f 100644 --- a/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp.inc +++ b/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up the ElemDesp2ODBDesp data structure. ! diff --git a/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp_Body.inc b/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp_Body.inc index 6af99762..95a2e925 100644 --- a/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp_Body.inc +++ b/deps/ops/code/OpsMod_ODB/OpsODB_InitODBElemDesp_Body.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialises ElemDesp2ODBDesp for the body table. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/OpsProg_CreateODB.f90 b/deps/ops/code/OpsMod_ODB/OpsProg_CreateODB.f90 index eaaede67..eaa8d2c0 100644 --- a/deps/ops/code/OpsMod_ODB/OpsProg_CreateODB.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsProg_CreateODB.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts MetDB data to an ODB. The basic inputs are the same as for ! OpsProg_ExtractAndProcess (OPS_CUTOFF, the normal observation group switches, diff --git a/deps/ops/code/OpsMod_ODB/OpsProg_MergeODB.f90 b/deps/ops/code/OpsMod_ODB/OpsProg_MergeODB.f90 index 94c2213e..cbfb1777 100644 --- a/deps/ops/code/OpsMod_ODB/OpsProg_MergeODB.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsProg_MergeODB.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Program to merge one ODB into another ODB. Each table from the ODB is read ! and written to the ECMA with any special modifications required. diff --git a/deps/ops/code/OpsMod_ODB/OpsProg_SimulObs.f90 b/deps/ops/code/OpsMod_ODB/OpsProg_SimulObs.f90 index eae03968..e5f43c34 100644 --- a/deps/ops/code/OpsMod_ODB/OpsProg_SimulObs.f90 +++ b/deps/ops/code/OpsMod_ODB/OpsProg_SimulObs.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts a set of text files into an ODB. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_AndODBBits_scalar_to_array.inc b/deps/ops/code/OpsMod_ODB/Ops_AndODBBits_scalar_to_array.inc index 8ebe6ac1..b9f389df 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_AndODBBits_scalar_to_array.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_AndODBBits_scalar_to_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a bit of an ODB column bitfield. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_CloseODB.inc b/deps/ops/code/OpsMod_ODB/Ops_CloseODB.inc index 9c2ee5ed..caced9a5 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_CloseODB.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_CloseODB.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Closes an ODB. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_LockODB.inc b/deps/ops/code/OpsMod_ODB/Ops_LockODB.inc index 78bf8b84..5f64fd84 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_LockODB.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_LockODB.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Place a lock directory in the ODB directory to prevent concurrent reads by OPS ! or reading of corrupted ODB. diff --git a/deps/ops/code/OpsMod_ODB/Ops_OpenODB.inc b/deps/ops/code/OpsMod_ODB/Ops_OpenODB.inc index 9028fe2b..1737a4af 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_OpenODB.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_OpenODB.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Opens an ODB database. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_array.inc b/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_array.inc index e36b6c2e..86d1cb43 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_array.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a bit of an ODB column bitfield. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_scalar_to_array.inc b/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_scalar_to_array.inc index a48e3450..a60ecda1 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_scalar_to_array.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_OrODBBits_scalar_to_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a bit of an ODB column bitfield. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_ReadODBControlNL.inc b/deps/ops/code/OpsMod_ODB/Ops_ReadODBControlNL.inc index 610b2569..aeda711e 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_ReadODBControlNL.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_ReadODBControlNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an ODB control namelist. Name of the ODB control namelist is taken from ! OPS_ODBCONTROL_NL. diff --git a/deps/ops/code/OpsMod_ODB/Ops_ReadODBMergeNL.inc b/deps/ops/code/OpsMod_ODB/Ops_ReadODBMergeNL.inc index ccf42baa..de9d4941 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_ReadODBMergeNL.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_ReadODBMergeNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an ODB merge control namelist. Name of the ODB control namelist is taken ! from OPS_ODBMERGE_NL. diff --git a/deps/ops/code/OpsMod_ODB/Ops_ReadODBReportTypeMap.inc b/deps/ops/code/OpsMod_ODB/Ops_ReadODBReportTypeMap.inc index d6c279bc..bb0bab65 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_ReadODBReportTypeMap.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_ReadODBReportTypeMap.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up the ODB report type values. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_RunODBQuery.inc b/deps/ops/code/OpsMod_ODB/Ops_RunODBQuery.inc index 6838b0e6..87237e86 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_RunODBQuery.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_RunODBQuery.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Execute an ODB query. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar.inc index 4581fe19..f749849a 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets a bit of an ODB bitfield column. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar_to_array.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar_to_array.inc index 7c206156..fce2e0ae 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar_to_array.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBBit_scalar_to_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a bit of an ODB column bitfield. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_char.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_char.inc index a79a336d..9d83398a 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_char.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Assigns an array of character data to a specified ODB column. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_integer.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_integer.inc index 3f01ce8e..38916838 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_integer.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Assigns an array of integer data to a specified ODB column. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real32.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real32.inc index 06228424..97451cd5 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real32.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Assigns an array of real data to a specified ODB column. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real64.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real64.inc index 144b4eb4..08f6b59a 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real64.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_array_real64.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Assigns an array of real data to a specified ODB column. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_char.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_char.inc index ea5123ab..f130a116 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_char.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets a column of an ODB table to a scalar character value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_integer.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_integer.inc index e2241424..66d9ba7b 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_integer.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets a column of an ODB table to a scalar integer value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_real.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_real.inc index 1b2f1de7..753db0c1 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_real.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_s_to_a_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets a column of an ODB table to a scalar real value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_char.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_char.inc index 74e1943c..bf04dc35 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_char.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a cell of an ODB table to a scalar character value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_integer.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_integer.inc index 9b060032..029695f3 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_integer.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a cell of an ODB table to a scalar integer value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_real.inc b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_real.inc index 2ef6e754..7909a3d4 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_real.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetODBVal_scalar_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set a cell of an ODB table to a scalar real value. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetupODBReportTypes.inc b/deps/ops/code/OpsMod_ODB/Ops_SetupODBReportTypes.inc index bb604df4..ecbca04f 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetupODBReportTypes.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetupODBReportTypes.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up the ODB report type values. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_SetupODBVertcoTypes.inc b/deps/ops/code/OpsMod_ODB/Ops_SetupODBVertcoTypes.inc index ca303c09..5a0f0e06 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_SetupODBVertcoTypes.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_SetupODBVertcoTypes.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up the ODB vertco type values. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_UnlockODB.inc b/deps/ops/code/OpsMod_ODB/Ops_UnlockODB.inc index 7bccdf8a..8990c7cd 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_UnlockODB.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_UnlockODB.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Remove a lock directory in the ODB directory to allow reads by OPS again. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/Ops_WriteODBTable.inc b/deps/ops/code/OpsMod_ODB/Ops_WriteODBTable.inc index c7f34d83..fea13c81 100644 --- a/deps/ops/code/OpsMod_ODB/Ops_WriteODBTable.inc +++ b/deps/ops/code/OpsMod_ODB/Ops_WriteODBTable.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Writes an array of data to an ODB table. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_addpools.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_addpools.inc index 1a892ddb..c99fe707 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_addpools.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_addpools.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_addpools that updates the session object with the new pool ! information. diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_cancel.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_cancel.inc index d61ab02b..93a99c4e 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_cancel.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_cancel.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_cancel. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_close.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_close.inc index 2686d071..e9f6f5e5 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_close.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_close.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_close. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get.inc index 208a6763..243286be 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_get. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_names.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_names.inc index 380922ea..e5b1b9af 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_names.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_names.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getnames that returns a list of columns names for a table. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_types.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_types.inc index 071c9cb9..db90b592 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_types.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_column_types.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getnames that returns a list of columns types for a table. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_columns.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_columns.inc index 6295f786..a36b4691 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_columns.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_columns.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getnames that returns the number of columns in a table. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_tables.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_tables.inc index d18c91fb..e7b1df50 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_tables.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_num_tables.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getnames that returns the numbers of tables in the odb. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_query_size.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_query_size.inc index a08e85d9..c6f02383 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_query_size.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_query_size.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_select that returns the numbers of rows and columns in a ! query. diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_table_names.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_table_names.inc index 81aa9f8b..59d289fc 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_table_names.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_get_table_names.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getnames that returns a list of table names. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getsize.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getsize.inc index e539cfcd..8a0da2e8 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getsize.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getsize.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getsize. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval.inc index c9f8e779..37a06f52 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_getval. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval_hardwired.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval_hardwired.inc index 153737e2..4accf3a8 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval_hardwired.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_getval_hardwired.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function to return a hardwired value for various ODB parameters, needed when a ! real ODB session is not available. diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_init.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_init.inc index 6092949f..df778ccd 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_init.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_init.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_init. Includes a "first time" variable to ensure it is called ! only once diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_column_available.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_column_available.inc index f2602fec..9ce39e16 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_column_available.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_column_available.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_varindex, returns true if column_name is available in query. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_query_valid.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_query_valid.inc index 392b6e60..6b191dae 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_query_valid.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_is_query_valid.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_addview that checks whether a query is valid or not. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_open.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_open.inc index 4bcee15d..3add739d 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_open.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_open.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_open. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_put.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_put.inc index fe89cb55..296c4048 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_put.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_put.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_put. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_register_vector.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_register_vector.inc index 89538284..6408605b 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_register_vector.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_register_vector.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for fodb_register/unregister_vector. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_varindex_scalar.inc b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_varindex_scalar.inc index 160f6c46..e0109518 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_varindex_scalar.inc +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_varindex_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for odb_varindex, scalar version. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_wrappers.F90 b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_wrappers.F90 index 347ba31c..eabaf90b 100644 --- a/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_wrappers.F90 +++ b/deps/ops/code/OpsMod_ODB/wrappers/ops_odb_wrappers.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper module to provide interfaces to and simplified versions of ODB ! functions and subroutines used by OPS. diff --git a/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_CoastZenith.f90 b/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_CoastZenith.f90 index 17ad7579..c871d7f9 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_CoastZenith.f90 +++ b/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_CoastZenith.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains Ops_CoastZenith. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_ObTypeUtils.f90 b/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_ObTypeUtils.f90 index 706e94a1..32abc9d5 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_ObTypeUtils.f90 +++ b/deps/ops/code/OpsMod_ObTypeUtils/OpsMod_ObTypeUtils.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains utilities for manipulating ob_type structure elements. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_CoastZenith.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_CoastZenith.inc index 6ead02c2..31d93408 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_CoastZenith.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_CoastZenith.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read and interpolate distance from coast field also calculate solar zenith ! angle. diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_FlightLevel.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_FlightLevel.inc index 0752d1a5..aa33e93f 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_FlightLevel.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_FlightLevel.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts flight level to pressure. ! diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_LCL.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_LCL.inc index defeeaf7..5680df6b 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_LCL.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_LCL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------ ! Calculates the lifting condensation level (LCL) by taking a parcel from the ! top of the surface layer. diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_MixingRatioToRH.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_MixingRatioToRH.inc index f4e10dad..7e900da8 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_MixingRatioToRH.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_MixingRatioToRH.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates relative humidity from mixing ratio. ! diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_RotateWinds.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_RotateWinds.inc index b18b98f5..c28a69ba 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_RotateWinds.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_RotateWinds.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Rotates Cx winds to produce true wind component values. ! diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_Solar_Zenith.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_Solar_Zenith.inc index 1557c212..cff4446f 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_Solar_Zenith.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_Solar_Zenith.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Compute solar zenith and azimuth angles for an array of latitudes and ! longitudes, for a given time and date. diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_TdToRH.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_TdToRH.inc index 3497196a..dd9b0c1a 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_TdToRH.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_TdToRH.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates relative humidity (RH_ice) from dew point temperature, ! or converts RH_water to RH_ice. diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_TtoTheta.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_TtoTheta.inc index 7cb37433..ba125cf6 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_TtoTheta.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_TtoTheta.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates theta from temperature. ! diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_UV.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_UV.inc index 4296c252..30a26de0 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_UV.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_UV.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates u,v from wind speed and direction. The wind components are ! calculated using the formulaes: diff --git a/deps/ops/code/OpsMod_ObTypeUtils/Ops_UnRotateWinds.inc b/deps/ops/code/OpsMod_ObTypeUtils/Ops_UnRotateWinds.inc index fffa8a81..444cf704 100644 --- a/deps/ops/code/OpsMod_ObTypeUtils/Ops_UnRotateWinds.inc +++ b/deps/ops/code/OpsMod_ObTypeUtils/Ops_UnRotateWinds.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Rotates Cx winds to produce true wind component values. ! diff --git a/deps/ops/code/OpsMod_ObsInfo/OpsMod_MiscTypes.f90 b/deps/ops/code/OpsMod_ObsInfo/OpsMod_MiscTypes.f90 index 6f266149..f28e40e5 100644 --- a/deps/ops/code/OpsMod_ObsInfo/OpsMod_MiscTypes.f90 +++ b/deps/ops/code/OpsMod_ObsInfo/OpsMod_MiscTypes.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module currently contains: ! Items common to both OpsMod_ObsInfo and VarMod_ObsInfo diff --git a/deps/ops/code/OpsMod_ObsInfo/OpsMod_ObsInfo.f90 b/deps/ops/code/OpsMod_ObsInfo/OpsMod_ObsInfo.f90 index 70f47a8c..ff0d0429 100644 --- a/deps/ops/code/OpsMod_ObsInfo/OpsMod_ObsInfo.f90 +++ b/deps/ops/code/OpsMod_ObsInfo/OpsMod_ObsInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module contains: ! diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Char.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Char.inc index 0d609983..2bcfc895 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Char.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType.inc index 7f01a25d..cd3de849 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType2d.inc index 40c4b1fa..9b68cb22 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_CoordType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType.inc index 03452e13..8628b518 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType2d.inc index 2c2cc956..b8e3578c 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_ElementType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int.inc index 3be1eafe..1d678a44 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int2d.inc index 2604214c..da152f85 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Int2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real.inc index a38068b6..d39f7ff9 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real2d.inc index 69a63ab8..0edbd66d 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_Alloc_Real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_CopyObTypeHeader.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_CopyObTypeHeader.inc index 52c7b21e..3e7e7c74 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_CopyObTypeHeader.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_CopyObTypeHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Copy an ObHeader_Type from InputHeader to OutputHeader. ! diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Char.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Char.inc index 97819410..24f3578b 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Char.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType.inc index fe6f69a1..c67507eb 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType2d.inc index 24588eba..627392de 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_CoordType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType.inc index 46c11a7f..361dd8f5 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType2d.inc index 5d777f27..4d3ec495 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_ElementType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int.inc index 9be58768..affadc1b 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int2d.inc index b3be0031..dfce6056 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Int2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real.inc index 6339b8a1..af9f5d99 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real2d.inc index e22f47c5..6f33f518 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_DeAlloc_Real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocates a pointer array. Check the assocation and deallocate if ! necessary, and set header status to absent. diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_InitObs.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_InitObs.inc index 85eee10d..6740149d 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_InitObs.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_InitObs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets data presence indicators to missing. ! diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_OBDeAllocate.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_OBDeAllocate.inc index 1c9bb758..0e32a296 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_OBDeAllocate.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_OBDeAllocate.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate OB structure. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_OBPrint.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_OBPrint.inc index 903326c5..599f11f3 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_OBPrint.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_OBPrint.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Print all non absent data fields in OB state. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsAction.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsAction.inc index 7238fa68..1e9efdba 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsAction.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsAction.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs an action on an observation structure array depending on the value of ! module variable Action. Possible actions are: diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionDealloc.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionDealloc.inc index a75d8573..aef89d4e 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionDealloc.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionDealloc.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs an action on an observation structure array depending on the value of ! module variable Action. Possible actions are: diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionInit.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionInit.inc index f877990e..669b7977 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionInit.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionInit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs an action on an observation structure array depending on the value of ! module variable Action. Possible actions are: diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint1.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint1.inc index fb4cccf4..d676ffcc 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint1.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint1.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs an action on an observation structure array depending on the value of ! module variable Action. Possible actions are: diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint2.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint2.inc index e330bbe4..7295c277 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint2.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsActionPrint2.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs an action on an observation structure array depending on the value of ! module variable Action. Possible actions are: diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsGlobalAction.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsGlobalAction.inc index cc982515..ebb9f35e 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ObsGlobalAction.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ObsGlobalAction.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs action defined by sub on all array elements of Ob. ! diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_CoordType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_CoordType2d.inc index 5d74ca6f..f73c6c88 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_CoordType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_CoordType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_ElementType2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_ElementType2d.inc index d5c88088..e919ccdb 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_ElementType2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_ElementType2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Int2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Int2d.inc index f210d853..725430ce 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Int2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Int2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Real2d.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Real2d.inc index a5a9c478..a0da3b54 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Real2d.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_ReAlloc_Real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocates a pointer array, and sets up the header. Check the assocation and ! allocate if necessary. Initialise contents to missing. Then initialise the diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_SetObPrintIndex.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_SetObPrintIndex.inc index e3080130..8adbb945 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_SetObPrintIndex.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_SetObPrintIndex.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up the index of observations to print. ! diff --git a/deps/ops/code/OpsMod_ObsInfo/Ops_SetupObType.inc b/deps/ops/code/OpsMod_ObsInfo/Ops_SetupObType.inc index 3328cc21..1b27e6b9 100644 --- a/deps/ops/code/OpsMod_ObsInfo/Ops_SetupObType.inc +++ b/deps/ops/code/OpsMod_ObsInfo/Ops_SetupObType.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Basic setup of an ob_type structure. Basic grid information comes from the ! UM header. For GRIB types more detailed grid and time information also comes diff --git a/deps/ops/code/OpsMod_Process/OpsMod_Process.f90 b/deps/ops/code/OpsMod_Process/OpsMod_Process.f90 index a6edb450..5ef8e612 100644 --- a/deps/ops/code/OpsMod_Process/OpsMod_Process.f90 +++ b/deps/ops/code/OpsMod_Process/OpsMod_Process.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module containing routines to read observations from the ObStore file into the ! Ob_Type structure. Also contains some other stray routines. diff --git a/deps/ops/code/OpsMod_Process/Ops_CheckPrevUsed.inc b/deps/ops/code/OpsMod_Process/Ops_CheckPrevUsed.inc index 71885f85..90ab615f 100644 --- a/deps/ops/code/OpsMod_Process/Ops_CheckPrevUsed.inc +++ b/deps/ops/code/OpsMod_Process/Ops_CheckPrevUsed.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Checks whether data have already been assimilated. ! diff --git a/deps/ops/code/OpsMod_Process/Ops_ExtremeCheck.inc b/deps/ops/code/OpsMod_Process/Ops_ExtremeCheck.inc index 64483a20..fed6f42b 100644 --- a/deps/ops/code/OpsMod_Process/Ops_ExtremeCheck.inc +++ b/deps/ops/code/OpsMod_Process/Ops_ExtremeCheck.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Checks for impossible values in reports. ! diff --git a/deps/ops/code/OpsMod_Process/Ops_SetupModelLevelObs.inc b/deps/ops/code/OpsMod_Process/Ops_SetupModelLevelObs.inc index e07ae84e..763abd2d 100644 --- a/deps/ops/code/OpsMod_Process/Ops_SetupModelLevelObs.inc +++ b/deps/ops/code/OpsMod_Process/Ops_SetupModelLevelObs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! General setup for a model level ob_type structure based on a reported level ! structure. Sets up the header and some common elements. This should be diff --git a/deps/ops/code/OpsMod_QC/OpsMod_QC.f90 b/deps/ops/code/OpsMod_QC/OpsMod_QC.f90 index 1fef922e..c5bee2db 100644 --- a/deps/ops/code/OpsMod_QC/OpsMod_QC.f90 +++ b/deps/ops/code/OpsMod_QC/OpsMod_QC.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains generic Quality Control code: ! low-level background check routines diff --git a/deps/ops/code/OpsMod_QC/OpsMod_QCBackground.f90 b/deps/ops/code/OpsMod_QC/OpsMod_QCBackground.f90 index da7754aa..a015a844 100644 --- a/deps/ops/code/OpsMod_QC/OpsMod_QCBackground.f90 +++ b/deps/ops/code/OpsMod_QC/OpsMod_QCBackground.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains generic Quality Control code: ! low-level background check routines diff --git a/deps/ops/code/OpsMod_QC/OpsMod_QCBuddy.f90 b/deps/ops/code/OpsMod_QC/OpsMod_QCBuddy.f90 index 5ae1949c..2a95f9ac 100644 --- a/deps/ops/code/OpsMod_QC/OpsMod_QCBuddy.f90 +++ b/deps/ops/code/OpsMod_QC/OpsMod_QCBuddy.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains generic Quality Control code: ! low-level background check routines diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBackgr1s.inc b/deps/ops/code/OpsMod_QC/Ops_QcBackgr1s.inc index 1517a204..fbb4cc35 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBackgr1s.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBackgr1s.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Background check for scalar quantities ! - can process single level observations or levels of a profile diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBackgr1v.inc b/deps/ops/code/OpsMod_QC/Ops_QcBackgr1v.inc index d8aa4e43..f9c39c7d 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBackgr1v.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBackgr1v.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Background check for vector quantities ! - can process single level observations or levels of a profile diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBackgr2s.inc b/deps/ops/code/OpsMod_QC/Ops_QcBackgr2s.inc index f16affd2..6884313a 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBackgr2s.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBackgr2s.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Background check for scalar quantities for multi-level data (with a constant ! number of levels) diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdChkOcean.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdChkOcean.inc index f1f0bbb4..03665949 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdChkOcean.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdChkOcean.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check of scalar quantities for ocean profile data, allows for separate ! mesoscale and synoptic scales diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdChkSs.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdChkSs.inc index 4435b37e..f2116128 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdChkSs.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdChkSs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check for scalar quantities for surface data ! diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdChkSv.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdChkSv.inc index 14e0355a..e36f6f21 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdChkSv.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdChkSv.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check of vector quantities for surface data. ! diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdChkUs.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdChkUs.inc index ae17b246..9fa59fae 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdChkUs.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdChkUs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check of scalar quantities for upper-air data (including multi-level ! data with a constant number of levels) diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdChkUv.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdChkUv.inc index 385ae7a0..1daa930c 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdChkUv.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdChkUv.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check of vector quantities for upper-air data (including multi-level ! data with a constant number of levels) diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdPair.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdPair.inc index acffbdf4..499e08d9 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdPair.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdPair.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Pairing of observations for buddy check. ! Calculation of distance and angles for each pair of obs. diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBdSort.inc b/deps/ops/code/OpsMod_QC/Ops_QcBdSort.inc index c00f1b8e..11be49e3 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBdSort.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBdSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Select and sort observations for buddy check ! Set (geographically varying) horizontal error correlation scale diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBuddy.inc b/deps/ops/code/OpsMod_QC/Ops_QcBuddy.inc index dfa2b5d7..650da8b6 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBuddy.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBuddy.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check between two sets of obs A and B (can be the same) ! Calls routines to sort the observations geographically diff --git a/deps/ops/code/OpsMod_QC/Ops_QcBuddyOcean.inc b/deps/ops/code/OpsMod_QC/Ops_QcBuddyOcean.inc index b3634135..ad12ec65 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcBuddyOcean.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcBuddyOcean.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Buddy check ocean observations ! Calls routines to sort the observations geographically diff --git a/deps/ops/code/OpsMod_QC/Ops_QcOceanScales.inc b/deps/ops/code/OpsMod_QC/Ops_QcOceanScales.inc index b185e24e..ba045ff8 100644 --- a/deps/ops/code/OpsMod_QC/Ops_QcOceanScales.inc +++ b/deps/ops/code/OpsMod_QC/Ops_QcOceanScales.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set ocean specific length scales and anisotropy. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/OpsMod_Portio_Wrappers.f90 b/deps/ops/code/OpsMod_UMImport/OpsMod_Portio_Wrappers.f90 index d0aefe45..24601dd0 100644 --- a/deps/ops/code/OpsMod_UMImport/OpsMod_Portio_Wrappers.f90 +++ b/deps/ops/code/OpsMod_UMImport/OpsMod_Portio_Wrappers.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_int.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_int.inc index 7d56a2e3..3007a442 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_int.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real.inc index 606d0c81..80a04a2e 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real32.inc index aa14f3f5..677e9e87 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin32_Wrapper_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_char.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_char.inc index 23db99e6..22ac23c4 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_char.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int.inc index 9df9cf66..d1d84029 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int2d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int2d.inc index 0d38998a..b130bc35 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int2d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int32.inc index d554df93..b8ccdae7 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int322d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int322d.inc index 97d1bbd6..e287d0ff 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int322d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_int322d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real.inc index 9f4e5b67..720bc20d 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real32.inc index 5c1b3609..8348f1b5 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffin_Wrapper_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real.inc index 3d681da4..6a6cead2 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real32.inc index e7867554..fa7657ce 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout32_Wrapper_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char.inc index a742a9ed..72e71ee2 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char_array.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char_array.inc index 1d3230c1..46ec2480 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char_array.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_char_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int.inc index 2e3711ea..2dc29f5b 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int2d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int2d.inc index fb5dc215..ba364fcc 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int2d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int32.inc index 945af0e5..083064be 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int322d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int322d.inc index 691ba96d..a35dd2c7 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int322d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_int322d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real.inc index bd451362..b64b505c 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real2dfrom1d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real2dfrom1d.inc index 96064ac1..df7264d4 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real2dfrom1d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real2dfrom1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real32.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real32.inc index cf9ebbe1..498334ca 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real32.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real322dfrom1d.inc b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real322dfrom1d.inc index 90fa18a5..672bdada 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real322dfrom1d.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Buffout_Wrapper_real322dfrom1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/Ops_Setpos_Wrapper.inc b/deps/ops/code/OpsMod_UMImport/Ops_Setpos_Wrapper.inc index 54f742d8..6aa3d231 100644 --- a/deps/ops/code/OpsMod_UMImport/Ops_Setpos_Wrapper.inc +++ b/deps/ops/code/OpsMod_UMImport/Ops_Setpos_Wrapper.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrapper routines for some portio2a functions. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/ops_coex.inc b/deps/ops/code/OpsMod_UMImport/ops_coex.inc index 5e54e922..de52bda9 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_coex.inc +++ b/deps/ops/code/OpsMod_UMImport/ops_coex.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for shumlib procedures to read WGDOS packed data. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/ops_coex_old.inc b/deps/ops/code/OpsMod_UMImport/ops_coex_old.inc index b4f92d91..078e2a2d 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_coex_old.inc +++ b/deps/ops/code/OpsMod_UMImport/ops_coex_old.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for old UM coex to read WGDOS packed data. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_UMImport/ops_ereport_mod.F90 b/deps/ops/code/OpsMod_UMImport/ops_ereport_mod.F90 index cca37478..bdad1142 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_ereport_mod.F90 +++ b/deps/ops/code/OpsMod_UMImport/ops_ereport_mod.F90 @@ -1,7 +1,5 @@ ! *****************************COPYRIGHT******************************* ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT.txt -! which you should have received as part of this distribution. ! *****************************COPYRIGHT******************************* ! ! Code Owner: Please refer to the UM file CodeOwners.txt diff --git a/deps/ops/code/OpsMod_UMImport/ops_portio2a.c b/deps/ops/code/OpsMod_UMImport/ops_portio2a.c index 43f4c0ba..0989439e 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_portio2a.c +++ b/deps/ops/code/OpsMod_UMImport/ops_portio2a.c @@ -1,7 +1,5 @@ /******************************COPYRIGHT*******************************/ /* (C) Crown copyright Met Office. All rights reserved. */ -/* For further details please refer to the file COPYRIGHT.txt */ -/* which you should have received as part of this distribution. */ /* *****************************COPYRIGHT******************************/ /* C language routines for portable version of UM */ diff --git a/deps/ops/code/OpsMod_UMImport/ops_portutils.c b/deps/ops/code/OpsMod_UMImport/ops_portutils.c index 3d67685d..9c8ba8a5 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_portutils.c +++ b/deps/ops/code/OpsMod_UMImport/ops_portutils.c @@ -1,7 +1,5 @@ /******************************COPYRIGHT*******************************/ /* (C) Crown copyright Met Office. All rights reserved. */ -/* For further details please refer to the file COPYRIGHT.txt */ -/* which you should have received as part of this distribution. */ /* *****************************COPYRIGHT******************************/ #include diff --git a/deps/ops/code/OpsMod_UMImport/ops_xpnd_all.inc b/deps/ops/code/OpsMod_UMImport/ops_xpnd_all.inc index c6807beb..3d1b683b 100644 --- a/deps/ops/code/OpsMod_UMImport/ops_xpnd_all.inc +++ b/deps/ops/code/OpsMod_UMImport/ops_xpnd_all.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Unpack from WGDOS format. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/OpsMod_Utilities.f90 b/deps/ops/code/OpsMod_Utilities/OpsMod_Utilities.f90 index 296aeea9..0310990a 100644 --- a/deps/ops/code/OpsMod_Utilities/OpsMod_Utilities.f90 +++ b/deps/ops/code/OpsMod_Utilities/OpsMod_Utilities.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains low-level utility routines. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_Cholesky.inc b/deps/ops/code/OpsMod_Utilities/Ops_Cholesky.inc index 7af81542..9f91eaca 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_Cholesky.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_Cholesky.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Solves the Linear equation UQ=V for Q where U is a symmetric positive definite ! matrix and U and Q are vectors of length N. The method follows that in Golub diff --git a/deps/ops/code/OpsMod_Utilities/Ops_CrossProduct.inc b/deps/ops/code/OpsMod_Utilities/Ops_CrossProduct.inc index 6047c237..5102c163 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_CrossProduct.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_CrossProduct.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Vector product of 3-element vectors. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_DivideIntoBatches.inc b/deps/ops/code/OpsMod_Utilities/Ops_DivideIntoBatches.inc index a2aaf649..cee9178c 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_DivideIntoBatches.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_DivideIntoBatches.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Divides a total into num_batches of equal length (or as close as possible), ! returning the lengths in batch_lens. diff --git a/deps/ops/code/OpsMod_Utilities/Ops_DotProduct.inc b/deps/ops/code/OpsMod_Utilities/Ops_DotProduct.inc index e4e22717..389e8645 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_DotProduct.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_DotProduct.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Scalar product of 3-element vectors. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_FindNextNamelist.inc b/deps/ops/code/OpsMod_Utilities/Ops_FindNextNamelist.inc index 0ee97c64..2194f479 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_FindNextNamelist.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_FindNextNamelist.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Skip namelist comments starting with a '#' or '!'. Return the type of the ! next namelist, with the unit position set to the start of this namelist. diff --git a/deps/ops/code/OpsMod_Utilities/Ops_HeightToPressure.inc b/deps/ops/code/OpsMod_Utilities/Ops_HeightToPressure.inc index e79c679a..05100498 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_HeightToPressure.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_HeightToPressure.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts heights to pressures using the ICAO atmosphere. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_LEQWildCard.inc b/deps/ops/code/OpsMod_Utilities/Ops_LEQWildCard.inc index dbb663ed..0caf5e04 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_LEQWildCard.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_LEQWildCard.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Compares String against a Template, which consists of a list of comma ! separated strings, which may include wildcards. '*' may match any or no diff --git a/deps/ops/code/OpsMod_Utilities/Ops_LatLon_to_XYZ.inc b/deps/ops/code/OpsMod_Utilities/Ops_LatLon_to_XYZ.inc index ace29697..5d535d18 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_LatLon_to_XYZ.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_LatLon_to_XYZ.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Convert lat/lon to XYZ coordinates. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_LinearInterp.inc b/deps/ops/code/OpsMod_Utilities/Ops_LinearInterp.inc index 0224d152..b6af4f75 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_LinearInterp.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_LinearInterp.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This subroutine returns the value y corresponding to a given value of x using ! linear interpolation of a look up table of x-y pairs. The x-y pairs must be diff --git a/deps/ops/code/OpsMod_Utilities/Ops_LongLatTo3d.inc b/deps/ops/code/OpsMod_Utilities/Ops_LongLatTo3d.inc index 57c6a0d4..f1a12462 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_LongLatTo3d.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_LongLatTo3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Description: This subroutine converts a position given by the Latitude and ! Longitude in degrees, to a 3-d vector giving the position in cartesian diff --git a/deps/ops/code/OpsMod_Utilities/Ops_Orbit_Angle.inc b/deps/ops/code/OpsMod_Utilities/Ops_Orbit_Angle.inc index acd5ca5d..2bba12da 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_Orbit_Angle.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_Orbit_Angle.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Compute angular position in orbit. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_PressureToHeight.f90 b/deps/ops/code/OpsMod_Utilities/Ops_PressureToHeight.f90 index 4e762c92..ca187a66 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_PressureToHeight.f90 +++ b/deps/ops/code/OpsMod_Utilities/Ops_PressureToHeight.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts pressures to heights using the ICAO atmosphere. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_Qsat.inc b/deps/ops/code/OpsMod_Utilities/Ops_Qsat.inc index fbb50a01..fb69b9d3 100755 --- a/deps/ops/code/OpsMod_Utilities/Ops_Qsat.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_Qsat.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Saturation Specific Humidity Scheme (Qsat): Vapour to Liquid/Ice. ! diff --git a/deps/ops/code/OpsMod_Utilities/Ops_QsatDew.inc b/deps/ops/code/OpsMod_Utilities/Ops_QsatDew.inc index 1eb3a774..a61aee8f 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_QsatDew.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_QsatDew.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates saturated specific humidity (or vapour pressure) w.r.t water. ! diff --git a/deps/ops/code/OpsMod_Utilities/Ops_QsatWat.inc b/deps/ops/code/OpsMod_Utilities/Ops_QsatWat.inc index 64ed5de7..2725abbf 100755 --- a/deps/ops/code/OpsMod_Utilities/Ops_QsatWat.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_QsatWat.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Saturation Specific Humidity Scheme: Vapour to Liquid. ! diff --git a/deps/ops/code/OpsMod_Utilities/Ops_Refractivity.inc b/deps/ops/code/OpsMod_Utilities/Ops_Refractivity.inc index d2433e4d..232692b8 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_Refractivity.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_Refractivity.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate Refractivity on model levels (theta levels) !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_RefractivityDeriv.inc b/deps/ops/code/OpsMod_Utilities/Ops_RefractivityDeriv.inc index 62149abe..bbfb1566 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_RefractivityDeriv.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_RefractivityDeriv.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate Refractivity on model levels (theta levels) !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_RotateCoordinates.inc b/deps/ops/code/OpsMod_Utilities/Ops_RotateCoordinates.inc index 069f558e..a5deb35b 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_RotateCoordinates.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_RotateCoordinates.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns a set of observation co-ordinates to work with, i.e. rotates the input ! co-ordinates if working with a rotated grid. If using a regular lat long grid, diff --git a/deps/ops/code/OpsMod_Utilities/Ops_SatOrbitAngle.inc b/deps/ops/code/OpsMod_Utilities/Ops_SatOrbitAngle.inc index 308ed13c..2e0a8ba3 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_SatOrbitAngle.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_SatOrbitAngle.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Compute the angle around the orbit relative to the Earth-Sun ecliptic plane, ! diff --git a/deps/ops/code/OpsMod_Utilities/Ops_Share.inc b/deps/ops/code/OpsMod_Utilities/Ops_Share.inc index 4c472dea..cbcc0b40 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_Share.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_Share.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Divide a number into n shares, accounting for remainders !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_ThinObs4D.inc b/deps/ops/code/OpsMod_Utilities/Ops_ThinObs4D.inc index 9910c33e..e2bac9e2 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_ThinObs4D.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_ThinObs4D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Select and sort observations for duplicate check. Sorts observations by 1.5 ! degree latitude band and longitudeLoops through bands/observations (ObA), diff --git a/deps/ops/code/OpsMod_Utilities/Ops_UVtoSD.inc b/deps/ops/code/OpsMod_Utilities/Ops_UVtoSD.inc index 83950592..e2af7c07 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_UVtoSD.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_UVtoSD.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate speed and direction from wind U and V. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_VectorMod.inc b/deps/ops/code/OpsMod_Utilities/Ops_VectorMod.inc index b2b27fa9..98a46ebb 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_VectorMod.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_VectorMod.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Vector mod of 3-element vectors. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Utilities/Ops_WCoeff.inc b/deps/ops/code/OpsMod_Utilities/Ops_WCoeff.inc index d1da8591..9b328463 100755 --- a/deps/ops/code/OpsMod_Utilities/Ops_WCoeff.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_WCoeff.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Calculates coefficients used to translate u and v components of wind ! between equatorial (eq) latitude-longitude grid and standard diff --git a/deps/ops/code/OpsMod_Utilities/Ops_WEq_to_ll.inc b/deps/ops/code/OpsMod_Utilities/Ops_WEq_to_ll.inc index 49aab107..60b5694b 100755 --- a/deps/ops/code/OpsMod_Utilities/Ops_WEq_to_ll.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_WEq_to_ll.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Calculates u and v components of wind on standard latitude-longitude ! grid by rotating wind components on equatorial latitude-longitude (eq) diff --git a/deps/ops/code/OpsMod_Utilities/Ops_WorkingCoordinates.inc b/deps/ops/code/OpsMod_Utilities/Ops_WorkingCoordinates.inc index 7caafcb2..884073f9 100644 --- a/deps/ops/code/OpsMod_Utilities/Ops_WorkingCoordinates.inc +++ b/deps/ops/code/OpsMod_Utilities/Ops_WorkingCoordinates.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns a set of observation co-ordinates to work with, i.e. rotates the input ! co-ordinates if working with a rotated grid. If using a regular lat long grid, diff --git a/deps/ops/code/OpsMod_Varobs/OpsFn_VarFieldNumToName.inc b/deps/ops/code/OpsMod_Varobs/OpsFn_VarFieldNumToName.inc index 1ab8ef0f..54c53ec0 100644 --- a/deps/ops/code/OpsMod_Varobs/OpsFn_VarFieldNumToName.inc +++ b/deps/ops/code/OpsMod_Varobs/OpsFn_VarFieldNumToName.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Converts varfield number to string. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Varobs/OpsMod_Varobs.f90 b/deps/ops/code/OpsMod_Varobs/OpsMod_Varobs.f90 index 1192a856..6476368b 100644 --- a/deps/ops/code/OpsMod_Varobs/OpsMod_Varobs.f90 +++ b/deps/ops/code/OpsMod_Varobs/OpsMod_Varobs.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Declarations relating to varobs generation. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_Varobs/Ops_CheckVarFields.inc b/deps/ops/code/OpsMod_Varobs/Ops_CheckVarFields.inc index b7e05756..ac58e65b 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_CheckVarFields.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_CheckVarFields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Check that the VarFields namelist input is sensible. For each variable ! requested, calculate maximum space per observation needed. diff --git a/deps/ops/code/OpsMod_Varobs/Ops_CreateVarobs.inc b/deps/ops/code/OpsMod_Varobs/Ops_CreateVarobs.inc index 24dae2b2..ef374d54 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_CreateVarobs.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_CreateVarobs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Creates a varobs file from "OpsMod_ObsInfo" structure information. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_GetDefaultVarfields.inc b/deps/ops/code/OpsMod_Varobs/Ops_GetDefaultVarfields.inc index 4cfe1e9e..c13c9e5a 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_GetDefaultVarfields.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_GetDefaultVarfields.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set default varfields for an obsgroup. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_ModelObToOb.inc b/deps/ops/code/OpsMod_Varobs/Ops_ModelObToOb.inc index 85fa488c..702a0c4e 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_ModelObToOb.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_ModelObToOb.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! To take a ModelOb_type structure and put the information in this into an ! Ob_type structure. This requires the current observations to provide various diff --git a/deps/ops/code/OpsMod_Varobs/Ops_ReadVarobsControlNL.inc b/deps/ops/code/OpsMod_Varobs/Ops_ReadVarobsControlNL.inc index 0856f033..1732e461 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_ReadVarobsControlNL.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_ReadVarobsControlNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads a varobs control namelist. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarArray.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarArray.inc index 64a40a2b..76cab3ca 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarArray.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarArray.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Construct the data array that is written out as one batch of a varobs file. ! Also construct the arrays containing observation positions and times diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsColDepC.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsColDepC.inc index 7415c84a..dabbb73e 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsColDepC.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsColDepC.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the COLUMN DEPENDENT CONSTANT part of the varobs header. These ! constants are pointers for decoding the varobs information. diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsFixhd.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsFixhd.inc index 5ebfc508..4de49716 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsFixhd.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsFixhd.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the fixed length header part of the varobs header. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsIntC.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsIntC.inc index d125ffd2..62e28da2 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsIntC.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsIntC.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the integer header part of the varobs header. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLevDepC.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLevDepC.inc index c4b58db2..0bc58784 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLevDepC.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLevDepC.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the level dependent constant part of the varobs header. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLookup.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLookup.inc index a42b86c5..5d649c11 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLookup.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsLookup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the lookup part of the varobs header. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsRealC.inc b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsRealC.inc index 92aafaf7..5bc8da4b 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsRealC.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_SetupVarobsRealC.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up the REAL HEADER part of the varobs header. ! diff --git a/deps/ops/code/OpsMod_Varobs/Ops_VarobPGEs.inc b/deps/ops/code/OpsMod_Varobs/Ops_VarobPGEs.inc index f8a28c32..c5a804de 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_VarobPGEs.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_VarobPGEs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Outputs a structure (VarobPGEs) which contains the initial and final PGEs ! required for varobs final. diff --git a/deps/ops/code/OpsMod_Varobs/Ops_WriteVarobs.inc b/deps/ops/code/OpsMod_Varobs/Ops_WriteVarobs.inc index d624b84b..8b856503 100644 --- a/deps/ops/code/OpsMod_Varobs/Ops_WriteVarobs.inc +++ b/deps/ops/code/OpsMod_Varobs/Ops_WriteVarobs.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Write varobs header and data to an external file. All output is done on PE 0. ! The varobs file is opened then the Varobs header (argument VarobsHeader) is diff --git a/deps/ops/code/OpsMod_VarobsLib/OpsMod_VarobsLib.f90 b/deps/ops/code/OpsMod_VarobsLib/OpsMod_VarobsLib.f90 index 79d5da4f..52cb6ec8 100644 --- a/deps/ops/code/OpsMod_VarobsLib/OpsMod_VarobsLib.f90 +++ b/deps/ops/code/OpsMod_VarobsLib/OpsMod_VarobsLib.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Definition of varobs_type. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_AllocVarobsHdr.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_AllocVarobsHdr.inc index 347ac20f..e6740344 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_AllocVarobsHdr.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_AllocVarobsHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Allocate space for a varobs header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_DeallocVarobsHdr.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_DeallocVarobsHdr.inc index f4a5d53f..ca951641 100644 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_DeallocVarobsHdr.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_DeallocVarobsHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Deallocate space for a header from a varobs file. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_GetVarfieldsInfo.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_GetVarfieldsInfo.inc index 47661853..f4d99342 100644 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_GetVarfieldsInfo.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_GetVarfieldsInfo.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads varfields and varfield levels from a varob file. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsBatch.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsBatch.inc index fe839f41..7c394b0d 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsBatch.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsBatch.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads in one batch from a varobs file starting at batch number field. The ! data is returned in the out_buf array. diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsHdr.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsHdr.inc index 19ee2a2d..84aa6e2d 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsHdr.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_ReadVarobsHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read in a varobs header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_SpreadVarobsHdr.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_SpreadVarobsHdr.inc index 6e610bf7..2b3df1f8 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_SpreadVarobsHdr.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_SpreadVarobsHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Spread a varobs header between processors. ! Broadcast all parts from PE 0 to all others. diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsBatch.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsBatch.inc index c2042715..aca4e2cb 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsBatch.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsBatch.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Writes out one batch to a varobs starting at batch field. !----------------------------------------------------------------------- diff --git a/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsHdr.inc b/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsHdr.inc index c214453e..0ddb41fb 100755 --- a/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsHdr.inc +++ b/deps/ops/code/OpsMod_VarobsLib/Ops_WriteVarobsHdr.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Write out a varobs header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/OpsMod_PrintCX.f90 b/deps/ops/code/OpsProg_Utils/OpsMod_PrintCX.f90 index 050ab264..75d56350 100644 --- a/deps/ops/code/OpsProg_Utils/OpsMod_PrintCX.f90 +++ b/deps/ops/code/OpsProg_Utils/OpsMod_PrintCX.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Procedures used by OpsProg_PrintCX !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/OpsMod_PrintVarobs.f90 b/deps/ops/code/OpsProg_Utils/OpsMod_PrintVarobs.f90 index c5f992f4..f6cceaf9 100644 --- a/deps/ops/code/OpsProg_Utils/OpsMod_PrintVarobs.f90 +++ b/deps/ops/code/OpsProg_Utils/OpsMod_PrintVarobs.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Procedures used by OpsProg_PrintVarobs !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/OpsMod_UtilsProgs.f90 b/deps/ops/code/OpsProg_Utils/OpsMod_UtilsProgs.f90 index 7879e45a..e54e652c 100644 --- a/deps/ops/code/OpsProg_Utils/OpsMod_UtilsProgs.f90 +++ b/deps/ops/code/OpsProg_Utils/OpsMod_UtilsProgs.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Constants used by utility programs. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/OpsProg_PrintCXFile.F90 b/deps/ops/code/OpsProg_Utils/OpsProg_PrintCXFile.F90 index e47a60b9..51ee2984 100644 --- a/deps/ops/code/OpsProg_Utils/OpsProg_PrintCXFile.F90 +++ b/deps/ops/code/OpsProg_Utils/OpsProg_PrintCXFile.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Dumps a CX file. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/OpsProg_PrintVarobs.F90 b/deps/ops/code/OpsProg_Utils/OpsProg_PrintVarobs.F90 index acc540fc..add1c388 100644 --- a/deps/ops/code/OpsProg_Utils/OpsProg_PrintVarobs.F90 +++ b/deps/ops/code/OpsProg_Utils/OpsProg_PrintVarobs.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Dumps a varob file. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc index f6ede1ff..e2272790 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of an obstore batch field by field. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintBatchObByOb.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintBatchObByOb.inc index bb008cf9..d90b66d1 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintBatchObByOb.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintBatchObByOb.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of an obstore batch ob by ob. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintCXBatches.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintCXBatches.inc index c228c26a..6daa7ed5 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintCXBatches.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintCXBatches.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of a CX file batch by batch. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintCXHeader.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintCXHeader.inc index 3feda84c..659058b1 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintCXHeader.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintCXHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of a CX header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintFixedHeader.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintFixedHeader.inc index b3c58399..9cfd3af9 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintFixedHeader.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintFixedHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints a fixed header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsHeader.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsHeader.inc index 1492cd28..4418a754 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsHeader.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of a varob header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc index 25d32579..cfd89f17 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of a varob file ob by ob. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsSummary.inc b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsSummary.inc index 0637077d..d7d8642d 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsSummary.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_PrintVarobsSummary.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Prints the contents of a varob header. !------------------------------------------------------------------------------- diff --git a/deps/ops/code/OpsProg_Utils/Ops_ReadCXBatch.inc b/deps/ops/code/OpsProg_Utils/Ops_ReadCXBatch.inc index 55975e4e..3e136d1b 100644 --- a/deps/ops/code/OpsProg_Utils/Ops_ReadCXBatch.inc +++ b/deps/ops/code/OpsProg_Utils/Ops_ReadCXBatch.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads a single batch from a CX file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Control/GenFn_UMSectorLen.inc b/deps/ops/public/GenMod_Control/GenFn_UMSectorLen.inc index 57dd3386..f19e3d22 100644 --- a/deps/ops/public/GenMod_Control/GenFn_UMSectorLen.inc +++ b/deps/ops/public/GenMod_Control/GenFn_UMSectorLen.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns the length of data needed to write data of length "in_len" for UM ! well-formed IO based on UM_SECTOR_SIZE. diff --git a/deps/ops/public/GenMod_Control/GenMod_Control.F90 b/deps/ops/public/GenMod_Control/GenMod_Control.F90 index ab0e5776..9de845fe 100755 --- a/deps/ops/public/GenMod_Control/GenMod_Control.F90 +++ b/deps/ops/public/GenMod_Control/GenMod_Control.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Common control variables. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Control/GenMod_Setup.F90 b/deps/ops/public/GenMod_Control/GenMod_Setup.F90 index 55d847bb..aa066f44 100644 --- a/deps/ops/public/GenMod_Control/GenMod_Setup.F90 +++ b/deps/ops/public/GenMod_Control/GenMod_Setup.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Holder for Gen_SetupControl. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Control/Gen_SetupControl.inc b/deps/ops/public/GenMod_Control/Gen_SetupControl.inc index 018d6c26..1c6dae40 100755 --- a/deps/ops/public/GenMod_Control/Gen_SetupControl.inc +++ b/deps/ops/public/GenMod_Control/Gen_SetupControl.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets up control variables. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/GenMod_Core.F90 b/deps/ops/public/GenMod_Core/GenMod_Core.F90 index 6731a7ef..320247bb 100644 --- a/deps/ops/public/GenMod_Core/GenMod_Core.F90 +++ b/deps/ops/public/GenMod_Core/GenMod_Core.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Common variables and procedures !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/Gen_ReadConfigNL.inc b/deps/ops/public/GenMod_Core/Gen_ReadConfigNL.inc index 644a7771..17557023 100755 --- a/deps/ops/public/GenMod_Core/Gen_ReadConfigNL.inc +++ b/deps/ops/public/GenMod_Core/Gen_ReadConfigNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the GEN config namelist. ! diff --git a/deps/ops/public/GenMod_Core/Gen_StringSplit.inc b/deps/ops/public/GenMod_Core/Gen_StringSplit.inc index 616bdd66..51276bfb 100755 --- a/deps/ops/public/GenMod_Core/Gen_StringSplit.inc +++ b/deps/ops/public/GenMod_Core/Gen_StringSplit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Splits "input" into a character array, using the characters in ! "separator_set" as delimiters. Returns the "output" as a pointer to the diff --git a/deps/ops/public/GenMod_Core/Gen_WriteMessageBody.inc b/deps/ops/public/GenMod_Core/Gen_WriteMessageBody.inc index edc63aa5..f0c47ebb 100755 --- a/deps/ops/public/GenMod_Core/Gen_WriteMessageBody.inc +++ b/deps/ops/public/GenMod_Core/Gen_WriteMessageBody.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Output the body part of a message for a procedure. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/Gen_WriteMessageHeader.inc b/deps/ops/public/GenMod_Core/Gen_WriteMessageHeader.inc index 90484e22..a3fdba9e 100755 --- a/deps/ops/public/GenMod_Core/Gen_WriteMessageHeader.inc +++ b/deps/ops/public/GenMod_Core/Gen_WriteMessageHeader.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Output the header part of a message for a procedure. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_close_stats_file.inc b/deps/ops/public/GenMod_Core/gen_close_stats_file.inc index a56eaf0e..e0e7d287 100755 --- a/deps/ops/public/GenMod_Core/gen_close_stats_file.inc +++ b/deps/ops/public/GenMod_Core/gen_close_stats_file.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Close the file for the statistics output. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_cpu_time.inc b/deps/ops/public/GenMod_Core/gen_cpu_time.inc index 18e748af..4638ceb1 100755 --- a/deps/ops/public/GenMod_Core/gen_cpu_time.inc +++ b/deps/ops/public/GenMod_Core/gen_cpu_time.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns the absolute current CPU time in seconds via a C system call. ! diff --git a/deps/ops/public/GenMod_Core/gen_do_trace.inc b/deps/ops/public/GenMod_Core/gen_do_trace.inc index b6890a12..022d2f17 100755 --- a/deps/ops/public/GenMod_Core/gen_do_trace.inc +++ b/deps/ops/public/GenMod_Core/gen_do_trace.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! General trace within a subroutine. ! diff --git a/deps/ops/public/GenMod_Core/gen_error_report.inc b/deps/ops/public/GenMod_Core/gen_error_report.inc index c4e5913b..fa6755f5 100755 --- a/deps/ops/public/GenMod_Core/gen_error_report.inc +++ b/deps/ops/public/GenMod_Core/gen_error_report.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Report a warning or a fatal error. Terminate the execution in the event of ! a fatal error. diff --git a/deps/ops/public/GenMod_Core/gen_fail.inc b/deps/ops/public/GenMod_Core/gen_fail.inc index ea0f4a2f..cc71a6c9 100644 --- a/deps/ops/public/GenMod_Core/gen_fail.inc +++ b/deps/ops/public/GenMod_Core/gen_fail.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Report a fatal error. Terminate the execution. ! diff --git a/deps/ops/public/GenMod_Core/gen_fortran_version.h b/deps/ops/public/GenMod_Core/gen_fortran_version.h index 98647f69..385b37e6 100755 --- a/deps/ops/public/GenMod_Core/gen_fortran_version.h +++ b/deps/ops/public/GenMod_Core/gen_fortran_version.h @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Define a default Fortran version. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_free_unit.inc b/deps/ops/public/GenMod_Core/gen_free_unit.inc index 5d8dcc2f..811fb680 100755 --- a/deps/ops/public/GenMod_Core/gen_free_unit.inc +++ b/deps/ops/public/GenMod_Core/gen_free_unit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Frees a fortran or C I/O unit number previously assigned by Gen_GetUnit. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_get_env.inc b/deps/ops/public/GenMod_Core/gen_get_env.inc index 5496dc50..0591a319 100755 --- a/deps/ops/public/GenMod_Core/gen_get_env.inc +++ b/deps/ops/public/GenMod_Core/gen_get_env.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an environment variable and returns it. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_get_env_a.inc b/deps/ops/public/GenMod_Core/gen_get_env_a.inc index 1b87147e..6a6b7e2f 100755 --- a/deps/ops/public/GenMod_Core/gen_get_env_a.inc +++ b/deps/ops/public/GenMod_Core/gen_get_env_a.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an environment variable, splits it into a list of strings and returns ! that list. If "separator" is omitted, split on whitespace. diff --git a/deps/ops/public/GenMod_Core/gen_get_unit.inc b/deps/ops/public/GenMod_Core/gen_get_unit.inc index da844ba5..c735faa6 100755 --- a/deps/ops/public/GenMod_Core/gen_get_unit.inc +++ b/deps/ops/public/GenMod_Core/gen_get_unit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Supplies an unused fortran or C I/O unit number. ! diff --git a/deps/ops/public/GenMod_Core/gen_get_unit_from_env.inc b/deps/ops/public/GenMod_Core/gen_get_unit_from_env.inc index 8c2f29a5..89f81d56 100755 --- a/deps/ops/public/GenMod_Core/gen_get_unit_from_env.inc +++ b/deps/ops/public/GenMod_Core/gen_get_unit_from_env.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Opens a file defined in env_list - a list of environment variables - or uses ! file_name_default if present and available, and all environment variables in diff --git a/deps/ops/public/GenMod_Core/gen_message.inc b/deps/ops/public/GenMod_Core/gen_message.inc index 3d0a7f4f..1e2f1fc8 100644 --- a/deps/ops/public/GenMod_Core/gen_message.inc +++ b/deps/ops/public/GenMod_Core/gen_message.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Output a message for a procedure. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_message_report_sync.inc b/deps/ops/public/GenMod_Core/gen_message_report_sync.inc index b4bdcc25..20b685b2 100755 --- a/deps/ops/public/GenMod_Core/gen_message_report_sync.inc +++ b/deps/ops/public/GenMod_Core/gen_message_report_sync.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Output a message for a procedure from all PE's in PE order. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_open_stats_file.inc b/deps/ops/public/GenMod_Core/gen_open_stats_file.inc index 4872bf7d..f916da3f 100755 --- a/deps/ops/public/GenMod_Core/gen_open_stats_file.inc +++ b/deps/ops/public/GenMod_Core/gen_open_stats_file.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open the file for the statistics output. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Core/gen_read_trace_nl.inc b/deps/ops/public/GenMod_Core/gen_read_trace_nl.inc index f8013b49..704063d1 100755 --- a/deps/ops/public/GenMod_Core/gen_read_trace_nl.inc +++ b/deps/ops/public/GenMod_Core/gen_read_trace_nl.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the GEN Trace namelist. ! diff --git a/deps/ops/public/GenMod_Core/gen_replace_text.inc b/deps/ops/public/GenMod_Core/gen_replace_text.inc index 4f8b6741..e869c3b8 100755 --- a/deps/ops/public/GenMod_Core/gen_replace_text.inc +++ b/deps/ops/public/GenMod_Core/gen_replace_text.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Utility to replace segments of a text string. Replace occurrences of a given ! Tag string with another, Replacement string. diff --git a/deps/ops/public/GenMod_Core/gen_summary.inc b/deps/ops/public/GenMod_Core/gen_summary.inc index 6d8c5212..178f2c7b 100755 --- a/deps/ops/public/GenMod_Core/gen_summary.inc +++ b/deps/ops/public/GenMod_Core/gen_summary.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Print number of warnings encountered by PE 0. ! Fail if this is greater than some tolerance. diff --git a/deps/ops/public/GenMod_Core/gen_trace_entry.inc b/deps/ops/public/GenMod_Core/gen_trace_entry.inc index b4a855a4..553f4b2c 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_entry.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_entry.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Trace entry point to subroutine ! diff --git a/deps/ops/public/GenMod_Core/gen_trace_exit.inc b/deps/ops/public/GenMod_Core/gen_trace_exit.inc index 823b4378..e8501e05 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_exit.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_exit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Trace exit point of subroutine. ! diff --git a/deps/ops/public/GenMod_Core/gen_trace_init.inc b/deps/ops/public/GenMod_Core/gen_trace_init.inc index be386183..f3a1d260 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_init.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_init.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Basic setup of trace variables. See gen_trace_initialise for the main setup ! of the tracing code. diff --git a/deps/ops/public/GenMod_Core/gen_trace_initialise.inc b/deps/ops/public/GenMod_Core/gen_trace_initialise.inc index 726b6a4b..fee0579b 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_initialise.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_initialise.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Set up trace routines. ! diff --git a/deps/ops/public/GenMod_Core/gen_trace_int_sort.inc b/deps/ops/public/GenMod_Core/gen_trace_int_sort.inc index 4d41a851..f5333177 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_int_sort.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_int_sort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' in ! increasing order. diff --git a/deps/ops/public/GenMod_Core/gen_trace_real_sort.inc b/deps/ops/public/GenMod_Core/gen_trace_real_sort.inc index 8796ca61..9a971411 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_real_sort.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_real_sort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' in ! increasing order diff --git a/deps/ops/public/GenMod_Core/gen_trace_report.inc b/deps/ops/public/GenMod_Core/gen_trace_report.inc index 87faf088..1165696f 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_report.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_report.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reports trace results. ! diff --git a/deps/ops/public/GenMod_Core/gen_trace_sync.inc b/deps/ops/public/GenMod_Core/gen_trace_sync.inc index 71f8f0fb..dfba4689 100755 --- a/deps/ops/public/GenMod_Core/gen_trace_sync.inc +++ b/deps/ops/public/GenMod_Core/gen_trace_sync.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Control calculation of Obs Penalty, and its gradient w.r.t. PF. ! diff --git a/deps/ops/public/GenMod_Core/gen_warn.inc b/deps/ops/public/GenMod_Core/gen_warn.inc index abf5473d..751675b8 100644 --- a/deps/ops/public/GenMod_Core/gen_warn.inc +++ b/deps/ops/public/GenMod_Core/gen_warn.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Report a warning. ! diff --git a/deps/ops/public/GenMod_Core/gen_write_trace_js_file.inc b/deps/ops/public/GenMod_Core/gen_write_trace_js_file.inc index a7d298b0..03507a90 100755 --- a/deps/ops/public/GenMod_Core/gen_write_trace_js_file.inc +++ b/deps/ops/public/GenMod_Core/gen_write_trace_js_file.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Write the java-script file which controls display of active call tree !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Platform/GenFn_ThreadCount.inc b/deps/ops/public/GenMod_Platform/GenFn_ThreadCount.inc index a9b2e2a8..5d4e9a42 100755 --- a/deps/ops/public/GenMod_Platform/GenFn_ThreadCount.inc +++ b/deps/ops/public/GenMod_Platform/GenFn_ThreadCount.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Discover number of threads in current ream. Seperate routine created as in ! some environments omp_get_num_threads can return integer*4 into an diff --git a/deps/ops/public/GenMod_Platform/GenFn_ThreadMax.inc b/deps/ops/public/GenMod_Platform/GenFn_ThreadMax.inc index 2d501937..09c605c0 100755 --- a/deps/ops/public/GenMod_Platform/GenFn_ThreadMax.inc +++ b/deps/ops/public/GenMod_Platform/GenFn_ThreadMax.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Discover maxmium number of threads in current ream. Seperate routine ! created as in some environments omp_get_max_threads can return integer*4 diff --git a/deps/ops/public/GenMod_Platform/GenFn_ThreadNum.inc b/deps/ops/public/GenMod_Platform/GenFn_ThreadNum.inc index 4386acaf..24eb7954 100755 --- a/deps/ops/public/GenMod_Platform/GenFn_ThreadNum.inc +++ b/deps/ops/public/GenMod_Platform/GenFn_ThreadNum.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Discover current thread number. Seperate routine created as in some ! environments omp_get_thread_num can return integer*4 into an integer*8 diff --git a/deps/ops/public/GenMod_Platform/GenMod_Matmul.F90 b/deps/ops/public/GenMod_Platform/GenMod_Matmul.F90 index d10babfb..ea447ca9 100755 --- a/deps/ops/public/GenMod_Platform/GenMod_Matmul.F90 +++ b/deps/ops/public/GenMod_Platform/GenMod_Matmul.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Replace intrinsic MATMUL with call to ESSL routine DGEMUL. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Platform/GenMod_Platform.F90 b/deps/ops/public/GenMod_Platform/GenMod_Platform.F90 index 57da346f..a34cb512 100755 --- a/deps/ops/public/GenMod_Platform/GenMod_Platform.F90 +++ b/deps/ops/public/GenMod_Platform/GenMod_Platform.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module for general platform specific Fortran code. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Platform/Gen_CPUTime.c b/deps/ops/public/GenMod_Platform/Gen_CPUTime.c index 761971ca..61fb1ef1 100755 --- a/deps/ops/public/GenMod_Platform/Gen_CPUTime.c +++ b/deps/ops/public/GenMod_Platform/Gen_CPUTime.c @@ -1,6 +1,5 @@ /******************************************************************************* * (C) Crown copyright Met Office. All rights reserved. - * Refer to COPYRIGHT.txt of this distribution for details. ******************************************************************************* * NAME * gen_cputime diff --git a/deps/ops/public/GenMod_Platform/Gen_ClockTicks.c b/deps/ops/public/GenMod_Platform/Gen_ClockTicks.c index cd8c4d8a..0bf89c2b 100755 --- a/deps/ops/public/GenMod_Platform/Gen_ClockTicks.c +++ b/deps/ops/public/GenMod_Platform/Gen_ClockTicks.c @@ -1,6 +1,5 @@ /******************************************************************************* * (C) Crown copyright Met Office. All rights reserved. - * Refer to COPYRIGHT.txt of this distribution for details. ******************************************************************************* * NAME * gen_clockticks diff --git a/deps/ops/public/GenMod_Platform/Gen_FlushUnit.inc b/deps/ops/public/GenMod_Platform/Gen_FlushUnit.inc index c8d79e46..605cae0d 100755 --- a/deps/ops/public/GenMod_Platform/Gen_FlushUnit.inc +++ b/deps/ops/public/GenMod_Platform/Gen_FlushUnit.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Flush an I/O unit. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Platform/Gen_GetHostname.c b/deps/ops/public/GenMod_Platform/Gen_GetHostname.c index 4cb0c84e..0cdd59fd 100755 --- a/deps/ops/public/GenMod_Platform/Gen_GetHostname.c +++ b/deps/ops/public/GenMod_Platform/Gen_GetHostname.c @@ -1,6 +1,5 @@ /******************************************************************************* * (C) Crown copyright Met Office. All rights reserved. - * Refer to COPYRIGHT.txt of this distribution for details. ******************************************************************************* * NAME * gen_gethostname diff --git a/deps/ops/public/GenMod_Platform/Gen_Memory.c b/deps/ops/public/GenMod_Platform/Gen_Memory.c index 095564f7..2a4ce79b 100755 --- a/deps/ops/public/GenMod_Platform/Gen_Memory.c +++ b/deps/ops/public/GenMod_Platform/Gen_Memory.c @@ -1,6 +1,5 @@ /******************************************************************************* * (C) Crown copyright Met Office. All rights reserved. - * Refer to COPYRIGHT.txt of this distribution for details. ******************************************************************************* * NAME * gen_memory diff --git a/deps/ops/public/GenMod_Platform/Gen_SetupCPUTime.inc b/deps/ops/public/GenMod_Platform/Gen_SetupCPUTime.inc index 76caee41..d5b8590b 100755 --- a/deps/ops/public/GenMod_Platform/Gen_SetupCPUTime.inc +++ b/deps/ops/public/GenMod_Platform/Gen_SetupCPUTime.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Finds out the scaling factor for CPU time, to allow Gen_CPUTime to return ! seconds. CPU time is found from the POSIX sysconv(_SC_CLK_TCK) function. diff --git a/deps/ops/public/GenMod_Sleep/GenMod_Sleep.f90 b/deps/ops/public/GenMod_Sleep/GenMod_Sleep.f90 index a1664860..5872c375 100755 --- a/deps/ops/public/GenMod_Sleep/GenMod_Sleep.f90 +++ b/deps/ops/public/GenMod_Sleep/GenMod_Sleep.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module for sleeping functionality. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Sleep/Gen_BlockingWait.inc b/deps/ops/public/GenMod_Sleep/Gen_BlockingWait.inc index a1497226..fe588122 100755 --- a/deps/ops/public/GenMod_Sleep/Gen_BlockingWait.inc +++ b/deps/ops/public/GenMod_Sleep/Gen_BlockingWait.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sleep for a decimal number of seconds. ! diff --git a/deps/ops/public/GenMod_Sleep/Gen_Sleep.inc b/deps/ops/public/GenMod_Sleep/Gen_Sleep.inc index 00231d6a..3cd30cc0 100755 --- a/deps/ops/public/GenMod_Sleep/Gen_Sleep.inc +++ b/deps/ops/public/GenMod_Sleep/Gen_Sleep.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sleep for a decimal number of seconds. ! diff --git a/deps/ops/public/GenMod_Sleep/Gen_SleepWrapper.c b/deps/ops/public/GenMod_Sleep/Gen_SleepWrapper.c index f537f6da..0d356eb4 100644 --- a/deps/ops/public/GenMod_Sleep/Gen_SleepWrapper.c +++ b/deps/ops/public/GenMod_Sleep/Gen_SleepWrapper.c @@ -1,6 +1,5 @@ /******************************************************************************* * (C) Crown copyright Met Office. All rights reserved. - * Refer to COPYRIGHT.txt of this distribution for details. ******************************************************************************* * NAME * gen_sleepwrapper diff --git a/deps/ops/public/GenMod_Sleep/Gen_SpinWait.inc b/deps/ops/public/GenMod_Sleep/Gen_SpinWait.inc index 3da877e1..28eee024 100755 --- a/deps/ops/public/GenMod_Sleep/Gen_SpinWait.inc +++ b/deps/ops/public/GenMod_Sleep/Gen_SpinWait.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sleep for a decimal number of seconds. ! diff --git a/deps/ops/public/GenMod_Utilities/GenMod_Utilities.f90 b/deps/ops/public/GenMod_Utilities/GenMod_Utilities.f90 index f7374bcc..bc9bdbd3 100755 --- a/deps/ops/public/GenMod_Utilities/GenMod_Utilities.f90 +++ b/deps/ops/public/GenMod_Utilities/GenMod_Utilities.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Miscellaneous utilities. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_array.inc b/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_array.inc index 0f9f8eb8..c147eddf 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_array.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns time in "Minutes UTC", i.e. minutes since 00:00Z 1/1/1970 ! given input date in the form of yyyy/mm/dd/hh/min diff --git a/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_scalar.inc b/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_scalar.inc index 5c72de8d..67f421af 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_scalar.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_DateToMinUTC_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns time in "Minutes UTC", i.e. minutes since 00:00Z 1/1/1970 ! given input date in the form of yyyy/mm/dd/hh/min diff --git a/deps/ops/public/GenMod_Utilities/Gen_Eq_to_LatLon.inc b/deps/ops/public/GenMod_Utilities/Gen_Eq_to_LatLon.inc index 6704237e..6c400fde 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_Eq_to_LatLon.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_Eq_to_LatLon.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Calculates latitude and longitude on standard grid from input arrays ! of latitude and longitude on equatorial latitude-longitude (eq) grid diff --git a/deps/ops/public/GenMod_Utilities/Gen_GreatCircleDistance.inc b/deps/ops/public/GenMod_Utilities/Gen_GreatCircleDistance.inc index 50baf604..e3405921 100644 --- a/deps/ops/public/GenMod_Utilities/Gen_GreatCircleDistance.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_GreatCircleDistance.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Find the great circle distance between 2 points !------------------------------------------------------------------------------- diff --git a/deps/ops/public/GenMod_Utilities/Gen_LatLon_to_Eq.inc b/deps/ops/public/GenMod_Utilities/Gen_LatLon_to_Eq.inc index 87eee5f4..0bc53af6 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_LatLon_to_Eq.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_LatLon_to_Eq.inc @@ -1,6 +1,5 @@ !----------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !----------------------------------------------------------------------- ! Calculates latitude and longitude on equatorial latitude-longitude ! (eq) grid used in regional models from input arrays of latitude and diff --git a/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_array.inc b/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_array.inc index 76ede0ce..1395be3a 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_array.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates date in broken form given date in the form of minutes ! since 01/01/1970 00:00Z (Universal co-ordinated time) diff --git a/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_scalar.inc b/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_scalar.inc index 3e42bb3c..e4f64299 100755 --- a/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_scalar.inc +++ b/deps/ops/public/GenMod_Utilities/Gen_MinUTCToDate_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Calculates date in broken form given date in the form of minutes ! since 01/01/1970 00:00Z (Universal co-ordinated time) diff --git a/deps/ops/public/OpsMod_CharUtils/OpsMod_CharUtils.f90 b/deps/ops/public/OpsMod_CharUtils/OpsMod_CharUtils.f90 index c7c0de09..c6253eb9 100644 --- a/deps/ops/public/OpsMod_CharUtils/OpsMod_CharUtils.f90 +++ b/deps/ops/public/OpsMod_CharUtils/OpsMod_CharUtils.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Some utility routines for handling characters. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_CharUtils/Ops_StringToReal.inc b/deps/ops/public/OpsMod_CharUtils/Ops_StringToReal.inc index e97f685b..e3db9750 100644 --- a/deps/ops/public/OpsMod_CharUtils/Ops_StringToReal.inc +++ b/deps/ops/public/OpsMod_CharUtils/Ops_StringToReal.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Represents CHARACTER data as REAL data using the f90 TRANSFER function. ! diff --git a/deps/ops/public/OpsMod_CharUtils/ops_join_string_array.inc b/deps/ops/public/OpsMod_CharUtils/ops_join_string_array.inc index 98445ddd..596b0d6d 100644 --- a/deps/ops/public/OpsMod_CharUtils/ops_join_string_array.inc +++ b/deps/ops/public/OpsMod_CharUtils/ops_join_string_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Copies the contents of in_string character by character into out_array. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_CharUtils/ops_string_to_char_array.inc b/deps/ops/public/OpsMod_CharUtils/ops_string_to_char_array.inc index ac95dd20..e1dafb1d 100644 --- a/deps/ops/public/OpsMod_CharUtils/ops_string_to_char_array.inc +++ b/deps/ops/public/OpsMod_CharUtils/ops_string_to_char_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Copies the contents of in_string character by character into out_array. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_CharUtils/ops_to_lower_case.inc b/deps/ops/public/OpsMod_CharUtils/ops_to_lower_case.inc index d8fc4708..a2b074fa 100644 --- a/deps/ops/public/OpsMod_CharUtils/ops_to_lower_case.inc +++ b/deps/ops/public/OpsMod_CharUtils/ops_to_lower_case.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns the input string but with all uppercase letters converted to ! lowercase. diff --git a/deps/ops/public/OpsMod_EnvUtils/OpsMod_EnvUtils.F90 b/deps/ops/public/OpsMod_EnvUtils/OpsMod_EnvUtils.F90 index 37521a97..f8216b68 100644 --- a/deps/ops/public/OpsMod_EnvUtils/OpsMod_EnvUtils.F90 +++ b/deps/ops/public/OpsMod_EnvUtils/OpsMod_EnvUtils.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Some utility routines for handling environment variables. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_false.inc b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_false.inc index 978a6420..f1187c6b 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_false.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_false.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an environment variable; returne "true" if variable contains a "truthy" ! value, false otherwise. Truthy means containing upper or lower case Y or T. diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_set.inc b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_set.inc index 1a75ab31..fb416b32 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_set.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_set.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns true if an environment variable has been set, false otherwise. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_true.inc b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_true.inc index 09df33e0..551eb91c 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_env_is_true.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_env_is_true.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads an environment variable; returne "true" if variable contains a "truthy" ! value, false otherwise. Truthy means containing upper or lower case Y or T. diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character.inc b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character.inc index f62e3795..62fc6542 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read an character string from an environment variable !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character_array.inc b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character_array.inc index 53e75962..6e245b61 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character_array.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_character_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read an array of character strings from an environment variable !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_int.inc b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_int.inc index 041cf41d..23f12058 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_get_env_int.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_get_env_int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Read an integer from an environment variable !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_EnvUtils/ops_set_env_character.inc b/deps/ops/public/OpsMod_EnvUtils/ops_set_env_character.inc index bdc068ab..aa49571d 100644 --- a/deps/ops/public/OpsMod_EnvUtils/ops_set_env_character.inc +++ b/deps/ops/public/OpsMod_EnvUtils/ops_set_env_character.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Sets an environment variable to a value. Any environment variable set this ! way will only be effective for the duration of the program; it will not diff --git a/deps/ops/public/OpsMod_IOUtils/OpsMod_IOUtils.f90 b/deps/ops/public/OpsMod_IOUtils/OpsMod_IOUtils.f90 index 1094e588..36d99615 100644 --- a/deps/ops/public/OpsMod_IOUtils/OpsMod_IOUtils.f90 +++ b/deps/ops/public/OpsMod_IOUtils/OpsMod_IOUtils.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Procedures and constants for file opening and closing. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_CloseCFile.inc b/deps/ops/public/OpsMod_IOUtils/Ops_CloseCFile.inc index 5b0c9603..dca58967 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_CloseCFile.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_CloseCFile.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Close a binary file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_CloseFile.inc b/deps/ops/public/OpsMod_IOUtils/Ops_CloseFile.inc index d46ebc9b..0bc00252 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_CloseFile.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_CloseFile.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Close a text file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_FileSize.inc b/deps/ops/public/OpsMod_IOUtils/Ops_FileSize.inc index 2b863e46..eadc31c1 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_FileSize.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_FileSize.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function to return the size of a file in bytes as portably as possible. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvNew.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvNew.inc index 05ef0a74..f4f1a852 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvNew.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvNew.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a new binary file specified by an environment variable. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvRead.inc index 732639cf..c243f9e9 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnvRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a binary file specified by an environment variable for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnv_inner.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnv_inner.inc index 7c41682b..86f38835 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnv_inner.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCEnv_inner.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Internal routine for opening a binary file specified by an environment ! variable. diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileNew.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileNew.inc index c387c47a..4b3e3ae8 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileNew.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileNew.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a new binary file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileRead.inc index faeda25b..9f951b46 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFileRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a binary file for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFile_inner.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFile_inner.inc index 6189c261..b11f3302 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFile_inner.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenCFile_inner.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Internal routine for opening a binary file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvAppend.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvAppend.inc index 9a8dfd03..b1bfccd3 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvAppend.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvAppend.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file specified by an environment variable for appending. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvNew.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvNew.inc index 7a73889f..f03ed9fe 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvNew.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvNew.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a new text file specified by an environment variable. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvRead.inc index 5e26fc0c..92550eec 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnvRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file specified by an environment variable for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnv_inner.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnv_inner.inc index 198123b5..cdcc2d17 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnv_inner.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenEnv_inner.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Internal routine to open a file specified by an environment variable. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileAppend.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileAppend.inc index 82b566a8..c961bbec 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileAppend.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileAppend.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file for appending. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileNew.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileNew.inc index 3b7a0994..6d57a838 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileNew.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileNew.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a new text file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFilePathRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFilePathRead.inc index 71912c02..4d6658e6 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFilePathRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFilePathRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file specified by an environment variable for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileRead.inc index 30ec7ed9..9d6899fa 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileReadWrite.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileReadWrite.inc index e77906cf..1d417745 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileReadWrite.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFileReadWrite.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file for reading and writing. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFile_inner.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFile_inner.inc index b4cc7836..411673e6 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenFile_inner.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenFile_inner.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Internal file opening routine. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_OpenPathRead.inc b/deps/ops/public/OpsMod_IOUtils/Ops_OpenPathRead.inc index e4c5a085..0f21abc4 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_OpenPathRead.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_OpenPathRead.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Open a text file specified by an environment variable for reading. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_IOUtils/Ops_TouchFile.inc b/deps/ops/public/OpsMod_IOUtils/Ops_TouchFile.inc index 874232ab..709ef19b 100644 --- a/deps/ops/public/OpsMod_IOUtils/Ops_TouchFile.inc +++ b/deps/ops/public/OpsMod_IOUtils/Ops_TouchFile.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Emulates a "touch" shell command by opening and then closing a file. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/OpsMod_Gcom.F90 b/deps/ops/public/OpsMod_MPIInterface/OpsMod_Gcom.F90 index 0bf58370..c2d42a6a 100644 --- a/deps/ops/public/OpsMod_MPIInterface/OpsMod_Gcom.F90 +++ b/deps/ops/public/OpsMod_MPIInterface/OpsMod_Gcom.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains interfaces to GCOM routines. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/OpsMod_MPLInterface.f90 b/deps/ops/public/OpsMod_MPIInterface/OpsMod_MPLInterface.f90 index 96d80a3b..06396637 100644 --- a/deps/ops/public/OpsMod_MPIInterface/OpsMod_MPLInterface.f90 +++ b/deps/ops/public/OpsMod_MPIInterface/OpsMod_MPLInterface.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains wrappers and interfaces to some MPL/MPI routines. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_char.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_char.inc index 92710319..a863f4d4 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_char.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_alltoallv for character arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_integer.inc index 56859e69..c437a689 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_alltoallv for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real.inc index ef20eca8..be3f3533 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_alltoallv for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real2d.inc index 198bcf32..32116f9e 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_alltoallv_real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_alltoallv for 2d real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_barrier.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_barrier.inc index 190a4004..7500ee2d 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_barrier.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_barrier.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_barrier. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer.inc index 50d50fd1..d270fce2 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer2d.inc index 91e1a1f4..f9b8932f 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_integer2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_real.inc index efb5754e..000779cc 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_bcast_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_rank.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_rank.inc index ebd8497f..5b152c9b 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_rank.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_rank.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_comm_rank. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_size.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_size.inc index 9d1c705a..ad0813ad 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_size.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_size.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_comm_size. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_split_type.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_split_type.inc index 5609ea17..e4a33f06 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_split_type.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_comm_split_type.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_comm_split_type for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gather_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gather_integer.inc index 50c72740..e1f714fb 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gather_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gather_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_gather for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_char.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_char.inc index 9c0af6ef..c3b2bcc2 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_char.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_gatherv for character arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_integer.inc index e1d2c2a9..a3fd210c 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_gatherv for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_real.inc index bc63dafc..9ef151cb 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_gatherv_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_gatherv for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_char2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_char2d.inc index 757b9ad0..77b4029f 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_char2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_char2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_irecv for 2d character arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_integer.inc index fce7c06c..df6a7b5f 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_irecv for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_real.inc index 455d1895..aac78ae9 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_irecv_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_irecv for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_char2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_char2d.inc index 812ef2bd..299115dd 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_char2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_char2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_isend for 2d character arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_integer.inc index cdf4392a..9f1d27be 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_isend for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_real.inc index 242e3c28..11cd35c4 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_isend_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_isend for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_integer.inc index 68cebecb..90f2e756 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_recv for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_real.inc index 5bf83b9b..df1524b3 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_recv_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_recv for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_char2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_char2d.inc index 0dd6c79b..cb6aaced 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_char2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_char2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_scatterv for 2d character arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_integer.inc index f3603a05..ddc5305c 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_scatterv for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real.inc index 6749d489..e20d1599 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_scatterv for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real2d.inc index f3af3e81..5f83fe6c 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_scatterv_real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_scatterv for 2d real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_integer.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_integer.inc index 4102c20e..56b23509 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_integer.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_integer.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real.inc index 7d0f5d54..432a62b8 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real2d.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real2d.inc index 9702df1d..981c0cb3 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real2d.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_send_real2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_send for 2d real arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_waitall.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_waitall.inc index e35ac7c2..c134aa8f 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_waitall.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_waitall.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_waitall. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_allocate_shared.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_allocate_shared.inc index 3de2fd5b..9aa98485 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_allocate_shared.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_allocate_shared.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_win_allocate_shared for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_free.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_free.inc index 4c979c39..519a803c 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_free.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_free.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_win_free for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_shared_query.inc b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_shared_query.inc index 415ce232..d6d9b922 100644 --- a/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_shared_query.inc +++ b/deps/ops/public/OpsMod_MPIInterface/ops_mpl_win_shared_query.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for mpl_win_shared_query for integer arguments. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/OpsMod_NetCDF.f90 b/deps/ops/public/OpsMod_NetCDF/OpsMod_NetCDF.f90 index b4933dea..c5dc6436 100644 --- a/deps/ops/public/OpsMod_NetCDF/OpsMod_NetCDF.f90 +++ b/deps/ops/public/OpsMod_NetCDF/OpsMod_NetCDF.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to contain code specific to NetCDF interfacing !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_close.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_close.inc index c38ceafd..6d4c409d 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_close.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_close.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_close !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_create.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_create.inc index 1c091587..80bccde3 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_create.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_create.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_create !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_dim.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_dim.inc index 7fc1d6ce..2c0f4030 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_dim.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_dim.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_def_dim !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_array.inc index baedfd4f..0341755c 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_def_var (arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_scalar.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_scalar.inc index ba7f274a..8ffb289f 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_scalar.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_single.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_single.inc index d3f6b2a4..b2eaffdc 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_single.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_def_var_single.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_def_var (arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_enddef.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_enddef.inc index 5ee71898..0954f984 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_enddef.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_enddef.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_enddef !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_char.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_char.inc index 8ea9e7ac..23a34329 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_char.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_att (character arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_int_scalar.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_int_scalar.inc index 92ce01fc..c4f5da92 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_int_scalar.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_int_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_att (integer scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_real_scalar.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_real_scalar.inc index 760d8a70..dd48f2e9 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_real_scalar.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_att_real_scalar.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_att (real scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array1d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array1d.inc index d19b8962..22606d44 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array1d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (integer 1d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array2d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array2d.inc index caa7a240..42ec791b 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array2d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (integer 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array3d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array3d.inc index 1d38b10b..e77bae10 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array3d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_int_array3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (integer 3d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real.inc index 0c7448b0..a1fe4b74 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array.inc index ac398e71..0c2c7564 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array2d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array2d.inc index 29505f03..d47d1b63 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array2d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (real 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array3d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array3d.inc index daaf352f..46e283ca 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array3d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (real 3d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array4d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array4d.inc index 0b688805..5eb4cc36 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array4d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_get_var_real_array4d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_get_var (real 3d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_dim_len.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_dim_len.inc index 8ac0166c..92487336 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_dim_len.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_dim_len.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inquire_dimension/nf90_inq_dimid for length. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_libvers.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_libvers.inc index 5c5ba0a1..4b5be4cf 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_libvers.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_libvers.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inq_libvers !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_varid.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_varid.inc index 48339900..d19a8c2e 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_varid.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inq_varid.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inq_varid !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attname.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attname.inc index 0dae58aa..be125f09 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attname.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attname.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inquire_variable !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attribute.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attribute.inc index af396f58..8d42235d 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attribute.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_attribute.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inquire_attribute !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_dimension.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_dimension.inc index 8e57fe00..d63e2999 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_dimension.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_dimension.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inquire_dimension !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_variable.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_variable.inc index 320c0929..e011efdd 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_variable.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_inquire_variable.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_inquire_variable !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_open.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_open.inc index 29e2982c..b959d034 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_open.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_open.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_open !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_char.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_char.inc index e3779801..188968cc 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_char.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (character scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16.inc index 3e162f2d..beae76e7 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16_array.inc index e823bab2..29de7914 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int16_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32.inc index 6d67f78e..ec8a6b33 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32_array.inc index 641b4ff8..4519b491 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int32_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64.inc index e4abd011..5269df66 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64_array.inc index d92c4a9b..8aaa2169 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_int64_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (integer arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32.inc index 4ad27057..14ec1016 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (real 32bit scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32_array.inc index be28891c..f992fa15 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real32_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (real 32bit arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64.inc index 1a93e8f0..2f8ff862 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (real scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64_array.inc index f5f53196..7bf1902f 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_att_real64_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_att (real arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char.inc index a4155e4e..c18e667a 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (character scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array.inc index e94003da..f68086e6 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (character 1d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array2d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array2d.inc index 555e52d3..389c7674 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array2d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (character 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array3d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array3d.inc index c476d926..85b699c2 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array3d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_char_array3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (character 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int.inc index f83492fb..3a88f674 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (integer scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array.inc index 1f59a21b..c9d251d3 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (integer arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array2d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array2d.inc index dcf66dd2..d5eeed40 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array2d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (integer 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array3d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array3d.inc index 96cfc782..3e2bd9fe 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array3d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_int_array3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (integer 3d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real.inc index 94d452ce..c4cf5480 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real scalars) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array.inc index 139b546a..5959b289 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array2d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array2d.inc index 41acf777..d4fd0521 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array2d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array2d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array3d.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array3d.inc index ef1c8cb8..a3729752 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array3d.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_put_var_real_array3d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_put_var (real 2d arrays) !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_redef.inc b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_redef.inc index 66ac6ff4..897a680f 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_redef.inc +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_redef.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Wrapper for nf90_redef !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_wrappers.f90 b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_wrappers.f90 index 3438d0a8..b9cf5cdf 100644 --- a/deps/ops/public/OpsMod_NetCDF/ops_netcdf_wrappers.f90 +++ b/deps/ops/public/OpsMod_NetCDF/ops_netcdf_wrappers.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to contain code specific to NetCDF interfacing !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/OpsFn_GetRandomSeed.inc b/deps/ops/public/OpsMod_Random/OpsFn_GetRandomSeed.inc index 6bde82bf..fe911e63 100644 --- a/deps/ops/public/OpsMod_Random/OpsFn_GetRandomSeed.inc +++ b/deps/ops/public/OpsMod_Random/OpsFn_GetRandomSeed.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Returns the value of the random seed. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/OpsMod_Random.f90 b/deps/ops/public/OpsMod_Random/OpsMod_Random.f90 index 98e732b3..9882cb76 100644 --- a/deps/ops/public/OpsMod_Random/OpsMod_Random.f90 +++ b/deps/ops/public/OpsMod_Random/OpsMod_Random.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Random number variables, constants and routines. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/Ops_InitRandom.inc b/deps/ops/public/OpsMod_Random/Ops_InitRandom.inc index 1a10d75a..ac2fad89 100644 --- a/deps/ops/public/OpsMod_Random/Ops_InitRandom.inc +++ b/deps/ops/public/OpsMod_Random/Ops_InitRandom.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialise or adjust the random number variables !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/Ops_RandomNumberInt_array1d.inc b/deps/ops/public/OpsMod_Random/Ops_RandomNumberInt_array1d.inc index 776e7419..79526e08 100644 --- a/deps/ops/public/OpsMod_Random/Ops_RandomNumberInt_array1d.inc +++ b/deps/ops/public/OpsMod_Random/Ops_RandomNumberInt_array1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate random numbers using the Fortran intrinsic method !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/Ops_RandomNumberMeto_array1d.inc b/deps/ops/public/OpsMod_Random/Ops_RandomNumberMeto_array1d.inc index b5702730..faebd83b 100644 --- a/deps/ops/public/OpsMod_Random/Ops_RandomNumberMeto_array1d.inc +++ b/deps/ops/public/OpsMod_Random/Ops_RandomNumberMeto_array1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate random numbers using the Meto method. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Random/Ops_RandomNumber_array1d.inc b/deps/ops/public/OpsMod_Random/Ops_RandomNumber_array1d.inc index 81c51df4..86f8384c 100644 --- a/deps/ops/public/OpsMod_Random/Ops_RandomNumber_array1d.inc +++ b/deps/ops/public/OpsMod_Random/Ops_RandomNumber_array1d.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate random numbers, choosing the method specified by random_number_method ! in the module diff --git a/deps/ops/public/OpsMod_Random/Ops_RandomSeed.inc b/deps/ops/public/OpsMod_Random/Ops_RandomSeed.inc index 735e4bd7..7ce4d9f6 100644 --- a/deps/ops/public/OpsMod_Random/Ops_RandomSeed.inc +++ b/deps/ops/public/OpsMod_Random/Ops_RandomSeed.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Setup random seed, choosing the method specified by random_number_method in ! the module diff --git a/deps/ops/public/OpsMod_Random/Ops_ReadRandomControlNL.inc b/deps/ops/public/OpsMod_Random/Ops_ReadRandomControlNL.inc index a89c3fe3..3bb3d23c 100644 --- a/deps/ops/public/OpsMod_Random/Ops_ReadRandomControlNL.inc +++ b/deps/ops/public/OpsMod_Random/Ops_ReadRandomControlNL.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Reads the random control namelist and sets the random number variables with ! the values. diff --git a/deps/ops/public/OpsMod_Random/ops_gaussian_mapping.inc b/deps/ops/public/OpsMod_Random/ops_gaussian_mapping.inc index 4433e466..cf792d0c 100644 --- a/deps/ops/public/OpsMod_Random/ops_gaussian_mapping.inc +++ b/deps/ops/public/OpsMod_Random/ops_gaussian_mapping.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generate Gaussian distributed random numbers. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Sort/OpsMod_Sort.f90 b/deps/ops/public/OpsMod_Sort/OpsMod_Sort.f90 index 6fc2ada6..bb68ff9f 100644 --- a/deps/ops/public/OpsMod_Sort/OpsMod_Sort.f90 +++ b/deps/ops/public/OpsMod_Sort/OpsMod_Sort.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to contain sorting routines for use in the OPS !------------------------------------------------------------------------------- diff --git a/deps/ops/public/OpsMod_Sort/Ops_CharSearch.inc b/deps/ops/public/OpsMod_Sort/Ops_CharSearch.inc index 40365d0d..9e3835ef 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_CharSearch.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_CharSearch.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Searches the string array y for the character value(s) x using the ! index. diff --git a/deps/ops/public/OpsMod_Sort/Ops_CharSort.inc b/deps/ops/public/OpsMod_Sort/Ops_CharSort.inc index 2ecf15b9..9f3f97ff 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_CharSort.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_CharSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the character ! string array 'key' in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_CharSortQuick.inc b/deps/ops/public/OpsMod_Sort/Ops_CharSortQuick.inc index 290d0dbd..3b54f0e7 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_CharSortQuick.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_CharSortQuick.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' ! in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_InitSort.inc b/deps/ops/public/OpsMod_Sort/Ops_InitSort.inc index ca97de20..3ca452cf 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_InitSort.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_InitSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialises the index and grpinfo arrays ! diff --git a/deps/ops/public/OpsMod_Sort/Ops_InitSortMask.inc b/deps/ops/public/OpsMod_Sort/Ops_InitSortMask.inc index e97e04c2..487649de 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_InitSortMask.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_InitSortMask.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Initialises the index and grpinfo arrays for subsequent sorting including ! items for which mask is true. diff --git a/deps/ops/public/OpsMod_Sort/Ops_IntegerSearch.inc b/deps/ops/public/OpsMod_Sort/Ops_IntegerSearch.inc index c55a9baa..7aca8b03 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_IntegerSearch.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_IntegerSearch.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Searches the integer array y for the integer value x using the index. ! diff --git a/deps/ops/public/OpsMod_Sort/Ops_IntegerSort.inc b/deps/ops/public/OpsMod_Sort/Ops_IntegerSort.inc index baad7231..01a5fcc9 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_IntegerSort.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_IntegerSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' ! in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_IntegerSortQuick.inc b/deps/ops/public/OpsMod_Sort/Ops_IntegerSortQuick.inc index 1964755a..48d15268 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_IntegerSortQuick.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_IntegerSortQuick.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' ! in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_OneCharSort.inc b/deps/ops/public/OpsMod_Sort/Ops_OneCharSort.inc index 0a52a7ad..e51e6847 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_OneCharSort.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_OneCharSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the single ! character array 'key' in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_RealSearchIndex.inc b/deps/ops/public/OpsMod_Sort/Ops_RealSearchIndex.inc index dd363edc..696864f5 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_RealSearchIndex.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_RealSearchIndex.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Searches the real array y for the real value x using the index. ! diff --git a/deps/ops/public/OpsMod_Sort/Ops_RealSearchNoIndex.inc b/deps/ops/public/OpsMod_Sort/Ops_RealSearchNoIndex.inc index ddfd8d44..11ceabd1 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_RealSearchNoIndex.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_RealSearchNoIndex.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Searches the monotonic real array y for the integer value x ! diff --git a/deps/ops/public/OpsMod_Sort/Ops_RealSort.inc b/deps/ops/public/OpsMod_Sort/Ops_RealSort.inc index 16a448bb..5ea14a60 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_RealSort.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_RealSort.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the real ! array 'key' in increasing order diff --git a/deps/ops/public/OpsMod_Sort/Ops_RealSortQuick.inc b/deps/ops/public/OpsMod_Sort/Ops_RealSortQuick.inc index 5372654f..e0b8a222 100644 --- a/deps/ops/public/OpsMod_Sort/Ops_RealSortQuick.inc +++ b/deps/ops/public/OpsMod_Sort/Ops_RealSortQuick.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Generates a index array pointing to the elements of the array 'key' ! in increasing order diff --git a/deps/ops/public/OpsMod_UMInterface/OpsMod_UMInterface.f90 b/deps/ops/public/OpsMod_UMInterface/OpsMod_UMInterface.f90 index 1f10e50c..2ee19288 100644 --- a/deps/ops/public/OpsMod_UMInterface/OpsMod_UMInterface.f90 +++ b/deps/ops/public/OpsMod_UMInterface/OpsMod_UMInterface.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module makes certain UM portio functions available and handles ! dependencies on portio header files. diff --git a/deps/ops/public/OpsMod_VerticalInterp/OpsMod_VerticalInterp.f90 b/deps/ops/public/OpsMod_VerticalInterp/OpsMod_VerticalInterp.f90 index b316b699..0fa10c8b 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/OpsMod_VerticalInterp.f90 +++ b/deps/ops/public/OpsMod_VerticalInterp/OpsMod_VerticalInterp.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Procedures to perform linear, cubic Lagrange or quintic lagrange vertical ! interpolations on 3D fields. diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VertInterpCxUV2ObHeight.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VertInterpCxUV2ObHeight.inc index 77521961..2e76ec83 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VertInterpCxUV2ObHeight.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VertInterpCxUV2ObHeight.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs linear vertical interpolation on Cx columns. Taking values from model ! heights to observation height. Sets extrapolated data to zero and sets flag diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp.inc index 027f378c..e4cf3d90 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs linear, cubic Lagrange or quintic lagrange vertical interpolations on ! 3D fields. The horizontal location of points must be the same for both the diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp1D.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp1D.inc index 00cc79fa..0f937335 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp1D.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterp1D.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs a cubic Lagrange interpolation in the vertical from DataIn at RIn ! altitudes to DataOut at ROut altitudes. diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpCubic.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpCubic.inc index 767a709e..fe4f899e 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpCubic.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpCubic.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs a cubic Lagrange interpolation in the vertical from DataIn at RIn ! altitudes to DataOut at ROut altitudes. diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinWts.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinWts.inc index aa47f016..7894cdd8 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinWts.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinWts.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Produces weights for a linear interpolation in the vertical from DataIn at RIn ! altitudes to DataOut at ROut altitudes. diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinear.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinear.inc index 3f393f32..50361d56 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinear.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpLinear.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs a cubic Lagrange interpolation in the vertical from DataIn at RIn ! altitudes to DataOut at ROut altitudes. diff --git a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpQuintic.inc b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpQuintic.inc index 90b4d307..a5dc7dcd 100644 --- a/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpQuintic.inc +++ b/deps/ops/public/OpsMod_VerticalInterp/Ops_VerticalInterpQuintic.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Performs a quintic Lagrange interpolation in the vertical from DataIn at RIn ! altitudes to DataOut at ROut altitudes. diff --git a/deps/ops/public/Ops_Constants/GenMod_CLookAdd.f90 b/deps/ops/public/Ops_Constants/GenMod_CLookAdd.f90 index 6dddf22f..36cd8aca 100755 --- a/deps/ops/public/Ops_Constants/GenMod_CLookAdd.f90 +++ b/deps/ops/public/Ops_Constants/GenMod_CLookAdd.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Lookup header stuff from the UM. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/GenMod_Constants.f90 b/deps/ops/public/Ops_Constants/GenMod_Constants.f90 index f9421a77..01cc44ec 100755 --- a/deps/ops/public/Ops_Constants/GenMod_Constants.f90 +++ b/deps/ops/public/Ops_Constants/GenMod_Constants.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store physical constants and other global parameters. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/GenMod_MiscUMScienceConstants.f90 b/deps/ops/public/Ops_Constants/GenMod_MiscUMScienceConstants.f90 index 22414434..1497fd12 100755 --- a/deps/ops/public/Ops_Constants/GenMod_MiscUMScienceConstants.f90 +++ b/deps/ops/public/Ops_Constants/GenMod_MiscUMScienceConstants.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Miscellaneous science constants from the UM. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/GenMod_UMHeaderConstants.f90 b/deps/ops/public/Ops_Constants/GenMod_UMHeaderConstants.f90 index 4fe2693e..11a73cec 100755 --- a/deps/ops/public/Ops_Constants/GenMod_UMHeaderConstants.f90 +++ b/deps/ops/public/Ops_Constants/GenMod_UMHeaderConstants.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! UM header stuff from the UM. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsFn_ASRToClrGeoGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_ASRToClrGeoGroup.inc index 8a2808d9..daa82d2f 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_ASRToClrGeoGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_ASRToClrGeoGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns the Clr ObsGroup which corresponds to a given ASR ! ObsGroup diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsAHIGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsAHIGroup.inc index 547cc5b0..3507a6eb 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsAHIGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsAHIGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns .TRUE. if given obs group is a AHI obs group, false ! if not. diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsASRGeoGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsASRGeoGroup.inc index 01568ec8..ead248fa 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsASRGeoGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsASRGeoGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns .TRUE. if given obs group is a SatRad group, false if ! not. diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsClrGeoGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsClrGeoGroup.inc index 36937f30..e3a714ae 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsClrGeoGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsClrGeoGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns .TRUE. if given obs group is a SatRad group, false if ! not. diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsModelLevelGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsModelLevelGroup.inc index 7f0546ae..c8aa9900 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsModelLevelGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsModelLevelGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Return true or false according to whether ObsGroup is model level. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsSEVIRIGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsSEVIRIGroup.inc index d9610242..491a5f30 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsSEVIRIGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsSEVIRIGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns .TRUE. if given obs group is a SEVIRI obs group, false ! if not. diff --git a/deps/ops/public/Ops_Constants/OpsFn_IsSatRadGroup.inc b/deps/ops/public/Ops_Constants/OpsFn_IsSatRadGroup.inc index b34127cd..9549637b 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_IsSatRadGroup.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_IsSatRadGroup.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Function that returns .TRUE. if given obs group is a SatRad group, false if ! not. diff --git a/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNameToNum.inc b/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNameToNum.inc index cd731669..2cc662bb 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNameToNum.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNameToNum.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Convert an obs group name to a number. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNumToName.inc b/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNumToName.inc index f1877cdc..c9ba3b1e 100644 --- a/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNumToName.inc +++ b/deps/ops/public/Ops_Constants/OpsFn_ObsGroupNumToName.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Convert an obs group number to a name. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_Ancil.f90 b/deps/ops/public/Ops_Constants/OpsMod_Ancil.f90 index 48f16fd6..0c119652 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_Ancil.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_Ancil.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Ancillary file codes used in OPS. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_BufrDescriptors.f90 b/deps/ops/public/Ops_Constants/OpsMod_BufrDescriptors.f90 index d62b53d4..acd20f63 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_BufrDescriptors.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_BufrDescriptors.f90 @@ -2,8 +2,6 @@ MODULE OpsMod_BufrDescriptors !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! For further details please refer to the file COPYRIGHT.txt -! which you should have received as part of this distribution. !------------------------------------------------------------------------------- ! DESCRIPTION ! Contains BUFR descriptors for use in routines for associated data file diff --git a/deps/ops/public/Ops_Constants/OpsMod_CXIndexes.f90 b/deps/ops/public/Ops_Constants/OpsMod_CXIndexes.f90 index 9d548a2e..c99fe3b5 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_CXIndexes.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_CXIndexes.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! This module currently contains CX indexes. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_Constants.f90 b/deps/ops/public/Ops_Constants/OpsMod_Constants.f90 index f17e711a..9f148880 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_Constants.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_Constants.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store physical constants and other global parameters. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_Kinds.F90 b/deps/ops/public/Ops_Constants/OpsMod_Kinds.F90 index 4a0b6bc4..3ff6d90e 100755 --- a/deps/ops/public/Ops_Constants/OpsMod_Kinds.F90 +++ b/deps/ops/public/Ops_Constants/OpsMod_Kinds.F90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store kind values for various datatypes. Platform dependencies ! can be isolated here. diff --git a/deps/ops/public/Ops_Constants/OpsMod_ObsGroupInfo.f90 b/deps/ops/public/Ops_Constants/OpsMod_ObsGroupInfo.f90 index 01557578..bc308a6a 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_ObsGroupInfo.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_ObsGroupInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Possible settings of ObsGroup in OBheader_type, CXheader_type. We do not ! delete obs group numbers from here even if support is removed from the code. diff --git a/deps/ops/public/Ops_Constants/OpsMod_ObsTypes.f90 b/deps/ops/public/Ops_Constants/OpsMod_ObsTypes.f90 index 4831223b..015a43ae 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_ObsTypes.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_ObsTypes.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Possible settings of Obs type. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_OrigCtrs.f90 b/deps/ops/public/Ops_Constants/OpsMod_OrigCtrs.f90 index 0da125a9..b7fdacfd 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_OrigCtrs.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_OrigCtrs.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store originating centres. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_SatIds.f90 b/deps/ops/public/Ops_Constants/OpsMod_SatIds.f90 index ce2fca62..40feef2a 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_SatIds.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_SatIds.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store satellite identifiers. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/OpsMod_Stash.f90 b/deps/ops/public/Ops_Constants/OpsMod_Stash.f90 index 36a01931..16ed32d1 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_Stash.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_Stash.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! STASH codes used in OPS and VAR. ! diff --git a/deps/ops/public/Ops_Constants/OpsMod_Varfields.f90 b/deps/ops/public/Ops_Constants/OpsMod_Varfields.f90 index af60351f..d31d9d12 100644 --- a/deps/ops/public/Ops_Constants/OpsMod_Varfields.f90 +++ b/deps/ops/public/Ops_Constants/OpsMod_Varfields.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to store varfields. ! diff --git a/deps/ops/public/Ops_Constants/Ops_SubTypeNameToNum.inc b/deps/ops/public/Ops_Constants/Ops_SubTypeNameToNum.inc index d204227e..f2b1aee5 100644 --- a/deps/ops/public/Ops_Constants/Ops_SubTypeNameToNum.inc +++ b/deps/ops/public/Ops_Constants/Ops_SubTypeNameToNum.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Maps subtype names to subtype numbers. !------------------------------------------------------------------------------- diff --git a/deps/ops/public/Ops_Constants/Ops_SubTypeNumToName.inc b/deps/ops/public/Ops_Constants/Ops_SubTypeNumToName.inc index 7f1111d0..34730143 100644 --- a/deps/ops/public/Ops_Constants/Ops_SubTypeNumToName.inc +++ b/deps/ops/public/Ops_Constants/Ops_SubTypeNumToName.inc @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Maps subtype numbers to subtype names. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_AODGeneral/OpsMod_AODGeneral.f90 b/deps/ops/stubs/OpsMod_AODGeneral/OpsMod_AODGeneral.f90 index d7c2bd05..7fe35cba 100644 --- a/deps/ops/stubs/OpsMod_AODGeneral/OpsMod_AODGeneral.f90 +++ b/deps/ops/stubs/OpsMod_AODGeneral/OpsMod_AODGeneral.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! AOD code and variables used by both OPS and VAR. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSRO.f90 b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSRO.f90 index 7f78049e..41256afa 100644 --- a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSRO.f90 +++ b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSRO.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Procedures for GPSRO processing. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo.f90 b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo.f90 index b976b66e..0c69f41b 100644 --- a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo.f90 +++ b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains parameters for global access in Ops_GPSRO_Process !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo_BA.f90 b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo_BA.f90 index 3e4908f1..8cbc9989 100644 --- a/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo_BA.f90 +++ b/deps/ops/stubs/OpsMod_GPSRO/OpsMod_GPSROInfo_BA.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains parameters for global access in Ops_GPSRO_Process !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_GroundGPS/OpsMod_GroundGPS.f90 b/deps/ops/stubs/OpsMod_GroundGPS/OpsMod_GroundGPS.f90 index e1169ad8..a4d00347 100644 --- a/deps/ops/stubs/OpsMod_GroundGPS/OpsMod_GroundGPS.f90 +++ b/deps/ops/stubs/OpsMod_GroundGPS/OpsMod_GroundGPS.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to contain variables and routines specific to Ground GPS. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_Radar/OpsMod_Radar.f90 b/deps/ops/stubs/OpsMod_Radar/OpsMod_Radar.f90 index 48174205..0d44a200 100644 --- a/deps/ops/stubs/OpsMod_Radar/OpsMod_Radar.f90 +++ b/deps/ops/stubs/OpsMod_Radar/OpsMod_Radar.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Declares variables and parameters associated with radar obs group. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_RadarZ/OpsMod_RadarZ.f90 b/deps/ops/stubs/OpsMod_RadarZ/OpsMod_RadarZ.f90 index de58e00c..b6ee358e 100644 --- a/deps/ops/stubs/OpsMod_RadarZ/OpsMod_RadarZ.f90 +++ b/deps/ops/stubs/OpsMod_RadarZ/OpsMod_RadarZ.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Declares variables and parameters associated with radarZ obs group !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/OpsMod_Sonde/OpsMod_SondeDrift.f90 b/deps/ops/stubs/OpsMod_Sonde/OpsMod_SondeDrift.f90 index 45986157..d11d1d5c 100644 --- a/deps/ops/stubs/OpsMod_Sonde/OpsMod_SondeDrift.f90 +++ b/deps/ops/stubs/OpsMod_Sonde/OpsMod_SondeDrift.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Module to contain code specific to radiosonde observations drifting. !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/Ops_SatRad_Info/OpsMod_SatRad_RTmodel.f90 b/deps/ops/stubs/Ops_SatRad_Info/OpsMod_SatRad_RTmodel.f90 index cb519a1f..911de044 100644 --- a/deps/ops/stubs/Ops_SatRad_Info/OpsMod_SatRad_RTmodel.f90 +++ b/deps/ops/stubs/Ops_SatRad_Info/OpsMod_SatRad_RTmodel.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Contains constants for use with RTTOV !------------------------------------------------------------------------------- diff --git a/deps/ops/stubs/Ops_SatRad_SetUp/OpsMod_SatRad_SetUp.f90 b/deps/ops/stubs/Ops_SatRad_SetUp/OpsMod_SatRad_SetUp.f90 index a22314b3..9d981da6 100644 --- a/deps/ops/stubs/Ops_SatRad_SetUp/OpsMod_SatRad_SetUp.f90 +++ b/deps/ops/stubs/Ops_SatRad_SetUp/OpsMod_SatRad_SetUp.f90 @@ -1,6 +1,5 @@ !------------------------------------------------------------------------------- ! (C) Crown copyright Met Office. All rights reserved. -! Refer to COPYRIGHT.txt of this distribution for details. !------------------------------------------------------------------------------- ! Namelist definitions and data file information for satellite radiance ! processing. diff --git a/deps/update_copyright.sh b/deps/update_copyright.sh new file mode 100755 index 00000000..1f6ebded --- /dev/null +++ b/deps/update_copyright.sh @@ -0,0 +1,37 @@ +#!/bin/bash -e +#shellcheck disable=2086 +# +# Update copyright statements removing unnecessary text from file headers +# in gcom and ops codes. +# +MY_DIR="$(dirname "$0")" + +echo "1. pdating gcom headers..." +# Delete 2 lines from line matching gcom_patss +gcom_pats=("Please refer to Copyright file in top level GCOM directory" + "For further details please refer to the file Copyright") +if flist=$(grep -Rl "${gcom_pats[0]}\|${gcom_pats[1]}" "${MY_DIR}/gcom"); then + sed -i "/${gcom_pats[0]}/,+1d;/${gcom_pats[1]}/,+1d" $flist +else :; +fi + +echo "2. Updating ops headers..." +# Delete single/two lines matching ops_pat1/ops_pat2 respectively +ops_pat1="Refer to COPYRIGHT.txt of this distribution for details." +if flist=$(grep -Rl "$ops_pat1" "${MY_DIR}/ops"); then + sed -i "/$ops_pat1/d" $flist +else :; +fi + +ops_pat2="For further details please refer to the file COPYRIGHT.txt" +if flist=$(grep -Rl "$ops_pat2" "${MY_DIR}/ops"); then + sed -i "/$ops_pat2/,+1d" $flist +else :; +fi + +# --- using find (little slower) +# find "${MY_DIR}/gcom" -type f -exec \ +# sed -i "/${gcom_pats[0]}/,+1d;/${gcom_pats[1]}/,+1d" {} \; +# find "${MY_DIR}/ops" -type f -exec sed -i "/$ops_pat1/d" {} \; +# find "${MY_DIR}/ops" -type f -exec sed -i "/$ops_pat2/,+1d" {} \; +# --- diff --git a/deps/update_gcom_sources.sh b/deps/update_gcom_sources.sh index c482c7b5..f010879c 100755 --- a/deps/update_gcom_sources.sh +++ b/deps/update_gcom_sources.sh @@ -1,4 +1,4 @@ -#!/bin/bash +#!/bin/bash -e # Usage: # @@ -8,31 +8,34 @@ # subdirectories. Then copy Gcom source files from (which # should be a directory containing a working copy of the Gcom FCM # repository) into these subdirectories. +# GCOM source available from +# https://code.metoffice.gov.uk/trac/gcom +# -MY_DIR="`dirname "$0"`" +MY_DIR="$(dirname "$0")" MY_DIR="`( cd "$MY_DIR" && pwd )`" -DEST_DIR="$MY_DIR/gcom" -SRC_DIR="$1" +DEST_DIR="${MY_DIR}/gcom" +SRC_DIR="${1:?Missing Source Directory}" echo "Clearing $DEST_DIR/gc..." -rm -rf $DEST_DIR/gc +rm -rf "${DEST_DIR}/gc" -echo "Clearing $DEST_DIR/gcg..." -rm -rf $DEST_DIR/gcg +echo "Clearing ${DEST_DIR}/gcg..." +rm -rf "${DEST_DIR}/gcg" echo "Clearing $DEST_DIR/include..." -rm -rf $DEST_DIR/include +rm -rf "${DEST_DIR}/include" -echo "Clearing $DEST_DIR/mpl..." -rm -rf $DEST_DIR/mpl +echo "Clearing ${DEST_DIR}/mpl..." +rm -rf "${DEST_DIR}/mpl" echo "Copying files from $PWD to $DEST_DIR..." cd "$SRC_DIR/build" -cp --parents --recursive gc $DEST_DIR -cp --parents --recursive gcg $DEST_DIR -cp --parents --recursive include $DEST_DIR -cp --parents --recursive mpl $DEST_DIR +cp --parents --recursive gc "$DEST_DIR" +cp --parents --recursive gcg "$DEST_DIR" +cp --parents --recursive include "$DEST_DIR" +cp --parents --recursive mpl "$DEST_DIR" echo "Done" diff --git a/deps/update_ops_sources.sh b/deps/update_ops_sources.sh index c633b210..2f6d1695 100755 --- a/deps/update_ops_sources.sh +++ b/deps/update_ops_sources.sh @@ -1,3 +1,4 @@ +#!/bin/bash -e # Usage: # # update_ops_sources.sh @@ -6,72 +7,74 @@ # source files needed to build opsinputs from (which should # be a directory containing a working copy of the OPS FCM repository) # into these subdirectories. +# OPS source available from https://code.metoffice.gov.uk/trac/ops -MY_DIR="`dirname "$0"`" + +MY_DIR="$(dirname "$0")" MY_DIR="`( cd "$MY_DIR" && pwd )`" DEST_DIR="$MY_DIR/ops" -SRC_DIR="$1" +SRC_DIR="${1:?Missing Source Directory}" -echo "Clearing $DEST_DIR/code..." -rm -rf $DEST_DIR/code +echo "Clearing ${DEST_DIR}/code..." +rm -rf "${DEST_DIR}/code" -echo "Clearing $DEST_DIR/public..." -rm -rf $DEST_DIR/public +echo "Clearing ${DEST_DIR}/public..." +rm -rf "${DEST_DIR}/public" -echo "Copying files from $PWD to $DEST_DIR..." +echo "Copying files from $SRC_DIR to $DEST_DIR..." cd "$SRC_DIR/src" -cp --parents --recursive code/GenMod_ModelIO $DEST_DIR -cp --parents --recursive code/OpsMod_AirQuality $DEST_DIR -cp --parents --recursive code/OpsMod_Argument $DEST_DIR -cp --parents --recursive code/OpsMod_CXGenerate $DEST_DIR -cp --parents --recursive code/OpsMod_CXInfo $DEST_DIR -cp --parents --recursive code/OpsMod_Control $DEST_DIR -cp --parents --recursive code/OpsMod_DateTime $DEST_DIR -cp --parents --recursive code/OpsMod_GatherSpread $DEST_DIR -cp --parents --recursive code/OpsMod_HorizontalInterp $DEST_DIR -cp --parents --recursive code/OpsMod_ModelColumnIO $DEST_DIR -cp --parents --recursive code/OpsMod_ModelIO $DEST_DIR -cp --parents --recursive code/OpsMod_ModelObInfo $DEST_DIR -cp --parents --recursive code/OpsMod_ObTypeUtils $DEST_DIR -cp --parents --recursive code/OpsMod_ObsInfo $DEST_DIR -cp --parents --recursive code/OpsMod_ODB $DEST_DIR -cp --parents --recursive code/OpsMod_Process $DEST_DIR -cp --parents --recursive code/OpsMod_QC $DEST_DIR -cp --parents --recursive code/OpsMod_UMImport $DEST_DIR -cp --parents --recursive code/OpsMod_Utilities $DEST_DIR -cp --parents --recursive code/OpsMod_Varobs $DEST_DIR -cp --parents --recursive code/OpsMod_VarobsLib $DEST_DIR -cp --parents --recursive public/GenMod_Control $DEST_DIR -cp --parents --recursive public/GenMod_Core $DEST_DIR -cp --parents --recursive public/GenMod_Platform $DEST_DIR -cp --parents --recursive public/GenMod_Sleep $DEST_DIR -cp --parents --recursive public/GenMod_Utilities $DEST_DIR -cp --parents --recursive public/OpsMod_CharUtils $DEST_DIR -cp --parents --recursive public/OpsMod_EnvUtils $DEST_DIR -cp --parents --recursive public/OpsMod_IOUtils $DEST_DIR -cp --parents --recursive public/OpsMod_MPIInterface $DEST_DIR -cp --parents --recursive public/OpsMod_NetCDF $DEST_DIR -cp --parents --recursive public/OpsMod_Random $DEST_DIR -cp --parents --recursive public/OpsMod_Sort $DEST_DIR -cp --parents --recursive public/OpsMod_UMInterface $DEST_DIR -cp --parents --recursive public/OpsMod_VerticalInterp $DEST_DIR -cp --parents --recursive public/Ops_Constants $DEST_DIR +cp --parents --recursive code/GenMod_ModelIO "$DEST_DIR" +cp --parents --recursive code/OpsMod_AirQuality "$DEST_DIR" +cp --parents --recursive code/OpsMod_Argument "$DEST_DIR" +cp --parents --recursive code/OpsMod_CXGenerate "$DEST_DIR" +cp --parents --recursive code/OpsMod_CXInfo "$DEST_DIR" +cp --parents --recursive code/OpsMod_Control "$DEST_DIR" +cp --parents --recursive code/OpsMod_DateTime "$DEST_DIR" +cp --parents --recursive code/OpsMod_GatherSpread "$DEST_DIR" +cp --parents --recursive code/OpsMod_HorizontalInterp "$DEST_DIR" +cp --parents --recursive code/OpsMod_ModelColumnIO "$DEST_DIR" +cp --parents --recursive code/OpsMod_ModelIO "$DEST_DIR" +cp --parents --recursive code/OpsMod_ModelObInfo "$DEST_DIR" +cp --parents --recursive code/OpsMod_ObTypeUtils "$DEST_DIR" +cp --parents --recursive code/OpsMod_ObsInfo "$DEST_DIR" +cp --parents --recursive code/OpsMod_ODB "$DEST_DIR" +cp --parents --recursive code/OpsMod_Process "$DEST_DIR" +cp --parents --recursive code/OpsMod_QC "$DEST_DIR" +cp --parents --recursive code/OpsMod_UMImport "$DEST_DIR" +cp --parents --recursive code/OpsMod_Utilities "$DEST_DIR" +cp --parents --recursive code/OpsMod_Varobs "$DEST_DIR" +cp --parents --recursive code/OpsMod_VarobsLib "$DEST_DIR" +cp --parents --recursive public/GenMod_Control "$DEST_DIR" +cp --parents --recursive public/GenMod_Core "$DEST_DIR" +cp --parents --recursive public/GenMod_Platform "$DEST_DIR" +cp --parents --recursive public/GenMod_Sleep "$DEST_DIR" +cp --parents --recursive public/GenMod_Utilities "$DEST_DIR" +cp --parents --recursive public/OpsMod_CharUtils "$DEST_DIR" +cp --parents --recursive public/OpsMod_EnvUtils "$DEST_DIR" +cp --parents --recursive public/OpsMod_IOUtils "$DEST_DIR" +cp --parents --recursive public/OpsMod_MPIInterface "$DEST_DIR" +cp --parents --recursive public/OpsMod_NetCDF "$DEST_DIR" +cp --parents --recursive public/OpsMod_Random "$DEST_DIR" +cp --parents --recursive public/OpsMod_Sort "$DEST_DIR" +cp --parents --recursive public/OpsMod_UMInterface "$DEST_DIR" +cp --parents --recursive public/OpsMod_VerticalInterp "$DEST_DIR" +cp --parents --recursive public/Ops_Constants "$DEST_DIR" -cp --parents code/OpsProg_Utils/OpsMod_PrintCX.f90 $DEST_DIR -cp --parents code/OpsProg_Utils/OpsMod_PrintVarobs.f90 $DEST_DIR -cp --parents code/OpsProg_Utils/OpsMod_UtilsProgs.f90 $DEST_DIR -cp --parents code/OpsProg_Utils/OpsProg_PrintCXFile.F90 $DEST_DIR -cp --parents code/OpsProg_Utils/OpsProg_PrintVarobs.F90 $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintBatchObByOb.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintCXBatches.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintCXHeader.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintFixedHeader.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintVarobsHeader.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_PrintVarobsSummary.inc $DEST_DIR -cp --parents code/OpsProg_Utils/Ops_ReadCXBatch.inc $DEST_DIR +cp --parents code/OpsProg_Utils/OpsMod_PrintCX.f90 "$DEST_DIR" +cp --parents code/OpsProg_Utils/OpsMod_PrintVarobs.f90 "$DEST_DIR" +cp --parents code/OpsProg_Utils/OpsMod_UtilsProgs.f90 "$DEST_DIR" +cp --parents code/OpsProg_Utils/OpsProg_PrintCXFile.F90 "$DEST_DIR" +cp --parents code/OpsProg_Utils/OpsProg_PrintVarobs.F90 "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintBatchFieldByField.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintBatchObByOb.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintCXBatches.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintCXHeader.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintFixedHeader.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintVarobsHeader.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintVarobsObByOb.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_PrintVarobsSummary.inc "$DEST_DIR" +cp --parents code/OpsProg_Utils/Ops_ReadCXBatch.inc "$DEST_DIR" echo "Done" diff --git a/etc/CMakeLists.txt b/etc/CMakeLists.txt index 400f052f..28d088db 100644 --- a/etc/CMakeLists.txt +++ b/etc/CMakeLists.txt @@ -1,7 +1,5 @@ -# (C) Copyright 2021 Met Office. +# (C) Crown Copyright 2021, the Met Office. All rights reserved. # -# This software is licensed under the terms of the Apache Licence Version 2.0 -# which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. # Include macros for creating links and symlinks include( opsinputs_functions ) diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index ea5d1985..ce7ccdce 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -1,5 +1,4 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. add_subdirectory( opsinputs ) diff --git a/src/opsinputs/CMakeLists.txt b/src/opsinputs/CMakeLists.txt index 0af8a329..7c3b28d2 100644 --- a/src/opsinputs/CMakeLists.txt +++ b/src/opsinputs/CMakeLists.txt @@ -1,6 +1,5 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. list( APPEND opsinputs_src_files opsinputs_cxfields_mod.F90 diff --git a/src/opsinputs/CxWriter.cc b/src/opsinputs/CxWriter.cc index 721a65b7..2c7d7204 100644 --- a/src/opsinputs/CxWriter.cc +++ b/src/opsinputs/CxWriter.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/CxWriter.h" diff --git a/src/opsinputs/CxWriter.h b/src/opsinputs/CxWriter.h index c313d1a5..b9891821 100644 --- a/src/opsinputs/CxWriter.h +++ b/src/opsinputs/CxWriter.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_CXWRITER_H_ diff --git a/src/opsinputs/CxWriter.interface.F90 b/src/opsinputs/CxWriter.interface.F90 index cb84d217..f5cf7e73 100644 --- a/src/opsinputs/CxWriter.interface.F90 +++ b/src/opsinputs/CxWriter.interface.F90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. ! module opsinputs_cxwriter_mod_c diff --git a/src/opsinputs/CxWriter.interface.h b/src/opsinputs/CxWriter.interface.h index b109aa7d..96d4cfe9 100644 --- a/src/opsinputs/CxWriter.interface.h +++ b/src/opsinputs/CxWriter.interface.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_CXWRITER_INTERFACE_H_ diff --git a/src/opsinputs/CxWriterParameters.h b/src/opsinputs/CxWriterParameters.h index 3a3fc577..0dd3be18 100644 --- a/src/opsinputs/CxWriterParameters.h +++ b/src/opsinputs/CxWriterParameters.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_CXWRITERPARAMETERS_H_ diff --git a/src/opsinputs/GnssroStationIDMetOffice.cc b/src/opsinputs/GnssroStationIDMetOffice.cc index 01389807..81ca883b 100644 --- a/src/opsinputs/GnssroStationIDMetOffice.cc +++ b/src/opsinputs/GnssroStationIDMetOffice.cc @@ -1,8 +1,6 @@ /* ----------------------------------------------------------------------------- - * (C) British Crown Copyright 2021 Met Office + * (C) Crown Copyright 2021, the Met Office. All rights reserved. * - * This software is licensed under the terms of the Apache Licence Version 2.0 - * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. * ----------------------------------------------------------------------------- * * Find the station ID for GNSS-RO observations used by the Met Office's DA diff --git a/src/opsinputs/GnssroStationIDMetOffice.h b/src/opsinputs/GnssroStationIDMetOffice.h index 981ef996..a754c8d6 100644 --- a/src/opsinputs/GnssroStationIDMetOffice.h +++ b/src/opsinputs/GnssroStationIDMetOffice.h @@ -1,8 +1,6 @@ /* ----------------------------------------------------------------------------- - * (C) British Crown Copyright 2021 Met Office + * (C) Crown Copyright 2021, the Met Office. All rights reserved. * - * This software is licensed under the terms of the Apache Licence Version 2.0 - * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. * ----------------------------------------------------------------------------- */ diff --git a/src/opsinputs/LocalEnvironment.cc b/src/opsinputs/LocalEnvironment.cc index 87f1d34a..27a11c7a 100644 --- a/src/opsinputs/LocalEnvironment.cc +++ b/src/opsinputs/LocalEnvironment.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/LocalEnvironment.h" diff --git a/src/opsinputs/LocalEnvironment.h b/src/opsinputs/LocalEnvironment.h index 821accb0..ca2aba00 100644 --- a/src/opsinputs/LocalEnvironment.h +++ b/src/opsinputs/LocalEnvironment.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_LOCALENVIRONMENT_H_ diff --git a/src/opsinputs/MPIExceptionSynchronizer.cc b/src/opsinputs/MPIExceptionSynchronizer.cc index 1153bc8e..ebbf91d7 100644 --- a/src/opsinputs/MPIExceptionSynchronizer.cc +++ b/src/opsinputs/MPIExceptionSynchronizer.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include diff --git a/src/opsinputs/MPIExceptionSynchronizer.h b/src/opsinputs/MPIExceptionSynchronizer.h index 9fa24ba7..5c555243 100644 --- a/src/opsinputs/MPIExceptionSynchronizer.h +++ b/src/opsinputs/MPIExceptionSynchronizer.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_MPIEXCEPTIONSYNCHRONIZER_H_ diff --git a/src/opsinputs/VarObsWriter.cc b/src/opsinputs/VarObsWriter.cc index bbe75aec..52644ceb 100644 --- a/src/opsinputs/VarObsWriter.cc +++ b/src/opsinputs/VarObsWriter.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/VarObsWriter.h" diff --git a/src/opsinputs/VarObsWriter.h b/src/opsinputs/VarObsWriter.h index 2f14389e..80fe226f 100644 --- a/src/opsinputs/VarObsWriter.h +++ b/src/opsinputs/VarObsWriter.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_VAROBSWRITER_H_ diff --git a/src/opsinputs/VarObsWriter.interface.F90 b/src/opsinputs/VarObsWriter.interface.F90 index 627ea769..b4e920e2 100644 --- a/src/opsinputs/VarObsWriter.interface.F90 +++ b/src/opsinputs/VarObsWriter.interface.F90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. ! module opsinputs_varobswriter_mod_c diff --git a/src/opsinputs/VarObsWriter.interface.h b/src/opsinputs/VarObsWriter.interface.h index cb0c49f5..a3103e4d 100644 --- a/src/opsinputs/VarObsWriter.interface.h +++ b/src/opsinputs/VarObsWriter.interface.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_VAROBSWRITER_INTERFACE_H_ diff --git a/src/opsinputs/VarObsWriterParameters.h b/src/opsinputs/VarObsWriterParameters.h index c55d8ae8..c7449ac0 100644 --- a/src/opsinputs/VarObsWriterParameters.h +++ b/src/opsinputs/VarObsWriterParameters.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_VAROBSWRITERPARAMETERS_H_ diff --git a/src/opsinputs/instantiateObsFilterFactory.cc b/src/opsinputs/instantiateObsFilterFactory.cc index 845acec6..95d2c969 100644 --- a/src/opsinputs/instantiateObsFilterFactory.cc +++ b/src/opsinputs/instantiateObsFilterFactory.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2021, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/instantiateObsFilterFactory.h" diff --git a/src/opsinputs/instantiateObsFilterFactory.h b/src/opsinputs/instantiateObsFilterFactory.h index c072302f..22f2bb7a 100644 --- a/src/opsinputs/instantiateObsFilterFactory.h +++ b/src/opsinputs/instantiateObsFilterFactory.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_INSTANTIATEOBSFILTERFACTORY_H_ diff --git a/src/opsinputs/opsinputs_cxfields_mod.F90 b/src/opsinputs/opsinputs_cxfields_mod.F90 index 5ec4ee0f..f3992624 100644 --- a/src/opsinputs/opsinputs_cxfields_mod.F90 +++ b/src/opsinputs/opsinputs_cxfields_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Maps names of fields defined in the Cx_Info type to names of JEDI geovals used to fill !> these fields. diff --git a/src/opsinputs/opsinputs_cxgenerate_mod.F90 b/src/opsinputs/opsinputs_cxgenerate_mod.F90 index 2ca3ad99..2608986a 100644 --- a/src/opsinputs/opsinputs_cxgenerate_mod.F90 +++ b/src/opsinputs/opsinputs_cxgenerate_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Subset of the OpsMod_CxGenerate module from OPS. That module can't be used directly because it !> depends on libodb (via the OpsMod_Extract module), which in turn is linked to a different diff --git a/src/opsinputs/opsinputs_cxwriter_mod.F90 b/src/opsinputs/opsinputs_cxwriter_mod.F90 index cf8514a5..6754a060 100644 --- a/src/opsinputs/opsinputs_cxwriter_mod.F90 +++ b/src/opsinputs/opsinputs_cxwriter_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Fortran part of CxWriter. It collects data from JEDI and uses OPS functions to output these data !> to a Cx file. diff --git a/src/opsinputs/opsinputs_fill_mod.F90 b/src/opsinputs/opsinputs_fill_mod.F90 index a04acfcd..50680bef 100644 --- a/src/opsinputs/opsinputs_fill_mod.F90 +++ b/src/opsinputs/opsinputs_fill_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Subroutines filling arrays belonging to OB_type or CX_type. diff --git a/src/opsinputs/opsinputs_jeditoopslayoutmapping_mod.F90 b/src/opsinputs/opsinputs_jeditoopslayoutmapping_mod.F90 index 54b4f3e6..693e0bfa 100644 --- a/src/opsinputs/opsinputs_jeditoopslayoutmapping_mod.F90 +++ b/src/opsinputs/opsinputs_jeditoopslayoutmapping_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2021, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> The opsinputs_jeditoopslayoutmapping type (see below) diff --git a/src/opsinputs/opsinputs_mpl_mod.F90 b/src/opsinputs/opsinputs_mpl_mod.F90 index ac54aacf..e31c4b04 100644 --- a/src/opsinputs/opsinputs_mpl_mod.F90 +++ b/src/opsinputs/opsinputs_mpl_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> MPL functions used by VarObsWriter or CxWriter, but not wrapped by OPS. diff --git a/src/opsinputs/opsinputs_obsdatavector_f.cc b/src/opsinputs/opsinputs_obsdatavector_f.cc index 8ec0d137..0be6a677 100644 --- a/src/opsinputs/opsinputs_obsdatavector_f.cc +++ b/src/opsinputs/opsinputs_obsdatavector_f.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/opsinputs_obsdatavector_f.h" diff --git a/src/opsinputs/opsinputs_obsdatavector_f.h b/src/opsinputs/opsinputs_obsdatavector_f.h index 992c4615..408c0e50 100644 --- a/src/opsinputs/opsinputs_obsdatavector_f.h +++ b/src/opsinputs/opsinputs_obsdatavector_f.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_OPSINPUTS_OBSDATAVECTOR_F_H_ diff --git a/src/opsinputs/opsinputs_obsdatavector_interface.f90 b/src/opsinputs/opsinputs_obsdatavector_interface.f90 index 8dee34b0..a65a4d18 100644 --- a/src/opsinputs/opsinputs_obsdatavector_interface.f90 +++ b/src/opsinputs/opsinputs_obsdatavector_interface.f90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> \file Interface for C++ ObsDataVector code called from Fortran diff --git a/src/opsinputs/opsinputs_obsdatavector_mod.F90 b/src/opsinputs/opsinputs_obsdatavector_mod.F90 index e399847a..8fc00346 100644 --- a/src/opsinputs/opsinputs_obsdatavector_mod.F90 +++ b/src/opsinputs/opsinputs_obsdatavector_mod.F90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Fortran interface to ObsDataVector. diff --git a/src/opsinputs/opsinputs_obsspace_f.cc b/src/opsinputs/opsinputs_obsspace_f.cc index a05be5c6..f7bd8287 100644 --- a/src/opsinputs/opsinputs_obsspace_f.cc +++ b/src/opsinputs/opsinputs_obsspace_f.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "opsinputs/opsinputs_obsspace_f.h" diff --git a/src/opsinputs/opsinputs_obsspace_f.h b/src/opsinputs/opsinputs_obsspace_f.h index 2d654457..186159c4 100644 --- a/src/opsinputs/opsinputs_obsspace_f.h +++ b/src/opsinputs/opsinputs_obsspace_f.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef OPSINPUTS_OPSINPUTS_OBSSPACE_F_H_ diff --git a/src/opsinputs/opsinputs_obsspace_interface.f90 b/src/opsinputs/opsinputs_obsspace_interface.f90 index 05199e83..786f7afd 100644 --- a/src/opsinputs/opsinputs_obsspace_interface.f90 +++ b/src/opsinputs/opsinputs_obsspace_interface.f90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Extensions to the Fortran-callable interface to ioda::ObsSpace. diff --git a/src/opsinputs/opsinputs_obsspace_mod.F90 b/src/opsinputs/opsinputs_obsspace_mod.F90 index 1dde6fdc..89a83327 100644 --- a/src/opsinputs/opsinputs_obsspace_mod.F90 +++ b/src/opsinputs/opsinputs_obsspace_mod.F90 @@ -1,7 +1,6 @@ ! ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Extensions to the Fortran interface to ioda::ObsSpace. module opsinputs_obsspace_mod diff --git a/src/opsinputs/opsinputs_utils_mod.F90 b/src/opsinputs/opsinputs_utils_mod.F90 index 013a4b59..b05a9b31 100644 --- a/src/opsinputs/opsinputs_utils_mod.F90 +++ b/src/opsinputs/opsinputs_utils_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Utilities used by both VarObsWriter and CxWriter. diff --git a/src/opsinputs/opsinputs_varobswriter_mod.F90 b/src/opsinputs/opsinputs_varobswriter_mod.F90 index e486af5e..780effb6 100644 --- a/src/opsinputs/opsinputs_varobswriter_mod.F90 +++ b/src/opsinputs/opsinputs_varobswriter_mod.F90 @@ -1,6 +1,5 @@ ! (C) Crown Copyright 2020, the Met Office. All rights reserved. ! -! Refer to COPYRIGHT.txt of this distribution for details. !> Fortran part of VarObsWriter. It collects data from JEDI and uses the functions from the OPS !> OpsMod_Varobs module to output them to a VarObs file. diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt index 1f0c07b4..484085cd 100644 --- a/test/CMakeLists.txt +++ b/test/CMakeLists.txt @@ -1,6 +1,5 @@ # (C) Crown Copyright 2020, the Met Office. All rights reserved. # -# Refer to COPYRIGHT.txt of this distribution for details. # Include macros for creating links and symlinks include( opsinputs_functions ) diff --git a/test/generate_unittest_netcdfs.py b/test/generate_unittest_netcdfs.py index f836441a..f2f54b8d 100644 --- a/test/generate_unittest_netcdfs.py +++ b/test/generate_unittest_netcdfs.py @@ -1,22 +1,23 @@ #!/usr/bin/env python """Generate NetCDF files required by VarObsWriter and CxWriter tests. -This script must currently be run manually whenever these files need to be regenerated. -In principle we could define these files as outputs of a custom CMake target; +This script must currently be run manually whenever these files need to be regenerated. +In principle we could define these files as outputs of a custom CMake target; this script would then be run automatically as part of the build process whenever it changed.""" import numpy as np import netCDF4 as nc4 -# Defined as in oops/util/missingValues.cc +# Defined as in oops/util/missingValues.cc missing_float = np.finfo(np.float32).min * 0.99 missing_int = np.iinfo(np.int32).min + 5 # NetCDF missing values missing_float_nc = 9.969209968386869e+36 + def output_1d_simulated_var_to_netcdf(var_name, file_name, with_bias=False): - f = nc4.Dataset(file_name, 'w', format="NETCDF4") + f = nc4.Dataset(file_name, 'w', format="NETCDF4") nlocs = 4 f.createDimension('Location', nlocs) @@ -30,8 +31,8 @@ def output_1d_simulated_var_to_netcdf(var_name, file_name, with_bias=False): var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -49,14 +50,14 @@ def output_1d_simulated_var_to_netcdf(var_name, file_name, with_bias=False): if with_bias: var = f.createVariable('ObsBias/' + var_name, 'f', ('Location')) - biasVal = [-0.1,-0.5,-0.01, 0.1] + biasVal = [-0.1, -0.5, -0.01, 0.1] var[:] = biasVal var = f.createVariable('BiasCorrObsValue/' + var_name, 'f', ('Location')) biascorr = np.array(obsVal) - np.array(biasVal) - # Check for missing floats, if ObsVal has a missing float then - # the bias corrected value will be missing float. If the bias - # correction is missing then no bias correction should be applied to - # and the obsVal used. + # Check for missing floats, if ObsVal has a missing float then + # the bias corrected value will be missing float. If the bias + # correction is missing then no bias correction should be applied to + # and the obsVal used. for i, val in enumerate(obsVal): if obsVal[i] == missing_float: biascorr[i] = missing_float @@ -67,6 +68,7 @@ def output_1d_simulated_var_to_netcdf(var_name, file_name, with_bias=False): f.close() + def output_1d_simulated_vars_to_netcdf(var_name_1, var_name_2, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -82,8 +84,8 @@ def output_1d_simulated_vars_to_netcdf(var_name_1, var_name_2, file_name): var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -106,11 +108,11 @@ def output_1d_simulated_vars_to_netcdf(var_name_1, var_name_2, file_name): var[:] = [0.11, missing_float, 0.13, 0.14] var = f.createVariable('PreQC/' + var_name_2, 'i', ('Location',)) var[:] = [1, 1, 1, 1] - f.date_time = 2018010100 f.close() + def output_1d_multi_level_simulated_var_to_netcdf(var_name, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -146,8 +148,8 @@ def output_1d_multi_level_simulated_var_to_netcdf(var_name, file_name): var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400, 100500, 100600] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute, 5*minute, 6*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute, 5 * minute, 6 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_1", "station_1", @@ -176,6 +178,7 @@ def output_1d_multi_level_simulated_var_to_netcdf(var_name, file_name): f.close() + def output_1d_normal_var_to_netcdf(var_name, var_group, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -191,8 +194,8 @@ def output_1d_normal_var_to_netcdf(var_name, var_group, file_name): var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -210,11 +213,11 @@ def output_1d_normal_var_to_netcdf(var_name, var_group, file_name): var = f.createVariable(var_group + '/' + var_name, 'f', ('Location',)) var[:] = [5.1, missing_float, 5.3, 5.4] - f.date_time = 2018010100 f.close() + def output_1d_normal_int_var_to_netcdf(var_name, var_group, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -230,8 +233,8 @@ def output_1d_normal_int_var_to_netcdf(var_name, var_group, file_name): var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -249,11 +252,11 @@ def output_1d_normal_int_var_to_netcdf(var_name, var_group, file_name): var = f.createVariable(var_group + '/' + var_name, 'i', ('Location',)) var[:] = [5, missing_int, 7, 8] - f.date_time = 2018010100 f.close() + def output_1d_geoval_to_netcdf(var_name, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -262,11 +265,11 @@ def output_1d_geoval_to_netcdf(var_name, file_name): var = f.createVariable(var_name, 'f', ('nlocs',)) var[:] = [7.1, missing_float, 7.3, 7.4] - f.date_time = 2018010100 f.close() + def output_2d_simulated_var_to_netcdf(var_name, file_name, with_bias=False, with_radar_family=False, add_occulting_satid=False): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -278,7 +281,7 @@ def output_2d_simulated_var_to_netcdf(var_name, file_name, with_bias=False, with f.createDimension('nstring', nstring) var = f.createVariable('Channel', 'i', ('Channel',)) - var[:] = [1,2,3] + var[:] = [1, 2, 3] var = f.createVariable('MetaData/latitude', 'f', ('Location',)) var[:] = [21, 22, -23, 24] @@ -287,8 +290,8 @@ def output_2d_simulated_var_to_netcdf(var_name, file_name, with_bias=False, with var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -303,44 +306,45 @@ def output_2d_simulated_var_to_netcdf(var_name, file_name, with_bias=False, with var[:] = [3, 3, 5, 720] # Create Variables - var = f.createVariable('ObsValue/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[1.1,2.1,3.1], - [missing_float,2.2,3.2], - [1.3,2.3,3.3], - [1.4,2.4,3.4]] - var = f.createVariable('ObsError/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[0.1,1.1,2.1], - [missing_float,1.2,2.2], - [0.3,1.3,2.3], - [0.4,1.4,2.4]] - var = f.createVariable('GrossErrorProbability/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[0.01,0.11,0.21], - [missing_float,0.12,0.22], - [0.03,0.13,0.23], - [0.04,0.14,0.24]] - var = f.createVariable('PreQC/' + var_name, 'i', ('Location','Channel')) - var[:,:] = [[1, 1, 1], - [1, 1, 1], - [1, 1, 1], - [1, 1, 1]] + var = f.createVariable('ObsValue/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[1.1, 2.1, 3.1], + [missing_float, 2.2, 3.2], + [1.3, 2.3, 3.3], + [1.4, 2.4, 3.4]] + var = f.createVariable('ObsError/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[0.1, 1.1, 2.1], + [missing_float, 1.2, 2.2], + [0.3, 1.3, 2.3], + [0.4, 1.4, 2.4]] + var = f.createVariable('GrossErrorProbability/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[0.01, 0.11, 0.21], + [missing_float, 0.12, 0.22], + [0.03, 0.13, 0.23], + [0.04, 0.14, 0.24]] + var = f.createVariable('PreQC/' + var_name, 'i', ('Location', 'Channel')) + var[:, :] = [[1, 1, 1], + [1, 1, 1], + [1, 1, 1], + [1, 1, 1]] if with_bias: - var = f.createVariable('ObsBias/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[-0.1,-0.5,-0.01], - [-0.2,-0.6,-0.02], - [-0.3,-0.7,-0.03], - [-0.4,-0.8,-0.04]] + var = f.createVariable('ObsBias/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[-0.1, -0.5, -0.01], + [-0.2, -0.6, -0.02], + [-0.3, -0.7, -0.03], + [-0.4, -0.8, -0.04]] # BiasCorrObsValue = ObsValue - ObsBias - var = f.createVariable('BiasCorrObsValue/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[1.2,2.6,3.11], - [missing_float, 2.8, 3.22], - [1.6,3.0,3.33], - [1.8,3.2,3.44]] + var = f.createVariable('BiasCorrObsValue/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[1.2, 2.6, 3.11], + [missing_float, 2.8, 3.22], + [1.6, 3.0, 3.33], + [1.8, 3.2, 3.44]] f.date_time = 2018010100 f.close() -def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, + +def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, with_radar_family=False, predictors=False, use_chans=False, use_levs=False): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -353,7 +357,7 @@ def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, f.createDimension('Channel', nchans) var = f.createVariable('Channel', 'i', ('Channel',)) - var[:] = [1,2,3] + var[:] = [1, 2, 3] var = f.createVariable('MetaData/latitude', 'f', ('Location',)) var[:] = [21, 22, -23, 24] @@ -362,8 +366,8 @@ def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, var = f.createVariable('MetaData/pressure', 'f', ('Location',)) var[:] = [100100, 100200, 100300, 100400] var = f.createVariable('MetaData/time', 'f', ('Location',)) - minute = 1/60. - var[:] = [1*minute, 2*minute, 3*minute, 4*minute] + minute = 1 / 60. + var[:] = [1 * minute, 2 * minute, 3 * minute, 4 * minute] var = f.createVariable('MetaData/stationIdentification', str, ('Location')) for i, s in enumerate(["station_1", "station_2", "station_3", "station_4"]): @@ -375,46 +379,46 @@ def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, # There must be at least one simulated variable - var = f.createVariable('ObsValue/dummy', 'f', ('Location','Channel')) - var[:,:] = [[1.1,2.1,3.1], - [missing_float,2.2,3.2], - [1.3,2.3,3.3], - [1.4,2.4,3.4]] - var = f.createVariable('ObsError/dummy', 'f', ('Location','Channel')) - var[:,:] = [[0.1,1.1,2.1], - [missing_float,1.2,2.2], - [0.3,1.3,2.3], - [0.4,1.4,2.4]] - var = f.createVariable('GrossErrorProbability/dummy', 'f', ('Location','Channel')) - var[:,:] = [[0.01,0.11,0.21], - [missing_float,0.12,0.22], - [0.03,0.13,0.23], - [0.04,0.14,0.24]] - var = f.createVariable('PreQC/dummy', 'i', ('Location','Channel')) - var[:,:] = [[1,1,1], - [1,1,1], - [1,1,1], - [1,1,1]] + var = f.createVariable('ObsValue/dummy', 'f', ('Location', 'Channel')) + var[:, :] = [[1.1, 2.1, 3.1], + [missing_float, 2.2, 3.2], + [1.3, 2.3, 3.3], + [1.4, 2.4, 3.4]] + var = f.createVariable('ObsError/dummy', 'f', ('Location', 'Channel')) + var[:, :] = [[0.1, 1.1, 2.1], + [missing_float, 1.2, 2.2], + [0.3, 1.3, 2.3], + [0.4, 1.4, 2.4]] + var = f.createVariable('GrossErrorProbability/dummy', 'f', ('Location', 'Channel')) + var[:, :] = [[0.01, 0.11, 0.21], + [missing_float, 0.12, 0.22], + [0.03, 0.13, 0.23], + [0.04, 0.14, 0.24]] + var = f.createVariable('PreQC/dummy', 'i', ('Location', 'Channel')) + var[:, :] = [[1, 1, 1], + [1, 1, 1], + [1, 1, 1], + [1, 1, 1]] if type(var_group) != list: var_group = [var_group] for grp in var_group: if (predictors or use_chans): - var = f.createVariable(grp + '/' + var_name, 'f', ('Location','Channel')) - var[:,:] = [[4.1,5.1,6.1], - [missing_float,5.2,6.2], - [4.3,5.3,6.3], - [4.4,5.4,6.4]] + var = f.createVariable(grp + '/' + var_name, 'f', ('Location', 'Channel')) + var[:, :] = [[4.1, 5.1, 6.1], + [missing_float, 5.2, 6.2], + [4.3, 5.3, 6.3], + [4.4, 5.4, 6.4]] if "5Predictor" in grp: - var[:,:] = [[4.1,5.1,6.1], - [missing_float,5.2,6.2], - [4.3,5.3,6.3], - [0.0,0.0,0.0]] + var[:, :] = [[4.1, 5.1, 6.1], + [missing_float, 5.2, 6.2], + [4.3, 5.3, 6.3], + [0.0, 0.0, 0.0]] if "8Predictor" in grp: - var[:,:] = [[0.0,0.0,0.0], - [0.0,0.0,0.0], - [0.0,0.0,0.0], - [4.4,5.4,6.4]] + var[:, :] = [[0.0, 0.0, 0.0], + [0.0, 0.0, 0.0], + [0.0, 0.0, 0.0], + [4.4, 5.4, 6.4]] elif (use_levs): var = f.createVariable(grp + '/' + var_name + '/lev1', 'f', ('Location',)) var[:] = [1.1, 1.2, 1.3, 1.4] @@ -427,7 +431,7 @@ def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, else: var = f.createVariable(grp + '/' + var_name + '_1', 'f', ('Location',)) var[:] = [4.1, missing_float, 4.3, 4.4] - + var2 = f.createVariable(grp + '/' + var_name + '_2', 'f', ('Location',)) var2[:] = [5.1, 5.2, 5.3, 5.4] @@ -442,6 +446,7 @@ def output_2d_normal_var_to_netcdf(var_name, var_group, file_name, f.close() + def output_simulated_var_profiles_to_netcdf(var_name, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -479,7 +484,7 @@ def output_simulated_var_profiles_to_netcdf(var_name, file_name): 0.31, 0.42, 0.32, missing_float, 0.33, 0.51, 0.52] var = f.createVariable('ObsError/' + var_name, 'f', ('Location',)) var[:] = [0.011, 0.023, 0.012, 0.022, 0.013, missing_float, 0.014, - 0.031, 0.042, 0.032, 0.041, 0.033, 0.051, 0.052] + 0.031, 0.042, 0.032, 0.041, 0.033, 0.051, 0.052] var = f.createVariable('GrossErrorProbability/' + var_name, 'f', ('Location',)) var[:] = [0.111, 0.123, 0.112, 0.122, 0.113, 0.121, 0.114, 0.131, 0.142, 0.132, 0.141, 0.133, 0.151, 0.152] @@ -488,9 +493,11 @@ def output_simulated_var_profiles_to_netcdf(var_name, file_name): f.close() + def output_2d_geoval_to_netcdf(var_name, file_name): return output_2d_geovals_to_netcdf([var_name], file_name) + def output_2d_geovals_to_netcdf(var_names, file_name, shift_by_varindex=True): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -500,21 +507,22 @@ def output_2d_geovals_to_netcdf(var_names, file_name, shift_by_varindex=True): f.createDimension('nlevs', nlevs) for var_index, var_name in enumerate(var_names): - var = f.createVariable(var_name, 'f', ('nlocs','nlevs')) - if shift_by_varindex: - shift = 10 * var_index - else: - shift = 0 - # Assumes the geovals are toptobottom - var[:] = [[shift + 1.3, shift + 1.2, shift + 1.1], - [shift + 2.3, missing_float, shift + 2.1], - [shift + 3.3, shift + 3.2, shift + 3.1], - [shift + 4.3, shift + 4.2, shift + 4.1]] + var = f.createVariable(var_name, 'f', ('nlocs', 'nlevs')) + if shift_by_varindex: + shift = 10 * var_index + else: + shift = 0 + # Assumes the geovals are toptobottom + var[:] = [[shift + 1.3, shift + 1.2, shift + 1.1], + [shift + 2.3, missing_float, shift + 2.1], + [shift + 3.3, shift + 3.2, shift + 3.1], + [shift + 4.3, shift + 4.2, shift + 4.1]] f.date_time = 2018010100 f.close() + def output_2d_geoval_for_multi_level_obs_to_netcdf(var_name, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -522,7 +530,7 @@ def output_2d_geoval_for_multi_level_obs_to_netcdf(var_name, file_name): nlevs = 3 f.createDimension('nlocs', nlocs) f.createDimension('nlevs', nlevs) - var = f.createVariable(var_name, 'f', ('nlocs','nlevs')) + var = f.createVariable(var_name, 'f', ('nlocs', 'nlevs')) # These synthethic GeoVaLs represent two sonde profiles, # one with four levels and one with two levels. # Each profile has been averaged onto three model levels. @@ -543,6 +551,7 @@ def output_2d_geoval_for_multi_level_obs_to_netcdf(var_name, file_name): f.close() + def output_full_cx_to_netcdf(oned_var_names, twod_var_names, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -552,23 +561,24 @@ def output_full_cx_to_netcdf(oned_var_names, twod_var_names, file_name): f.createDimension('nlevs', nlevs) for var_index, var_name in enumerate(twod_var_names): - var = f.createVariable(var_name, 'f', ('nlocs','nlevs')) - shift = 10 * var_index - # Assumes the geovals are toptobottom - var[:] = [[shift + 1.3, shift + 1.2, shift + 1.1], - [shift + 2.3, missing_float, shift + 2.1], - [shift + 3.3, shift + 3.2, shift + 3.1], - [shift + 4.3, shift + 4.2, shift + 4.1]] + var = f.createVariable(var_name, 'f', ('nlocs', 'nlevs')) + shift = 10 * var_index + # Assumes the geovals are toptobottom + var[:] = [[shift + 1.3, shift + 1.2, shift + 1.1], + [shift + 2.3, missing_float, shift + 2.1], + [shift + 3.3, shift + 3.2, shift + 3.1], + [shift + 4.3, shift + 4.2, shift + 4.1]] for var_index, var_name in enumerate(oned_var_names): - var = f.createVariable(var_name, 'f', ('nlocs',)) - shift = 10 * var_index - var[:] = [shift + 7.1, missing_float, shift + 7.3, shift + 7.4] + var = f.createVariable(var_name, 'f', ('nlocs',)) + shift = 10 * var_index + var[:] = [shift + 7.1, missing_float, shift + 7.3, shift + 7.4] f.date_time = 2018010100 f.close() + def output_full_varobs_to_netcdf(oned_float_varnames, twod_float_varnames, oned_int_varnames, file_name): f = nc4.Dataset(file_name, 'w', format="NETCDF4") @@ -580,25 +590,25 @@ def output_full_varobs_to_netcdf(oned_float_varnames, twod_float_varnames, oned_ f.createDimension('nstring', nstring) var = f.createVariable('Channel', 'i', ('Channel',)) - var[:] = [1,2,3] + var[:] = [1, 2, 3] for var_index, var_name in enumerate(oned_float_varnames): - var = f.createVariable(var_name, 'f', ('Location',)) - shift = 10 * var_index - var[:] = [shift + 7.1, missing_float, shift + 7.3, shift + 7.4] + var = f.createVariable(var_name, 'f', ('Location',)) + shift = 10 * var_index + var[:] = [shift + 7.1, missing_float, shift + 7.3, shift + 7.4] for var_index, var_name in enumerate(twod_float_varnames): - var = f.createVariable(var_name, 'f', ('Location','Channel')) - shift = 10 * var_index - var[:] = [[shift + 1.1, shift + 1.2, shift + 1.3], - [shift + 2.1, missing_float, shift + 2.3], - [shift + 3.1, shift + 3.2, shift + 3.3], - [shift + 4.1, shift + 4.2, shift + 4.3]] + var = f.createVariable(var_name, 'f', ('Location', 'Channel')) + shift = 10 * var_index + var[:] = [[shift + 1.1, shift + 1.2, shift + 1.3], + [shift + 2.1, missing_float, shift + 2.3], + [shift + 3.1, shift + 3.2, shift + 3.3], + [shift + 4.1, shift + 4.2, shift + 4.3]] for var_index, var_name in enumerate(oned_int_varnames): - var = f.createVariable(var_name, 'i', ('Location',)) - shift = 10 * var_index - var[:] = [shift + 3, missing_int, shift + 7, shift + 9] + var = f.createVariable(var_name, 'i', ('Location',)) + shift = 10 * var_index + var[:] = [shift + 3, missing_int, shift + 7, shift + 9] var = f.createVariable('MetaData/datetime', str, ('Location')) for i, s in enumerate(["2018-01-01T00:01:01Z", "2018-01-01T00:02:03Z", @@ -609,6 +619,7 @@ def output_full_varobs_to_netcdf(oned_float_varnames, twod_float_varnames, oned_ f.close() + def copy_var_to_var(Group, invarname, outvarname, filename): f = nc4.Dataset(filename, 'r+', format="NETCDF4") grp = f.groups[Group] @@ -677,24 +688,24 @@ def copy_var_to_var(Group, invarname, outvarname, filename): # Varobs full output for an obsgroup testing # Arguments are: 1D floats, 2D floats, 1D ints, filename - + # ATMS - output_full_varobs_to_netcdf(['MetaData/latitude','MetaData/longitude','OneDVar/skinTemperature','MetaData/sensorZenithAngle', + output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', 'OneDVar/skinTemperature', 'MetaData/sensorZenithAngle', 'MetaData/solarZenithAngle'], - ['ObsValue/brightnessTemperature','ObsError/brightnessTemperature','Emiss/emissivity', - 'BiasCorrObsValue/brightnessTemperature','thickness_850_300hPa_satid_13Predictor/brightnessTemperature', + ['ObsValue/brightnessTemperature', 'ObsError/brightnessTemperature', 'Emiss/emissivity', + 'BiasCorrObsValue/brightnessTemperature', 'thickness_850_300hPa_satid_13Predictor/brightnessTemperature', 'thickness_850_300hPa_satid_17Predictor/brightnessTemperature'], - ['MetaData/surfaceQualifier','MetaData/satelliteIdentifier'], - 'testinput/varobs_globalnamelist_atms.nc4') + ['MetaData/surfaceQualifier', 'MetaData/satelliteIdentifier'], + 'testinput/varobs_globalnamelist_atms.nc4') # ATOVS - output_full_varobs_to_netcdf(['MetaData/latitude','MetaData/longitude','OneDVar/skinTemperature','MetaData/sensorZenithAngle', - 'MetaData/solarZenithAngle','Emiss/emissivityIR'], - ['ObsValue/brightnessTemperature','ObsErrorData/brightnessTemperature','Emiss/emissivity', - 'BiasCorrObsValue/brightnessTemperature','thickness_850_300hPa_satid_13Predictor/brightnessTemperature', + output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', 'OneDVar/skinTemperature', 'MetaData/sensorZenithAngle', + 'MetaData/solarZenithAngle', 'Emiss/emissivityIR'], + ['ObsValue/brightnessTemperature', 'ObsErrorData/brightnessTemperature', 'Emiss/emissivity', + 'BiasCorrObsValue/brightnessTemperature', 'thickness_850_300hPa_satid_13Predictor/brightnessTemperature', 'thickness_850_300hPa_satid_17Predictor/brightnessTemperature'], - ['MetaData/surfaceQualifier','MetaData/satelliteIdentifier'], - 'testinput/varobs_globalnamelist_atovs.nc4') - + ['MetaData/surfaceQualifier', 'MetaData/satelliteIdentifier'], + 'testinput/varobs_globalnamelist_atovs.nc4') + # GNSS-RO output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', @@ -705,70 +716,70 @@ def copy_var_to_var(Group, invarname, outvarname, filename): 'ObsError/bendingAngle'], [], ['MetaData/satelliteIdentifier'], - 'testinput/varobs_globalnamelist_gnssro.nc4') + 'testinput/varobs_globalnamelist_gnssro.nc4') # Sonde output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', 'MetaData/pressure', - 'ObsValue/potentialTemperature','ObsError/potentialTemperature', - 'ObsValue/windEastward','ObsError/windEastward', - 'ObsValue/windNorthward','ObsError/windNorthward', - 'ObsValue/relativeHumidity','ObsError/relativeHumidity'], + 'ObsValue/potentialTemperature', 'ObsError/potentialTemperature', + 'ObsValue/windEastward', 'ObsError/windEastward', + 'ObsValue/windNorthward', 'ObsError/windNorthward', + 'ObsValue/relativeHumidity', 'ObsError/relativeHumidity'], [], [], 'testinput/varobs_globalnamelist_sonde.nc4') copy_var_to_var('ObsValue', 'potentialTemperature', 'airTemperature', 'testinput/varobs_globalnamelist_sonde.nc4') - copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature','testinput/varobs_globalnamelist_sonde.nc4') + copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature', 'testinput/varobs_globalnamelist_sonde.nc4') # Sonde - UKV output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', 'MetaData/pressure', - 'ObsValue/potentialTemperature','ObsError/potentialTemperature', - 'ObsValue/windEastward','ObsError/windEastward', - 'ObsValue/windNorthward','ObsError/windNorthward', - 'ObsValue/relativeHumidity','ObsError/relativeHumidity'], + 'ObsValue/potentialTemperature', 'ObsError/potentialTemperature', + 'ObsValue/windEastward', 'ObsError/windEastward', + 'ObsValue/windNorthward', 'ObsError/windNorthward', + 'ObsValue/relativeHumidity', 'ObsError/relativeHumidity'], [], [], 'testinput/varobs_ukvnamelist_sonde.nc4') copy_var_to_var('ObsValue', 'potentialTemperature', 'airTemperature', 'testinput/varobs_ukvnamelist_sonde.nc4') - copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature','testinput/varobs_ukvnamelist_sonde.nc4') + copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature', 'testinput/varobs_ukvnamelist_sonde.nc4') # Scatwind - output_full_varobs_to_netcdf(['MetaData/latitude','MetaData/longitude'], - ['ObsValue/windEastward','ObsError/windEastward','GrossErrorProbability/windEastward', - 'ObsValue/windNorthward','ObsError/windNorthward','GrossErrorProbability/windNorthward', - 'ObsValue/probability','ObsError/probability','GrossErrorProbability/probability', - 'BiasCorrObsValue/windEastward','BiasCorrObsValue/windNorthward'], + output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude'], + ['ObsValue/windEastward', 'ObsError/windEastward', 'GrossErrorProbability/windEastward', + 'ObsValue/windNorthward', 'ObsError/windNorthward', 'GrossErrorProbability/windNorthward', + 'ObsValue/probability', 'ObsError/probability', 'GrossErrorProbability/probability', + 'BiasCorrObsValue/windEastward', 'BiasCorrObsValue/windNorthward'], ['MetaData/satelliteIdentifier'], - 'testinput/varobs_globalnamelist_scatwind.nc4') + 'testinput/varobs_globalnamelist_scatwind.nc4') # IASI - this tests the variable_for_quality_control option - output_full_varobs_to_netcdf(['MetaData/latitude','MetaData/longitude', - 'OneDVar/skinTemperature','MetaData/sensorZenithAngle', - 'MetaData/solarZenithAngle','OutputToVAR/pressureAtTopOfCloud','OneDVar/cloudAmount', + output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', + 'OneDVar/skinTemperature', 'MetaData/sensorZenithAngle', + 'MetaData/solarZenithAngle', 'OutputToVAR/pressureAtTopOfCloud', 'OneDVar/cloudAmount', 'MetaData/ozoneTotal'], - ['ObsValue/radiance','DerivedObsValue/brightnessTemperature','EffectiveError/brightnessTemperature', + ['ObsValue/radiance', 'DerivedObsValue/brightnessTemperature', 'EffectiveError/brightnessTemperature', 'OneDVar/emissivity', 'BiasCorrObsValue/brightnessTemperature', 'thickness_850_300hPa_satid_13Predictor/brightnessTemperature', 'thickness_850_300hPa_satid_17Predictor/brightnessTemperature'], - ['MetaData/surfaceQualifier','MetaData/satelliteIdentifier','MetaData/observationSubTypeNum'], - 'testinput/varobs_globalnamelist_iasi.nc4') + ['MetaData/surfaceQualifier', 'MetaData/satelliteIdentifier', 'MetaData/observationSubTypeNum'], + 'testinput/varobs_globalnamelist_iasi.nc4') # Aircraft output_full_varobs_to_netcdf(['MetaData/latitude', 'MetaData/longitude', 'MetaData/pressure', - 'ObsValue/potentialTemperature','ObsError/potentialTemperature', - 'ObsValue/windEastward','ObsError/windEastward', - 'ObsValue/windNorthward','ObsError/windNorthward', - 'ObsValue/relativeHumidity','ObsError/relativeHumidity'], + 'ObsValue/potentialTemperature', 'ObsError/potentialTemperature', + 'ObsValue/windEastward', 'ObsError/windEastward', + 'ObsValue/windNorthward', 'ObsError/windNorthward', + 'ObsValue/relativeHumidity', 'ObsError/relativeHumidity'], [], [], 'testinput/varobs_globalnamelist_aircraft.nc4') copy_var_to_var('ObsValue', 'potentialTemperature', 'airTemperature', 'testinput/varobs_globalnamelist_aircraft.nc4') - copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature','testinput/varobs_globalnamelist_aircraft.nc4') + copy_var_to_var('ObsError', 'potentialTemperature', 'airTemperature', 'testinput/varobs_globalnamelist_aircraft.nc4') # Cx output_1d_simulated_var_to_netcdf('dummy', 'testinput/dummy.nc4') @@ -801,54 +812,54 @@ def copy_var_to_var(Group, invarname, outvarname, filename): # Cx full output for an obsgroup testing # list of 1d-variables; list of 2d-variables; filename for output - + # AMSR - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_amsr.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_amsr.nc4') # GMIlow - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_gmilow.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_gmilow.nc4') # GMIhigh - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_gmihigh.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_gmihigh.nc4') # ATMS - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_atms.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_atms.nc4') # ATOVS - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_atovs.nc4') - + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_atovs.nc4') + # SSMIS - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_ssmis.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_ssmis.nc4') # MWSFY3 output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', @@ -856,21 +867,21 @@ def copy_var_to_var(Group, invarname, outvarname, filename): ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_mwsfy3.nc4') + 'testinput/cx_globalnamelist_mwsfy3.nc4') # GNSS-RO - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_gnssro.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_gnssro.nc4') # Sonde output_full_cx_to_netcdf(['ice_area_fraction', 'surface_altitude', 'surface_pressure'], - ['eastward_wind','northward_wind','potential_temperature','specific_humidity', + ['eastward_wind', 'northward_wind', 'potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', @@ -883,7 +894,7 @@ def copy_var_to_var(Group, invarname, outvarname, filename): output_full_cx_to_netcdf(['ice_area_fraction', 'surface_altitude', 'surface_pressure'], - ['eastward_wind','northward_wind','potential_temperature','specific_humidity', + ['eastward_wind', 'northward_wind', 'potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', @@ -893,33 +904,33 @@ def copy_var_to_var(Group, invarname, outvarname, filename): 'testinput/cx_ukvnamelist_sonde.nc4') # SatTCWV - output_full_cx_to_netcdf(['surface_altitude','surface_pressure','ice_area_fraction','total_cloud_amount'], - ['potential_temperature','specific_humidity','air_pressure_levels','mass_content_of_cloud_ice_in_atmosphere_layer', + output_full_cx_to_netcdf(['surface_altitude', 'surface_pressure', 'ice_area_fraction', 'total_cloud_amount'], + ['potential_temperature', 'specific_humidity', 'air_pressure_levels', 'mass_content_of_cloud_ice_in_atmosphere_layer', 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', - 'cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_sattcwv.nc4') + 'cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_sattcwv.nc4') # IASI - this tests the variable_for_quality_control option - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m','surface_pressure_at_mean_sea_level'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_iasi.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m', 'surface_pressure_at_mean_sea_level'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_iasi.nc4') # GroundGPS - output_full_cx_to_netcdf(['skin_temperature','ice_area_fraction','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer'], - 'testinput/cx_globalnamelist_groundgps.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'ice_area_fraction', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer'], + 'testinput/cx_globalnamelist_groundgps.nc4') # Aircraft output_full_cx_to_netcdf(['ice_area_fraction', 'surface_altitude', 'surface_pressure'], - ['eastward_wind','northward_wind','potential_temperature','specific_humidity', + ['eastward_wind', 'northward_wind', 'potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', @@ -929,13 +940,13 @@ def copy_var_to_var(Group, invarname, outvarname, filename): 'testinput/cx_globalnamelist_aircraft.nc4') # Surface - output_full_cx_to_netcdf(['skin_temperature','surface_altitude','surface_pressure','uwind_at_10m', - 'vwind_at_10m','surface_temperature','relative_humidity_2m'], - ['potential_temperature','specific_humidity','mass_content_of_cloud_ice_in_atmosphere_layer', - 'mass_content_of_cloud_liquid_water_in_atmosphere_layer','air_pressure_levels', - 'cloud_volume_fraction_in_atmosphere_layer','liquid_cloud_volume_fraction_in_atmosphere_layer','ice_cloud_volume_fraction_in_atmosphere_layer', - 'eastward_wind','northward_wind'], - 'testinput/cx_globalnamelist_surface.nc4') + output_full_cx_to_netcdf(['skin_temperature', 'surface_altitude', 'surface_pressure', 'uwind_at_10m', + 'vwind_at_10m', 'surface_temperature', 'relative_humidity_2m'], + ['potential_temperature', 'specific_humidity', 'mass_content_of_cloud_ice_in_atmosphere_layer', + 'mass_content_of_cloud_liquid_water_in_atmosphere_layer', 'air_pressure_levels', + 'cloud_volume_fraction_in_atmosphere_layer', 'liquid_cloud_volume_fraction_in_atmosphere_layer', 'ice_cloud_volume_fraction_in_atmosphere_layer', + 'eastward_wind', 'northward_wind'], + 'testinput/cx_globalnamelist_surface.nc4') output_1d_multi_level_simulated_var_to_netcdf('relativeHumidity', 'testinput/relative_humidity_Sonde.nc4') output_2d_geoval_for_multi_level_obs_to_netcdf('relative_humidity', 'testinput/002_UpperAirCxFieldForMultiLevelObs_relative_humidity.nc4') diff --git a/test/mains/TestMPIExceptionSynchronizer.cc b/test/mains/TestMPIExceptionSynchronizer.cc index b3a333af..0da16c70 100644 --- a/test/mains/TestMPIExceptionSynchronizer.cc +++ b/test/mains/TestMPIExceptionSynchronizer.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "../opsinputs/MPIExceptionSynchronizer.h" diff --git a/test/mains/TestObsFilters.cc b/test/mains/TestObsFilters.cc index b0f2049f..325521f0 100644 --- a/test/mains/TestObsFilters.cc +++ b/test/mains/TestObsFilters.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "../opsinputs/instantiateObsFilterFactory.h" diff --git a/test/opsinputs/CheckerUtils.cc b/test/opsinputs/CheckerUtils.cc index 21ed2652..dbc59e18 100644 --- a/test/opsinputs/CheckerUtils.cc +++ b/test/opsinputs/CheckerUtils.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include diff --git a/test/opsinputs/CheckerUtils.h b/test/opsinputs/CheckerUtils.h index 1a604c4c..aa6e2ab0 100644 --- a/test/opsinputs/CheckerUtils.h +++ b/test/opsinputs/CheckerUtils.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_CHECKERUTILS_H_ diff --git a/test/opsinputs/CxChecker.cc b/test/opsinputs/CxChecker.cc index 728e1b72..17d93927 100644 --- a/test/opsinputs/CxChecker.cc +++ b/test/opsinputs/CxChecker.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include diff --git a/test/opsinputs/CxChecker.h b/test/opsinputs/CxChecker.h index fdc34c0c..1355c08b 100644 --- a/test/opsinputs/CxChecker.h +++ b/test/opsinputs/CxChecker.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_CXCHECKER_H_ diff --git a/test/opsinputs/CxCheckerParameters.h b/test/opsinputs/CxCheckerParameters.h index 07c24fc3..522a9977 100644 --- a/test/opsinputs/CxCheckerParameters.h +++ b/test/opsinputs/CxCheckerParameters.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_CXCHECKERPARAMETERS_H_ diff --git a/test/opsinputs/MPIExceptionSynchronizer.h b/test/opsinputs/MPIExceptionSynchronizer.h index 0d364db4..a5551624 100644 --- a/test/opsinputs/MPIExceptionSynchronizer.h +++ b/test/opsinputs/MPIExceptionSynchronizer.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_MPIEXCEPTIONSYNCHRONIZER_H_ diff --git a/test/opsinputs/ResetFlagsToPass.cc b/test/opsinputs/ResetFlagsToPass.cc index 6368989e..87a2c295 100644 --- a/test/opsinputs/ResetFlagsToPass.cc +++ b/test/opsinputs/ResetFlagsToPass.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "../../test/opsinputs/ResetFlagsToPass.h" diff --git a/test/opsinputs/ResetFlagsToPass.h b/test/opsinputs/ResetFlagsToPass.h index d06f2eb3..715e0fac 100644 --- a/test/opsinputs/ResetFlagsToPass.h +++ b/test/opsinputs/ResetFlagsToPass.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_RESETFLAGSTOPASS_H_ diff --git a/test/opsinputs/ResetFlagsToPassParameters.h b/test/opsinputs/ResetFlagsToPassParameters.h index 563926fb..2f94f67f 100644 --- a/test/opsinputs/ResetFlagsToPassParameters.h +++ b/test/opsinputs/ResetFlagsToPassParameters.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_RESETFLAGSTOPASSPARAMETERS_H_ diff --git a/test/opsinputs/TempFile.cc b/test/opsinputs/TempFile.cc index dfc3a464..70a141d8 100644 --- a/test/opsinputs/TempFile.cc +++ b/test/opsinputs/TempFile.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include "../../test/opsinputs/TempFile.h" diff --git a/test/opsinputs/TempFile.h b/test/opsinputs/TempFile.h index 22bb3624..ce2e7c68 100644 --- a/test/opsinputs/TempFile.h +++ b/test/opsinputs/TempFile.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_TEMPFILE_H_ diff --git a/test/opsinputs/VarObsChecker.cc b/test/opsinputs/VarObsChecker.cc index 38ebce0b..ce4a4a08 100644 --- a/test/opsinputs/VarObsChecker.cc +++ b/test/opsinputs/VarObsChecker.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #include diff --git a/test/opsinputs/VarObsChecker.h b/test/opsinputs/VarObsChecker.h index 9964d3b8..82a55d50 100644 --- a/test/opsinputs/VarObsChecker.h +++ b/test/opsinputs/VarObsChecker.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_VAROBSCHECKER_H_ diff --git a/test/opsinputs/VarObsCheckerParameters.h b/test/opsinputs/VarObsCheckerParameters.h index f812e961..3e0f2222 100644 --- a/test/opsinputs/VarObsCheckerParameters.h +++ b/test/opsinputs/VarObsCheckerParameters.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_VAROBSCHECKERPARAMETERS_H_ diff --git a/test/opsinputs/instantiateObsFilterFactory.cc b/test/opsinputs/instantiateObsFilterFactory.cc index d01008de..b87508b8 100644 --- a/test/opsinputs/instantiateObsFilterFactory.cc +++ b/test/opsinputs/instantiateObsFilterFactory.cc @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2021, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ // This rather strange relative path is required by the opsinputs_coding_norms test... diff --git a/test/opsinputs/instantiateObsFilterFactory.h b/test/opsinputs/instantiateObsFilterFactory.h index f0d57c68..fa8cd764 100644 --- a/test/opsinputs/instantiateObsFilterFactory.h +++ b/test/opsinputs/instantiateObsFilterFactory.h @@ -1,7 +1,6 @@ /* * (C) Crown Copyright 2020, the Met Office. All rights reserved. * - * Refer to COPYRIGHT.txt of this distribution for details. */ #ifndef TEST_OPSINPUTS_INSTANTIATEOBSFILTERFACTORY_H_