Commit f92ff7e9 authored by Ralf Greve's avatar Ralf Greve
Browse files

EISMINT domain:

New horizontal resolutions 6.25 km and 12.5 km implemented.
parent 2b25b8e9
......@@ -11,7 +11,7 @@
! Version number of SICOPOLIS
! for which this run-specs header is suitable
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-19'
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-29'
! Date of last change
!-------- Domain --------
......@@ -55,10 +55,12 @@
#define DX 25.0d0
! Horizontal grid spacing in km, for GRID==0
! or GRID==1
! ( 5 km requires IMAX=300 and JMAX=300,
! 10 km requires IMAX=150 and JMAX=150,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
! ( 5 km requires IMAX=300 and JMAX=300,
! 6.25 km requires IMAX=240 and JMAX=240,
! 10 km requires IMAX=150 and JMAX=150,
! 12.5 km requires IMAX=120 and JMAX=120,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
#define IMAX 60
! IMAX+1: number of grid points in x-direction
......
......@@ -11,7 +11,7 @@
! Version number of SICOPOLIS
! for which this run-specs header is suitable
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-19'
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-29'
! Date of last change
!-------- Domain --------
......@@ -55,10 +55,12 @@
#define DX 25.0d0
! Horizontal grid spacing in km, for GRID==0
! or GRID==1
! ( 5 km requires IMAX=300 and JMAX=300,
! 10 km requires IMAX=150 and JMAX=150,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
! ( 5 km requires IMAX=300 and JMAX=300,
! 6.25 km requires IMAX=240 and JMAX=240,
! 10 km requires IMAX=150 and JMAX=150,
! 12.5 km requires IMAX=120 and JMAX=120,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
#define IMAX 60
! IMAX+1: number of grid points in x-direction
......
......@@ -11,7 +11,7 @@
! Version number of SICOPOLIS
! for which this run-specs header is suitable
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-19'
#define RUN_SPECS_HEADER_LAST_CHANGED '2022-03-29'
! Date of last change
!-------- Domain --------
......@@ -55,10 +55,12 @@
#define DX 25.0d0
! Horizontal grid spacing in km, for GRID==0
! or GRID==1
! ( 5 km requires IMAX=300 and JMAX=300,
! 10 km requires IMAX=150 and JMAX=150,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
! ( 5 km requires IMAX=300 and JMAX=300,
! 6.25 km requires IMAX=240 and JMAX=240,
! 10 km requires IMAX=150 and JMAX=150,
! 12.5 km requires IMAX=120 and JMAX=120,
! 25 km requires IMAX= 60 and JMAX= 60,
! 75 km requires IMAX= 20 and JMAX= 20)
#define IMAX 60
! IMAX+1: number of grid points in x-direction
......
......@@ -5,7 +5,7 @@
!
#define MODEL_SICOPOLIS
#define VERSION '5-dev'
#define DATE '2022-03-19'
#define DATE '2022-03-29'
!
!> @mainpage
!!
......
......@@ -273,6 +273,13 @@ if (approx_equal(DX, 5.0_dp, eps_sp_dp)) then
call error(errormsg)
end if
else if (approx_equal(DX, 6.25_dp, eps_sp_dp)) then
if ((IMAX /= 240).or.(JMAX /= 240)) then
errormsg = ' >>> sico_init: IMAX and/or JMAX wrong!'
call error(errormsg)
end if
else if (approx_equal(DX, 10.0_dp, eps_sp_dp)) then
if ((IMAX /= 150).or.(JMAX /= 150)) then
......@@ -280,6 +287,13 @@ else if (approx_equal(DX, 10.0_dp, eps_sp_dp)) then
call error(errormsg)
end if
else if (approx_equal(DX, 12.5_dp, eps_sp_dp)) then
if ((IMAX /= 120).or.(JMAX /= 120)) then
errormsg = ' >>> sico_init: IMAX and/or JMAX wrong!'
call error(errormsg)
end if
else if (approx_equal(DX, 25.0_dp, eps_sp_dp)) then
if ((IMAX /= 60).or.(JMAX /= 60)) then
......
Supports Markdown
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