From 63c0aaadb2d3ddf69afa79fd9e8c98b2ea2cd812 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Mon, 26 Oct 2020 16:50:33 +0100 Subject: [PATCH] Philippe 26/10/2020: add NMNHDIM_BUDGET_TERM parameter --- src/LIB/SURCOUCHE/src/modd_field.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90 index 4b870305e..62d113c9e 100644 --- a/src/LIB/SURCOUCHE/src/modd_field.f90 +++ b/src/LIB/SURCOUCHE/src/modd_field.f90 @@ -22,7 +22,7 @@ use NETCDF, only: NF90_FILL_INT, NF90_FILL_REAL implicit none -integer, parameter :: NMNHMAXDIMS = 6 +integer, parameter :: NMNHMAXDIMS = 6 ! Cannot be less than 6 INTEGER,PARAMETER :: MAXFIELDS = 250 INTEGER,PARAMETER :: TYPEUNDEF = -1, TYPEINT = 1, TYPELOG = 2, TYPEREAL = 3, TYPECHAR = 4, TYPEDATE = 5 ! @@ -80,6 +80,7 @@ integer, parameter :: NMNHDIM_FLYER_PROC = 101 ! This is not a true dim integer, parameter :: NMNHDIM_PROFILER_PROC = 102 ! This is not a true dimension integer, parameter :: NMNHDIM_STATION_PROC = 103 ! This is not a true dimension integer, parameter :: NMNHDIM_SERIES_PROC = 104 ! This is not a true dimension +integer, parameter :: NMNHDIM_BUDGET_TERM = 105 ! This is not a true dimension integer, parameter :: NMNHDIM_NOTLISTED = 200 ! Special case for valid dimension but not in this parameter list -- GitLab