From a6e5eff4a78e407bcd8179d711156c5bf41d031a Mon Sep 17 00:00:00 2001 From: Alon Stern Date: Thu, 22 Dec 2016 12:02:35 -0500 Subject: [PATCH 1/2] Changed SIGMA_SHELF_ZSTAR to SSZ* , since the name can have a maximum of 6 characters. --- src/ALE/regrid_consts.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ALE/regrid_consts.F90 b/src/ALE/regrid_consts.F90 index 4037a55e2f..6d5f1b985b 100644 --- a/src/ALE/regrid_consts.F90 +++ b/src/ALE/regrid_consts.F90 @@ -29,7 +29,7 @@ module regrid_consts character(len=6), parameter :: REGRIDDING_ARBITRARY_STRING = "ARB" !< Arbitrary coordinates character(len=6), parameter :: REGRIDDING_HYCOM1_STRING = "HYCOM1" !< Hycom string character(len=6), parameter :: REGRIDDING_SLIGHT_STRING = "SLIGHT" !< Hybrid S-rho string -character(len=6), parameter :: REGRIDDING_SIGMA_SHELF_ZSTAR_STRING = "SIGMA_SHELF_ZSTAR" !< Hybrid z*/sigma +character(len=6), parameter :: REGRIDDING_SIGMA_SHELF_ZSTAR_STRING = "SSZ*" !< Hybrid z*/sigma (SIGMA_SHELF_ZSTAR) character(len=6), parameter :: DEFAULT_COORDINATE_MODE = REGRIDDING_LAYER_STRING !< Default coordinate mode integer, dimension(REGRIDDING_NUM_TYPES), parameter :: vertical_coords = & From 97e72e43966c2821030d45da08008672f82620b3 Mon Sep 17 00:00:00 2001 From: Alon Stern Date: Thu, 22 Dec 2016 13:25:39 -0500 Subject: [PATCH 2/2] Changing name back to SIGMA_SHELF_ZSTAR, but increaing the amount of characters to 17, so that it works. --- src/ALE/regrid_consts.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ALE/regrid_consts.F90 b/src/ALE/regrid_consts.F90 index 6d5f1b985b..07d602bf7e 100644 --- a/src/ALE/regrid_consts.F90 +++ b/src/ALE/regrid_consts.F90 @@ -29,7 +29,7 @@ module regrid_consts character(len=6), parameter :: REGRIDDING_ARBITRARY_STRING = "ARB" !< Arbitrary coordinates character(len=6), parameter :: REGRIDDING_HYCOM1_STRING = "HYCOM1" !< Hycom string character(len=6), parameter :: REGRIDDING_SLIGHT_STRING = "SLIGHT" !< Hybrid S-rho string -character(len=6), parameter :: REGRIDDING_SIGMA_SHELF_ZSTAR_STRING = "SSZ*" !< Hybrid z*/sigma (SIGMA_SHELF_ZSTAR) +character(len=17), parameter :: REGRIDDING_SIGMA_SHELF_ZSTAR_STRING = "SIGMA_SHELF_ZSTAR" !< Hybrid z*/sigma character(len=6), parameter :: DEFAULT_COORDINATE_MODE = REGRIDDING_LAYER_STRING !< Default coordinate mode integer, dimension(REGRIDDING_NUM_TYPES), parameter :: vertical_coords = &