Remove terms with kx=0 and ky<=0

This commit is contained in:
2023-04-25 17:51:14 -04:00
parent 519bb72726
commit d838060265
5 changed files with 50 additions and 37 deletions

View File

@@ -635,7 +635,7 @@ int set_parameter(
_Complex double* set_driving(
nstrophy_parameters parameters
){
_Complex double* g=calloc(sizeof(_Complex double),(2*parameters.K1+1)*(2*parameters.K2+1));
_Complex double* g=calloc(sizeof(_Complex double),parameters.K1*(2*parameters.K2+1)+parameters.K2);
switch(parameters.driving){
case DRIVING_ZERO:
@@ -664,7 +664,7 @@ _Complex double* set_driving(
_Complex double* set_init(
nstrophy_parameters parameters
){
_Complex double* u0=calloc(sizeof(_Complex double),(2*parameters.K1+1)*(2*parameters.K2+1));
_Complex double* u0=calloc(sizeof(_Complex double),parameters.K1*(2*parameters.K2+1)+parameters.K2);
switch(parameters.init){
case INIT_RANDOM: