Feel free to join the next Helmholtz Hacky Hour #26 on Wednesday, April 21, 2021 from 2PM to 3PM!

Commit 9d2dac4b authored by Akash Koppa's avatar Akash Koppa

debugged the code to make it work with gnu 4.8

parent 8e784fed
......@@ -34,10 +34,13 @@ contains
use kriging, only: maxDist
use VarFit, only: vType, nParam, dh, hMax, beta
use runControl, only: interMth, fnameDEM, DataPathOut, DataPathIn, fNameSta, correctNeg, &
distZero, flagVario, fNameVario, flagEDK
use NetCDFVar, only: FileOut, author_name, projection_name, variable_name, variable_unit, variable_standard_name, variable_calendar_type, &
variable_long_name, ncIn_variable_name, ncIn_dem_variable_name, ncIn_yCoord_name, ncIn_xCoord_name, invert_y, &
ncOut_dem_variable_name, ncOut_dem_yCoord_name, ncOut_dem_xCoord_name, ncOut_dem_Latitude, ncOut_dem_Longitude
distZero, flagVario, fNameVario, flagEDK
use NetCDFVar, only: FileOut, author_name, projection_name, variable_name, variable_unit, &
variable_standard_name, variable_calendar_type, &
variable_long_name, ncIn_variable_name, ncIn_dem_variable_name, &
ncIn_yCoord_name, ncIn_xCoord_name, invert_y, &
ncOut_dem_variable_name, ncOut_dem_yCoord_name, ncOut_dem_xCoord_name, &
ncOut_dem_Latitude, ncOut_dem_Longitude
use mo_message, only: message
use mo_string_utils, only: divide_string
......@@ -56,10 +59,13 @@ contains
!
namelist/mainVars/noDataValue, DataPathIn, fNameDEM, &
DataPathOut, FileOut, fNameSTA, cellFactor, DataConvertFactor, OffSet, InterMth, correctNeg, &
distZero, author_name, projection_name, variable_name, variable_unit, variable_long_name, variable_standard_name, variable_calendar_type, &
distZero, author_name, projection_name, variable_name, variable_unit, variable_long_name, &
variable_standard_name, variable_calendar_type, &
yStart, mStart, dStart, yEnd, mEnd, dEnd,tBuffer, maxDist, flagVario, vType, nParam, &
fNameVario, dh, hMax, ncIn_variable_name, ncIn_dem_variable_name, ncIn_yCoord_name, ncIn_xCoord_name, invert_y, &
ncOut_dem_variable_name, ncOut_dem_yCoord_name, ncOut_dem_xCoord_name, ncOut_dem_Latitude, ncOut_dem_Longitude
fNameVario, dh, hMax, ncIn_variable_name, ncIn_dem_variable_name, ncIn_yCoord_name, &
ncIn_xCoord_name, invert_y, &
ncOut_dem_variable_name, ncOut_dem_yCoord_name, ncOut_dem_xCoord_name, ncOut_dem_Latitude,&
ncOut_dem_Longitude
!
! -----------------------------------------------------------------------
! MAIN.DAT
......@@ -279,7 +285,8 @@ contains
use mo_kind, only : i4
use runControl
use mo_netCDF, only:NcDataset, NcVariable
use NetCDFVar, only:ncOut_dem_variable_name, ncOut_dem_yCoord_name, ncOut_dem_xCoord_name, ncOut_dem_Latitude, ncOut_dem_Longitude
use NetCDFVar, only:ncOut_dem_variable_name, ncOut_dem_yCoord_name, &
ncOut_dem_xCoord_name, ncOut_dem_Latitude, ncOut_dem_Longitude
implicit none
......
......@@ -14,7 +14,9 @@ CONTAINS
use mo_netcdf, only: NcDataset, NcDimension, NcVariable
use mo_string_utils, only: num2str
use mainVar, only: gridMeteo, yStart, mStart, dStart, DEMNcFlag, DataConvertFactor
use NetCDFVar, only: fileOut, author_name, variable_name, variable_unit, variable_long_name, projection_name,invert_y, variable_standard_name, variable_calendar_type, ncOut_dem_Latitude, ncOut_dem_Longitude
use NetCDFVar, only: fileOut, author_name, variable_name, variable_unit, variable_long_name, &
projection_name,invert_y, variable_standard_name, variable_calendar_type, &
ncOut_dem_Latitude, ncOut_dem_Longitude
implicit none
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment