Changeset 17304
- Timestamp:
- 02/19/14 09:18:32 (11 years ago)
- Location:
- issm/trunk-jpl/src/c/shared/FSanalyticals
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/shared/FSanalyticals/fsanalyticals.cpp
r17303 r17304 16 16 #include "../shared.h" 17 17 18 IssmDouble fx(IssmDouble x,IssmDouble y,IssmDouble z,int FSANALYTICAL){ /*{{{*/18 IssmDouble fx(IssmDouble x,IssmDouble y,IssmDouble z,int testid){ /*{{{*/ 19 19 IssmDouble fx; 20 20 21 switch( FSANALYTICAL){21 switch(testid){ 22 22 case 1: 23 23 return fx=fx1(x,y); … … 33 33 return fx=fx6(x,y,z); 34 34 default: 35 _error_("FS analytical solution"<< FSANALYTICAL<<" not implemented yet");35 _error_("FS analytical solution"<<testid<<" not implemented yet"); 36 36 } 37 37 } 38 38 /*}}}*/ 39 IssmDouble fy(IssmDouble x,IssmDouble y,IssmDouble z,int FSANALYTICAL){ /*{{{*/39 IssmDouble fy(IssmDouble x,IssmDouble y,IssmDouble z,int testid){ /*{{{*/ 40 40 IssmDouble fy; 41 41 42 switch( FSANALYTICAL){42 switch(testid){ 43 43 case 1: 44 44 return fy=fy1(x,y); … … 54 54 return fy=fy6(x,y,z); 55 55 default: 56 _error_("FS analytical solution"<< FSANALYTICAL<<" not implemented yet");56 _error_("FS analytical solution"<<testid<<" not implemented yet"); 57 57 } 58 58 } 59 59 /*}}}*/ 60 IssmDouble fz(IssmDouble x,IssmDouble y,IssmDouble z,int FSANALYTICAL){ /*{{{*/60 IssmDouble fz(IssmDouble x,IssmDouble y,IssmDouble z,int testid){ /*{{{*/ 61 61 IssmDouble fz; 62 62 63 switch( FSANALYTICAL){63 switch(testid){ 64 64 case 1: case 2: 65 65 return fz=0.; … … 73 73 return fz=fz6(x,y,z); 74 74 default: 75 _error_("FS analytical solution"<< FSANALYTICAL<<" not implemented yet");75 _error_("FS analytical solution"<<testid<<" not implemented yet"); 76 76 } 77 77 } -
issm/trunk-jpl/src/c/shared/FSanalyticals/fsanalyticals.h
r17303 r17304 8 8 #include "../Numerics/types.h" 9 9 10 IssmDouble fx(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int FSANALYTICAL);11 IssmDouble fy(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int FSANALYTICAL);12 IssmDouble fz(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int FSANALYTICAL);10 IssmDouble fx(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int testid); 11 IssmDouble fy(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int testid); 12 IssmDouble fz(IssmDouble x_coord, IssmDouble y_coord, IssmDouble z_coord, int testid); 13 13 IssmDouble fx1(IssmDouble x_coord, IssmDouble y_coord); 14 14 IssmDouble fy1(IssmDouble x_coord, IssmDouble y_coord);
Note:
See TracChangeset
for help on using the changeset viewer.