match retrieve_2D_conical and 2D geom

DiffractionGratings/grating2D_data_LamellarGrating.geo

@@ -26,7 +26,7 @@ colorpp01  = "Ivory";
 colorpp02  = "Ivory";
 
 lambda_min = 1000;
-lambda_max = 1200;
+lambda_max = 1000;
 nb_lambdas = 1;
 
 DefineConstant[
@@ -37,10 +37,10 @@ DefineConstant[
 
 DefineConstant[
   d           = {1000, Name StrCat[pp0  , "0grating period [nm]"]          , Highlight Str[colorpp]  , Closed close_menu} , 
-  h_sub  		  = {50  , Name StrCat[pp01 , "1substrate thickness [nm]"]     , Highlight Str[colorpp01], Closed close_menu},
-  h_layer_dep	= {800 , Name StrCat[pp01 , "2deposit layer thickness [nm]"] , Highlight Str[colorpp01], Closed close_menu},
-  h_layer_cov	= {100 , Name StrCat[pp01 , "3cover layer thickness [nm]"]   , Highlight Str[colorpp01], Closed close_menu},
-  h_sup  		  = {100 , Name StrCat[pp01 , "4superstrate thickness [nm]"]   , Highlight Str[colorpp01], Closed close_menu},
+  h_sub  		  = {100  , Name StrCat[pp01 , "1substrate thickness [nm]"]     , Highlight Str[colorpp01], Closed close_menu},
+  h_layer_dep	= {300 , Name StrCat[pp01 , "2deposit layer thickness [nm]"] , Highlight Str[colorpp01], Closed close_menu},
+  h_layer_cov	= { 50 , Name StrCat[pp01 , "3cover layer thickness [nm]"]   , Highlight Str[colorpp01], Closed close_menu},
+  h_sup  		  = {200 , Name StrCat[pp01 , "4superstrate thickness [nm]"]   , Highlight Str[colorpp01], Closed close_menu},
 
   Flag_glue_rod_subs   = {  1 , Name StrCat[pp02, "0glue rod to substrate?"] , Choices {0,1} } ,
   Shape_rod            = {  0 , Name StrCat[pp02, "1rod section shape"]             , Choices {0="Trapezoidal",1="Ellipsoidal"} } ,
@@ -79,7 +79,7 @@ DefineConstant[
   epsr_custom_anisoXY_im  = {   0     , Name StrCat[pp2b , "8 epsilonr XY im"] , Highlight Str[colorpp]                                   , Closed 1} , 
 
   h_pmltop                    = {1.*lambda_max, Name StrCat[pp3, "0top PML size [nm]"] ,  ReadOnly 1, Highlight Str[colorro]},
-  h_pmlbot                    = {1.*lambda_max, Name StrCat[pp3, "1bottom PML size [nm]"] ,  ReadOnly 1, Highlight Str[colorro]}  
+  h_pmlbot                    = {200, Name StrCat[pp3, "1bottom PML size [nm]"] ,  ReadOnly 1, Highlight Str[colorro]}  
   Flag_o2_interp              = {1         , Name StrCat[pp3, "2Second order interpolation?"] , Choices {0,1}},
   Flag_o2_geom                = {0         , Name StrCat[pp3, "3Second order mesh?"] , Choices {0,1}, Visible 0},
   paramaille                  = {15 , Name StrCat[pp3, "4nb of mesh elements per wavelength [-]"   ] , ReadOnly 0, Highlight Str[colorpp]},