From 947dcf8b1704154985d61134d81e175cf1cdaee5 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 7 Oct 2020 11:11:04 +0200 Subject: [PATCH] Philippe 07/10/2020: add new parameters for dimensions --- src/LIB/SURCOUCHE/src/modd_field.f90 | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90 index 97515ab85..9c592944a 100644 --- a/src/LIB/SURCOUCHE/src/modd_field.f90 +++ b/src/LIB/SURCOUCHE/src/modd_field.f90 @@ -67,9 +67,23 @@ integer, parameter :: NMNHDIM_SPECTRA_SPEC_NI = 62 integer, parameter :: NMNHDIM_SPECTRA_SPEC_NJ = 63 integer, parameter :: NMNHDIM_SPECTRA_LEVEL = 64 +integer, parameter :: NMNHDIM_SERIES_LEVEL = 70 +integer, parameter :: NMNHDIM_SERIES_LEVEL_W = 71 +integer, parameter :: NMNHDIM_SERIES_TIME = 72 ! Time dimension for time series + +integer, parameter :: NMNHDIM_FLYER_TIME = 80 ! Time dimension for aircraft/balloon (dimension local to each flyer) +integer, parameter :: NMNHDIM_PROFILER_TIME = 81 ! Time dimension for profilers +integer, parameter :: NMNHDIM_STATION_TIME = 82 ! Time dimension for stations + integer, parameter :: NMNHDIM_BUDGET_NGROUPS = 100 ! This is not a true dimension +integer, parameter :: NMNHDIM_FLYER_PROC = 101 ! This is not a true dimension +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_NOTLISTED = 200 ! Special case for valid dimension but not in this parameter list -integer, parameter :: NMNHDIM_UNUSED = 200 +integer, parameter :: NMNHDIM_UNUSED = 300 ! TYPE TFIELDPTR_C0D CHARACTER(LEN=:), POINTER :: DATA => NULL() -- GitLab